Private Sub Command1_Click()
Dim i(1 To 10) As Integer

For i(1) = 1 To 10
Debug.Print i(1)
Next i

End Sub

还真不太这样用,不过确实是可以的,你可以试试.VB里是如此.

可以啊!!
VB:
private sub command1_Click()
     static a() as integer
     const n as Byte =10
     redim a(n)as integer
     for i=0 to n-1
         debug.pring(i)
     next
end sub

同理,QB也一样可以 redim

vb 可以 我实验了 请说qbasic 也可以的 给出 程序 ，不要想当然！