改下代码，把5个学生的各科课程显示在前面
Private Sub Command2_Click()
    Print Tab(0); "姓名"; Tab(9); "语文"; Tab(19); "数学"; Tab(29); "物理"; Tab(39); "化学"; Tab(49); "政治"

    Dim A(1 To 5) As Integer
    Dim B(1 To 5) As Integer
    Dim au As Integer
    Dim bu As Double
    Dim cu As Double
    Dim i As Integer
    Dim t As Integer
    Dim ZF As Double
    Dim PJF As Double
    Dim ZF1 As Double
    Dim PJF1 As Double
    Dim ZPJF As Double
    ZF1 = 0
    ZF = 0
    For t = 1 To 5
        
        ZF1 = 0
        For i = 1 To 5
            A(i) = Val(InputBox("请输入第" & t & "个学生的第" & i & " 门功课成绩"))
            ZF1 = ZF1 + A(i)
            PJF1 = ZF1 / 5
        Next
        Print "第" & t & "个学生的总分="; ZF1
        Print "第" & t & "个学生的平均分="; PJF1; ""
        B(t) = ZF1
        ZF = ZF + B(t)
        PJF = ZF / (5 * 5)
        ZPJF = ZF / 5
    Next
    Print "五个学生的总分="; ZF
    Print "五个学生的平均分="; PJF
    Print "五个学生的总平均分="; ZPJF
End Sub

还是没人理？是问题太简单？是问题太古怪？是没版主管理？

不好意思,因为工作太忙,所以没时间学了,所以没上论坛.谢谢各位的指点.现在改学delphi,会常上论坛,还望大虾多多指教