|
http://www.hackerschool.org/HS_Boards/zboard.php?id=Free_Board&no=3643 [복사]
Private Sub Command2_Click()
Dim aa(50) As Integer
aa(0) = Val(a1.Text)
aa(1) = Val(a2.Text)
aa(2) = Val(a3.Text)
aa(3) = Val(a4.Text)
aa(4) = Val(a5.Text)
aa(5) = Val(a6.Text)
aa(6) = Val(a7.Text)
aa(7) = Val(a8.Text)
aa(8) = Val(a9.Text)
aa(9) = Val(a10.Text)
aa(10) = Val(a11.Text)
aa(11) = Val(a12.Text)
aa(12) = Val(b1.Text)
aa(13) = Val(b2.Text)
aa(14) = Val(b3.Text)
aa(15) = Val(b4.Text)
aa(16) = Val(b5.Text)
aa(17) = Val(b6.Text)
aa(18) = Val(b7.Text)
aa(19) = Val(b8.Text)
aa(20) = Val(b9.Text)
aa(21) = Val(b10.Text)
aa(22) = Val(b11.Text)
aa(23) = Val(b12.Text)
aa(24) = Val(c1.Text)
aa(25) = Val(c2.Text)
aa(26) = Val(c3.Text)
aa(27) = Val(c4.Text)
aa(28) = Val(c5.Text)
aa(29) = Val(c6.Text)
aa(30) = Val(c7.Text)
aa(31) = Val(c8.Text)
aa(32) = Val(c9.Text)
aa(33) = Val(c10.Text)
aa(34) = Val(c11.Text)
aa(35) = Val(c12.Text)
aa(36) = Val(a13.Text)
aa(37) = Val(b13.Text)
aa(38) = Val(c13.Text)
aa(39) = Val(a14.Text)
aa(40) = Val(b14.Text)
aa(41) = Val(c14.Text)
aa(42) = Val(a15.Text)
aa(43) = Val(b15.Text)
aa(44) = Val(c15.Text)
For i = 0 To 35
aa(46) = (aa(46) + aa(i)) / 36
Next i
For j = 36 To 38
aa(47) = aa(47) + aa(j)
Next j
For e = 39 To 41
aa(48) = aa(48) + aa(e)
Next e
For f = 42 To 44
aa(49) = aa(49) + aa(f)
Next f
aa(50) = aa(46) / ((aa(47) + aa(48) + aa(49)) / 12) * 100
Text6.Text = aa(50)
End Sub
빨리 답변올라오면 좋습니다!! |
Hit : 11714 Date : 2004/11/02 08:40
|
22019, 
1/1101 
