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)，要看你的用哪個值