要求编写一个VB的FOR循环语句

Private Sub Command1_Click()
Dim a(7, 3) As Integer, i As Integer, j As Integer
Dim Sum As Single, Pjf As Single
Dim s As String
For i = 0 To 7
Sum = 0
Pjf = 0
For j = 0 To 3
a(i, j) = Val(InputBox("请输入第" & j + 1 & "门成绩(-1 退出)", "学生" & i + 1 & "各科成绩录入"))
If a(i, j) = -1 Then Exit Sub
Sum = Sum + a(i, j)
Next
s = s & "学生" & i + 1 & "总分：" & Sum & "分，平均分：" & Format(Sum / 4, "0.00") & vbNewLine
Next
MsgBox s, vbInformation, "成绩统计结果"

End Sub

画一个文本框为text1.然后复制粘贴七个.共八个,分别为text1(0)到text1(7)分两列.一个用于输出总分,一个用于输出平均分
Dim sum As Single
Dim avg(1 To 8) As Single
Private Sub Command1_Click()
For i = 1 To 8
sum = 0
For j = 1 To 4
b = InputBox("请输入第" & i & "位同学的" & "第" & j & "门成绩", "成绩输入")
sum = sum + b
Next j
avg