vbèµå¼ç»æ°ç»ï¼æ以ä¸å ç§æ¹å¼ï¼
第ä¸ç§æ¹å¼ï¼
Private Sub Command1_Click()
Dim a(10) As Integer 'å®ä¹æ°ç»a,ä¸æ æ大å¼ä¸º10
For i = 0 To 10
a(i) = i'è¿éå¯ä»¥ç´æ¥ç»æ°ç»èµå¼äº
Print "a(" & i & ")çå¼" & a(i) 'æå°æ°ç»
Next
End Sub
第äºç§æ¹å¼ï¼
Private Sub Command1_Click()
Dim a() As Integer 'å®ä¹æ°ç»aï¼è¿éæªè®¾ç½®ä¸æ
For i = 0 To 10
ReDim Preserve a(i)'ReDim è¯å¥æ¹åæ°ç»çå
ç´ ä»¥åç»´æ°çæ°ç®
a(i) = i'è¿éå¯ä»¥ç´æ¥ç»æ°ç»èµå¼äº
Print "a(" & i & ")çå¼" & a(i)
Next
End Sub
第ä¸ç§æ¹å¼ï¼
Private Sub Command1_Click()
a = Array(1, 5, 2, 43, 222)
MsgBox "a(0)åæ¥çå¼æ¯ï¼" & a(0)
a(0) = 100
MsgBox "a(0)èµå¼åçå¼æ¯ï¼" & a(0)
End Sub
温馨提示:答案为网友推荐,仅供参考