作者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