改下代码，把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

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

  “五个学生的平均分”和”五个学生的总平均分”具体指什么？

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)
        Next
            PJF1 = ZF1 / 5      '这行应放循环外,计算该学生的平均分
        Print "第" & t & "个学生的总分="; ZF1
        Print "第" & t & "个学生的平均分="; PJF1; ""
        B(t) = ZF1
        ZF = ZF + B(t)
    Next
    '照样,这几个放外面
        PJF = ZF / (5 * 5)
        ZPJF = ZF / 5

    Print "五个学生的总分="; ZF
    Print "五个学生的平均分="; PJF
    Print "五个学生的总平均分="; ZPJF
End Sub

最后,
你这个贴子是要问什么问题呢???

按你这样前面的格式显示,显示不了.

这里,你需要使用用空格的 相对计算.还有,需要显示之前设置一下字体,并不是所有的系统都是默认是等宽字体的.

print 成绩 ;    '注意,加分号,表示后面一行接着这里显示

next  后面增加一行
print           '没有任何参数,表示换行.

然后再接着你后面的.你自己看着改吧.

楼主，你那程序运行不报错吗？

For i = 1 To 5  ←这个地方不溢出？
            A(i) = Val(InputBox("请输入第" & t & "个学生的第" & i & " 门功课成绩"))
            ZF1 = ZF1 + A(i)
        Next

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