Question

VB高手用VB编写下面键盘上输入10个数

VB高手用VB编写下面键盘上输入10个数

Answer 1

Private Sub Command1_Click()
Dim a(1 To 10)
For i = 1 To 10
a(i) = Val(InputBox("输入第" & i & "个数"))
Next i

'原来的数组
For i = 1 To UBound(a)
Print a(i);
Next i
Print

'交换数值
k = UBound(a)
For i = 1 To k / 2
m = a(i): a(i) = a(k + 1 - i): a(k + 1 - i) = m
Next i

'交换后的数组
For i = 1 To UBound(a)
Print a(i);
Next i
Print
End Sub