HSIEN6001

¦^´_ 29# GBKEE

~¯Á¤Þ­È  ~
³Ì¤pªº¯Á¤Þ­È¬O----> 0 ¶}©lªºªø¾ã¼Æ.

³o#17

1. Sub Ex_°}¦C()
   
2.     Dim A As String, W, xi As Integer, i As Integer
   
3.     W = Array("A", "B", "C", "D")
   
4.     For i = LBound(W) To UBound(W)
   
5.         MsgBox "Array(""A"", ""B"", ""C"", ""D"")" & Chr(10) & "W(" & i & ")  -> " & W(i)
   
6.     Next
   
7. 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

GBKEE

¦^´_ 31# HSIEN6001
³Ì¤pªº¯Á¤Þ­È¬O----> 0 ¶}©lªºªø¾ã¼Æ.  ³o¤£¤@©w
¨Ò  Dim A(4 To 7)  ->   ³Ì¤pªº¯Á¤Þ­È¬O 4 , ³Ì¤jªº¯Á¤Þ­È¬O7   
Option Base  0 ©Î 1   ¥i«ü©w³Ì¤pªº¯Á¤Þ­È¬° 0 ©Î 1

1. Option Explicit
   
2. Option Base 1
   
3. 'Option Base ³¯­z¦¡ ¦b¼Ò²Õ¼h¦¸¤¤¥Î¨Ó«Å§i°}¦C¯Á¤Þªº¹w³]¤U­­¡C»yªk Option Base {0 | 1}
   
4. Sub Ex_°}¦C()
   
5. Dim A As String, W, xi As Integer, i As Integer
   
6. W = Array("A", "B", "C", "D")
   
7. MsgBox LBound(W)
   
8. For i = LBound(W) To UBound(W)
   
9. MsgBox "Array(""A"", ""B"", ""C"", ""D"")" & Chr(10) & "W(" & i & ") -> " & W(i)
   
10. Next
    
11. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 30# HSIEN6001
¦pªG©p¨Æ«e¨S¥[¤W On Error Resume Next °»´ú¨ÓÁ׶}¿ù»~ªº¸Ü¡A
¬O·|²£¥Í  °õ¦æ¶¥¬q¿ù»~ '53'¡G§ä¤£¨ìÀÉ®× ªº¡C
©p¨ººØ¼gªk¬O  ¤£ºÞ¤T¤C¤G¤Q¤@¥ý±þ¤F¦A»¡¡I
³o¦b¥¿³Wªºµ{¦¡¼¶¼g»yªk¤W¡A¬O¤£¤Ó¦nªº¡A¤]¬O§Ú·¥¤O¥hÁקKªº¡C
©úª¾·|²£¥Í¿ù»~«o¤S¨«®Ç¹DÁ׶}¡A­þ¤é¤£ÆF¥ú´N¶ã©I«s®â¤F¡I
Á`¤§§Ú¬O«Øij©p¾Ç²ß¥¿­y¼Ò¦¡¡A¹ï©pªº¥\¤O¼Wªø·|¦³¹ê½èÀ°§Uªº¡C

HSIEN6001

¦^´_ 32# GBKEE
¤j­P¤W,¦³·§©À¤F~^^

¦^´_ 33# c_c_lai
¥Î "§PÂ_¦¡" ªºÅÞ¿è¥h¤U«ü¥O , ÁקK¤§«áµ{§Ç¦]On Error Resume Next
¥¼¥X²{°»¿ùªº¬q¸¨´£¥Ü ; ¦Ó²£¥ÍRun¥X¤£§¹¾ãªºµ²ªG
¬O³o¼Ëªº·N«ä¡A§ÚÁA¸Ñ!

¨ü¯q¨}¦h¡AÁÂÁ¨â¦ì¤j¤j«ü¾É!