发布网友 发布时间:2022-04-29 09:41
共2个回答
热心网友 时间:2022-06-25 15:36
Private Sub Command1_Click()
Dim a(10) As Integer
Print "初始的数:"
For i = 1 To 10
a(i) = InputBox("请输入第" & i & "个数:")
Print a(i);
Next i
For i = 1 To 5
t = a(i)
a(i) = a(11 - i)
a(11 - i) = t
Next i
Print "逆序重新存放后的数:"
For i = 1 To 10
Print a(i);
Next i
Print: Print
End Sub
热心网友 时间:2022-06-25 15:37
详细要求有没有?