用VB编写程序将输入的5个数据按照输入的顺序逆向输出。

5个数用一维数组表示。假定输入的是数值型数据。按照其输入的顺序,分别用D(1),D(2),D(3),…,D(5)表示。输出时,反过来D(5),…,D(3),D(2),D(1)即可。事件过程放在按钮的单击事件里。 最好现在就有回答的!!急!!!

Private Sub Command1_Click()
Dim i As Integer, D(4) As Integer
For i = 0 To 4
D(i) = InputBox("请输入任意五个数", "请只输入数字")
Next i

For i = 4 To 0 Step -1
Print vbNewLine & D(i)
Next i
End Sub

刚为你量身定做的!
温馨提示:答案为网友推荐,仅供参考
第1个回答  2010-06-18
Private Sub Command1_Click()
Dim i As Integer, D(4) As Integer
For i = 0 To 4
D(i) = val(InputBox("请输入任意五个数", "请只输入数字"))
Next i

For i = 4 To 0 Step -1
Print D(i) & chr(13)
Next i
End Sub