Sub a()
Dim i人数 As Integer
'定义变量
Dim i考试成绩() As Integer
'定义数组
Dim i As Integer
'定义变量
i人数 = InputBox("输入学生的人数：")
'弹出输入框
ReDim Preserve i考试成绩(i人数)
'根据输入的人数来定义数组的长度，ReDim指定大小并通过Preserve保留已输入数组的值
For i = 1 To i人数
i考试成绩(i) = InputBox("输入考试成绩" & i)
Cells(i, "c") = i考试成绩(i)
Next
End Sub
相关文章：