输入10个同学3门课成绩，求每个同学的总分，并按总分从高到低顺序输出。（每个同学名次），但是指导老师说有问题，哪里出问题了，麻烦各位看一下，谢谢



Private Sub Command1_Click()
Dim a(10, 5)
Print "成绩1"; Tab(6); "成绩"; Tab(12); "成绩"; Tab(18); "总分"; Tab(24); "名次"
  For i = 1 To 3
  a(i, 4) = 0
   For j = 1 To 3
    a(i, j) = Val(InputBox("第" & i & "个同学第" & j & "门成绩"))
    a(i, 4) = a(i, 4) + a(i, j)
   Next j
  Next i
   For i = 1 To 3
    a(i, 5) = 1
     For j = 1 To 3
      If a(j, 4) > a(i, 4) Then
       a(i, 5) = a(i, 5) + 1
      End If
    Next j
    Next i
    For i = 1 To 3
     For j = 1 To 5
         Print Tab((j - 1) * 6); a(i, j);
     Next j
     Print
     Next i
     
   
End Sub

是排版的问题吗?最后一段~Tab我不熟~用Space代替~感觉主要是少个vbCrLf~
没判断输入的是否为数字或没字也是个问题~
第一行让你数组索引从1起算~反正你不用0~全贴了~

Option Base 1

Private Sub Form_Load()
Dim a(10, 5)

    Debug.Print Space(5); "成绩1"; Space(5); "成绩"; Space(5); "成绩"; Space(5); "总分"; Space(5); "名次"
  
    For i = 1 To 3
        a(i, 4) = 0
        For j = 1 To 3
            a(i, j) = Val(InputBox("第" & i & "个同学第" & j & "门成绩"))
            a(i, 4) = a(i, 4) + a(i, j)
        Next j
    Next i
    
    For i = 1 To 3
        a(i, 5) = 1
        For j = 1 To 3
            If a(j, 4) > a(i, 4) Then
                a(i, 5) = a(i, 5) + 1
            End If
        Next j
    Next i
    
    For i = 1 To 3
        For j = 1 To 5
            
            Debug.Print Space(6); a(i, j);
        Next j
        Debug.Print vbCrLf
    Next i
    
End Sub

[ 本帖最后由 wube 于 2011-5-2 21:44 编辑 ]

好像没有进行名次排序

从什么地方可以表现出你输入了10个成绩？

不清楚版主要什么~改过之后~我从1输入到9~跑出这样的结果~

     成绩1     成绩     成绩     总分     名次
       1        2        3        6        3

       4        5        6        15        2

       7        8        9        24        1