Dim sna(10) As String, sno(10) As String
Dim CHI(10) As Single, ENG(10) As Single, MAT(10) As Single
Dim TOT(10) As Single, AVE(10) As Single, GD(10) As Integer
Dim K As Integer

Private Sub Command1_Click()
K = K + 1
CHI(K) = Val(Text3)
ENG(K) = Val(Text4)
MAT(K) = Val(Text5)
sna(K) = Val(Text1)
sno(K) = Val(Text2)
Text1 = " "
Text2 = " "
Text3 = " "
Text4 = " "
Text5 = " "

End Sub

Private Sub Command2_Click()
For i = 1 To K
total(i) = CHI(i) + ENG(i) + MAT(i)
tave = 100 * total( ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容

Private Sub Command2_Click()
For i = 1 To K
total(i) = CHI(i) + ENG(i) + MAT(i)
tave = 100 * total(i) / 3 + 0.5
Next i

ngd = 1

For i = 1 To K
For i = i + 1 To K <==重复用i了
  p = GD(i)
  q = GD(j)
  If total(p) < total(q) Then
  XX = GD(j)
  GD(j) = GD(i)
  GD(i) = XX
else
  If toal(p) = total(q) Then
  If CHI(p) < CHI(q) Then
  XX = GD(i)
  GD(j) = GD(i)
  GD(i) = XX
  End If
    End If
      End If
Next 变数
p = GD(i)
kgd(p) = ngd
ngd = ngd + 1
Next 变数
p = GD(K)

请问...next前面的变数是....什么....我只是个新手而已＞　＜..
我把i给去掉还是无法执行＞　＜...
还是这个地方total(i)有问题＞ ＜

呵呵...那我接下去补充好了 ，以下是范例喔
FOR I=0 TO 9
FOR J=0 TO 9
  内容
Next J
Next I

内外回圈不能一样，你可以手动试试看就知道了

关于total(i)，要看你的用哪个值