Question

关于VB编程的问题

麻烦大虾们帮帮忙啊！
有着么一道题：声明一个有20个元素的一维数组A，使用Inputbox函数为其所有元素赋值，然后将其所有元素的值及其下标显示出来。
麻烦给一下编程的步骤，感激不尽啊！

Answer 1

Sub ZLDCCMX()
'有着么一道题：声明一个有20个元素的一维数组A，使用Inputbox函数为其所有元素赋值，然后将其所有元素的值及其下标显示出来。
Dim A(1 To 20) '声明一个有20个元素的一维数组A
Arr = InputBox("请为数组赋值，每个元素之间用空格隔开!" & vbCrLf & vbCrLf & "如：11 22 33 4 5 6 7 8" & vbCrLf & vbCrLf & "一共20个", "输入20个元素：")
Arr = Split(Arr, " ")
For I = 0 To UBound(Arr)
A(I + 1) = Arr(I)
Debug.Print "A(" & I + 1 & ")=" & A(I + 1)
Next
Do While I < 19
Brr = InputBox("请继续为数组赋值，每个元素之间用空格隔开!" & vbCrLf & vbCrLf & "如：11 22 33 4 5 6 7 8", "你少输了" & 20 - I & "个元素!请补充：")
Brr = Split(Brr, " ")
For J = 0 To UBound(Brr)
A(I + 1) = Brr(J)
Debug.Print "A(" & I + 1 & ")=" & A(I + 1)
I = I + 1: If I = 20 Then Exit Do
Next
Loop
End Sub

Answer 2

Public Sub iArr()
Dim i As Integer, a(1 To 20), s$
For i = 1 To 20
a(i) = InputBox("请输入第" & i & "个数:")
Next
For i = LBound(a) To UBound(a)
s = s & Chr(10) & "第" & i & "个元素的值：" & a(i)
Next
MsgBox s
End Sub

Answer 3

Dim A(1 To 20), i As Integer
For i = 1 To 20
A(i) = InputBox("请输入第" & i & "个元素的值。")
Next
For i = 1 To 20
MsgBox "第" & i & "个变量是" & A(i)
Next

Answer 4

dim i as integer
for i =1 to 20
a(i)=input("请输入第" & i & "个数")
next
for i =1 to 20
msgbox "第" & i & "个变量是" & a(i)
next