Private Sub Command1_Click()
Dim a(10)
Print "原始整数为："
For i = 1 To 10
a(i) = Val(InputBox("请输入第" & i & "个整数："))
Print a(i);
Next i
Print
Print "逆序输出的整数："
For i = 10 To 1 Step -1
End Sub
