av8d

¦^´_ 10# GBKEE


    ¤j¤j±z¦n~¥i¬O¥L­pºâªº¼Æ­È©Ç©Çªº~

¥L¤£·|¯À½è¥[Á`

¨Ò¦pN3=3,N2=2,N3+N2=32·|Åܦ¨³o¼Ë

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

av8d

¦^´_ 12# GBKEE


    ¤j¤j±z¦n~
1.¦pªG­n«ü©w¦h­Ó¾ã¼ÆÅܼƬO§_¦³§ó«K±¶ªº¤è¦¡©O? ÁÂ
¦pªG¹Bºâ«á­nµL±ø¥ó±Ë¥h¥u¨ú¾ã¼Æ~¦n¹³ÁÙ¬O¥²¶·¨Ï¥Îint
ATO = INT(N(3) / N(2))

GBKEE

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