Question

声明一个有20个元素的一维数组A，使用InputBox函数为其所有元素赋值，然后将其所有元素的值及其下标显示出

VB编程题，要求详细过程

Answer 1

Private Sub Form_Click()
Dim arry(20) As Integer
Dim str1 As String
For i = 0 To 19
str1 = "请输入第" + Str(i) + "个值"
arry(i) = Val(InputBox(str1, "输入值"))
Next i
For i = 0 To 19
Print "下标为"; i; "你输入的值为"; arry(i)
Print
Next i
End Sub
把这个贴到你的代码上，我自己写的，要给分哦。

Answer 2

代码如下：
Private Sub Form_Click()
Dim arry(20) As Integer
Dim str1 As String
For index = 1 To 20
str1 = "请输入第" + index + "个值"
arry(index - 1) = Val(InputBox(str1, "输入值"))
Next index
For index = 0 To 19
Print "下标为" + index + "你输入的值为"+ arry(index)
Print
Next index
End Sub

Answer 3

Private Sub Form_Click()
Dim a(1 To 20), i As Integer, j As Integer
For i = 1 To 20
a(i) = InputBox("")
Next i
For j = 1 To 20
Print "a(" & j & ")=" & a(j)
Next j
End Sub