VB 输入一个数 以相反的顺序输出

Dim a(9) As Integer
For i = 0 To 9
a(i) = Val(InputBox(""))
Next i
For i = 9 To 0 step -1
Print a(i)
next i

帮你修改了下。。。你是要实现以上的功能吧..
另外说下数组是从0开始的，定义10有点浪费资源。
谢谢，请采纳~~~~~

人家题目都说是要输入一个数，不是连续一组数。
应该这样吧：
Dim a As String
Dim b As String

a = InputBox("")
For i = Len(a) To 1 Step -1
b = b & Mid(a, i, 1)
Next i
Debug.Print b

如果需要对输入的内容作检查。
可以用IsNumber(a)判断，加入错误处理。