Private Sub Command1_Click()
Dim n%, i%, r%, A() As Integer
n = Val(Text1.Text)
i = 0
Do Until n = 0
n = n \ 2
A(i) = n Mod 2
i = i + 1
Loop
ReDim A(UBound(A))
For i = UBound(A) To 0 Step -1
Label1.Caption = A(i)
Next i
End Sub
问题是提示下标越界 求指点 在A(i)= n mod 2这里