[VB6 ] 如何讓多維陣列的初始值設為1?
我寫一個排列名次的程式如下
Dim score(1 To 5), class(1 To 5) As Integer
Private Sub 排列名次_Click()
For i = 1 To 4
For k = i + 1 To 5
If score(i) < score(k) Then
class(i) = class(i) + 1
ElseIf score(i) > score(k) Then
class(k) = class(k) + 1
End If
Next k, i
For i = 1 To 5
List2.AddItem class(i)
Next i
End Sub
假設成績輸入並出現在List1清單為55 44 33 22 11
照理說List2出來的結果會是12345排序,我卻是01234
如何將上色的部份之初始值改成1呢?
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.209.150
※ 編輯: c171 來自: 210.209.150.14 (06/04 03:01)
→
06/04 15:28, , 1F
06/04 15:28, 1F
→
06/04 16:55, , 2F
06/04 16:55, 2F
→
06/04 16:55, , 3F
06/04 16:55, 3F
→
06/06 16:05, , 4F
06/06 16:05, 4F
→
06/06 21:09, , 5F
06/06 21:09, 5F