Option Explicit
Private Sub Command1_Click()
Cls
Dim arr(5) As Integer
Dim i As Byte
Dim t
For i = 1 To 5
arr(i) = i
Next
For Each t In arr
Print t
Next
End Sub
Private Sub Command1_Click()
Cls
Dim arr(5) As Integer
Dim i As Byte
Dim t
For i = 1 To 5
arr(i) = i
Next
For Each t In arr
Print t
Next
End Sub
扫一扫
1050
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
