答案:Private Sub Command1_Click() Dim num(4) As String '声明一个数组存放输入的数据 Dim i As Integer For i = 0 To 4 '进行循环输入数据 num(i) = InputBox("请输入第" & (i + 1) & "个数:", "输入提示") Next For i = 4 To 0 Step -1 ‘在进行反向打印只需要将循环反过来写就OK了 MsgBox "输入的第" & i + 1 & "个数为:" & num(i) Next End Sub