VB编程问题
VB编程问题
日期：2016-11-23 07:13:57 人气：1
Option Base 0
Private Sub Command1_Click()
Dim a1(4) As Integer, a2(4) As Integer
For k = 0 To 2
a1(k + 1) = InputBox("请输入一个整数")
a2(3 - k) = a1(k + 1)
Next k
For k = 0 To 2
Print a2(k)
Next k
End Su