Excel VBA中数组的连续输入及显示

VBA Excel 的数组输入以及循环显示，应用于VBA中的Visual Basic

其中涉及数组的大小的重新定义尺寸，用Redim commond

Public Sub Grade()
Dim i人数 As Integer
Dim i考试成绩() As Integer
Dim i As Integer
i人数 = InputBox("输入学生的人数：")
ReDim Preserve i考试成绩(i人数)
For i = 1 To i人数
i考试成绩(i) = InputBox("输入考试成绩" & i)
Next
For Each scote In i考试成绩
MsgBox scote
Next

End Sub

Result：

 

这里显示于自己想要的数组的大小.

通过Msgbox 显示其应用。