GBKEE

¦^´_ 1# av8d

1. BTO = Val(TextBox1)
   
2. Bon = Val(TextBox2)
   
3. Bte = Val(TextBox3)
   
4. Bfy = Val(TextBox4)
   
5. Boh = Val(TextBox5)
   
6. Bfh = Val(TextBox6)
   
7. Bot = Val(TextBox7)
   
8. Ton = Val(TextBox8)
   
9. Tte = Val(TextBox9)
   
10. Tfy = Val(TextBox10)
    
11. toh = Val(TextBox11)
    
12. Tfh = Val(TextBox12)
    
13. Tot = Val(TextBox13)
    
14. 
    
15. ATO = BTO - (Ton + toh) / 10
    
16. MsgBox ATO

½Æ»s¥N½X

GBKEE

¦^´_ 1# av8d

1. For i = 2 To 7
   
2.     Controls("TextBox" & i) = ""
   
3. Next i

½Æ»s¥N½X

­YTextBox2+TextBox3+++++TextBox7¤S¸Ó«ç¼g?
TextBox2+TextBox3+++++TextBox7->¶Ç¦^¦r¦ê
Val(TextBox2)+Val(TextBox3)+++++Val(TextBox7)->¶Ç¦^¼Æ¦r

GBKEE

¦^´_ 3# av8d
¦P©Ê¸êªº°ÝÃD ½Ð§O¦Aµo¤@¦¸·s©«,®ö¶O½×¾Â¸ê·½.
±±¨î¶µ¬O¦³¤À§O  1 Form ¤Î 2 ¤u§@ªí
³o¸Ì¬O¤u§@ªíªº±±¨î¶µ, ¥Ñ¤u¨ã->±±¨î¤u¨ã½c ²£¥Íªº

1. Private Sub CommandButton1_Click()
   
2.     For i = 2 To 4
   
3.         ¤u§@ªí1.OLEObjects("TextBox" & i).Object.Value = ""
   
4.     Next i
   
5. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# av8d

1. Option Explicit
   
2. 'n1 = Val(TextBox1)
   
3. 'n2 = Val(TextBox2)
   
4. 'n3 = Val(TextBox3)
   
5. Sub Ex()
   
6.     'Dim N(1 To 3)   '¤]¥i¥H
   
7.     Dim N()
   
8.     i = 3
   
9.     ReDim N(1 To 3)
   
10.     For i = 1 To 3
    
11.         N(i) = ¤u§@ªí1.OLEObjects("TextBox" & i).Object.Value
    
12.     Next
    
13. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 9# av8d
N¬O°}¦C
ATO = N(3) + N(2)

GBKEE

¦^´_ 11# av8d
Val ±N¦r¦êÂà´«¬°¼Æ¦r

1. Option Explicit
   
2. Private Sub CommandButton2_Click()
   
3.     Dim N(), i ,ATO
   
4.     ReDim N(1 To 3)
   
5.     For i = 1 To 3
   
6.         N(i) = Val(¤u§@ªí1.OLEObjects("TextBox" & i).Object.Value)
   
7.         'N(i) = ¤u§@ªí1.OLEObjects("TextBox" & i).Object.Value
   
8.     Next
   
9. ATO = N(3) + N(2)
   
10. 'ATO = Val(N(3)) + Val(N(2))
    
11. MsgBox ATO
    
12. End Sub
    
13. 
    
14. ''''''''''''''''Åܼƫü©w¬°¾ã¼Æ  '''''''''''''''''''''''
    
15. Private Sub CommandButton2_Click()
    
16.     Dim N() As Integer, i As Integer, ATO As Integer
    
17.     i = 3
    
18.     ReDim N(1 To i)
    
19.     For i = 1 To 3
    
20.         N(i) = ¤u§@ªí1.OLEObjects("TextBox" & i).Object.Value
    
21.     Next
    
22. ATO = N(3) + N(2)
    
23. MsgBox ATO
    
24. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 13# av8d
­n«ü©w¦h­Ó¾ã¼ÆÅܼƬO§_¦³§ó«K±¶ªº¤è¦¡©O?
Dim N() As Integer, i As  Integer, ATO As  Integer