ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦p¦ó±NTextBox©M½s¸¹¤À¶}?

¦^´_ 10# GBKEE


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

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

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

TOP

¦^´_ 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. ''''''''''''''''Åܼƫü©w¬°¾ã¼Æ  '''''''''''''''''''''''
  14. Private Sub CommandButton2_Click()
  15.     Dim N() As Integer, i As Integer, ATO As Integer
  16.     i = 3
  17.     ReDim N(1 To i)
  18.     For i = 1 To 3
  19.         N(i) = ¤u§@ªí1.OLEObjects("TextBox" & i).Object.Value
  20.     Next
  21. ATO = N(3) + N(2)
  22. MsgBox ATO
  23. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2011-9-9 09:40 ½s¿è

¦^´_ 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))

TOP

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

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD