作者c171 (C171)
看板Visual_Basic
標題[VB6 ] 如何讓多維陣列的初始值設為1?
時間Sat Jun 4 02:57:56 2011
我寫一個排列名次的程式如下
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)
1F：→ pinkykk:全部+1? 06/04 15:28
2F：→ c171:嗯 對 06/04 16:55
3F：→ c171:該怎麼加呢 06/04 16:55
4F：→ mathlinka:把結果加 1 怎麼樣？ List2.AddItem class(i) + 1 06/06 16:05
5F：→ c171:可以耶，成功了！ 謝謝樓上:-D 06/06 21:09