可以啊
Private Sub Command1_Click() Dim a(10) As Integer For a(1) = 1 To 100 Print a(1) NextEnd Sub
Dim yyyymmdd(2) '这里要定义数组变量
