vb题求助！

结果是1

Private Sub Command1_Click()

当单击按钮1时：
Dim a(4) As Integer
Dim b(4) As Integer
设a，b是整数
For k = 0 To 2

k是0-2的数
a(k + 1) = Val(InputBox("enter date:"))

弹出一个对话框，对话框中显示enter date，a(k + 1)是输入框中的数

b(3 - k) = a(k + 1)
b(3 - k) 是 a(k + 1)

Next k

Print b(k)
显示 b(k)
End Sub

结束程序

考试时，直接输入vb更省时省力

答下吧
'按钮单击事件
Private Sub Command1_Click()
'定义两个整形数组a,b
Dim a(4) As Integer
Dim b(4) As Integer
'循环为数组赋值
For k = 0 To 2'k取值为0\1\2,可以将k看成这些,带到下面去
a(k + 1) = Val(InputBox("enter date:"))
b(3 - k) = a(k + 1)
Next k
'打印到屏幕,就是显示在窗口了
Print b(k)
End Sub

循环结束后：
b(3)=1
b(2)=3
b(1)=5
k=3
所以print b(k)=print b(3)
所以结果为1
如果是笔试题，你没有vb可用。