- ©«¤l
- 219
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 243
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows10
- ³nÅ骩¥»
- Office2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2012-4-18
- ³Ì«áµn¿ý
- 2022-2-7
|
¥»©«³Ì«á¥Ñ HSIEN6001 ©ó 2012-7-17 17:09 ½s¿è
¦^´_ 29# GBKEE
~¯Á¤ÞÈ ~
³Ì¤pªº¯Á¤ÞȬO----> 0 ¶}©lªºªø¾ã¼Æ.
³o#17- Sub Ex_°}¦C()
- Dim A As String, W, xi As Integer, i As Integer
- W = Array("A", "B", "C", "D")
- For i = LBound(W) To UBound(W)
- MsgBox "Array(""A"", ""B"", ""C"", ""D"")" & Chr(10) & "W(" & i & ") -> " & W(i)
- Next
- End Sub
½Æ»s¥N½X ³o
LBound(W) ---> LBound ¨ç数¥i¥H§ä¨ì数组¬Y¤@维ªº¤U¯Á¤ÞÈ¡C
UBound(W)---> UBound ¨ç数¥i¥H§ä¨ì数组¬Y¤@维ªº¤W¯Á¤ÞÈ¡C
¬GFor i = LBound(W) To UBound(W) = 4 Ó¯Á¤ÞÈ ; ³Ì¤pªø¾ã¼Æ¬°0 , ¬G i = "W(" & i & ") = 0 To 3
W(0) = A , W(1) = B , W(2) = C , W(3) = D
¦Ó : Split(¦r¦ê, "¤À³Î¦r¤¸")(1)---->«üªº¬O²Ä(1)Ó¯Á¤ÞÈ
¨âªÌªº() µL¬ÛÃö ;¬O¤£¦PªºÀ³¥Î
.....³o¼ËªºÅÞ¿è,¹ï¶Ü?!
n¥´µ²¤F O_Q |
|