作者doidoidoi (賤人社輔導股長)
看板Visual_Basic
標題[VB6 ] 關於陣列排序 Array.Sort() 的錯誤
時間Wed Apr 28 06:09:50 2010
各位前輩您好
小弟初學VB有一個錯誤實在解決不了
請各位前輩幫忙一下
我在一個按鈕中寫了一個小程式
但是在Array.Sort(number1)這行會出現錯誤
"必須是:行號 或 標籤 或 陳述式 或 陳述式結尾"
以下是程式碼
-----------------------------------------------
Private Sub Command1_Click()
Dim number1(5) As Integer
Dim Flag As Boolean
Flag = False
Dim make As Integer
make = 0
Randomize Timer
For i = 0 To 5 Step 1
Flag = False
Do While Flag = False
make = CInt(Int(Rnd * 42) + 1)
For j = 0 To 5 Step 1
If number1(j) <> make Then
Flag = True
End If
Next
If Flag = True Then
number1(i) = make
End If
Loop
Next
Array.Sort(number1)
Text1 = number1(0)
Text2 = number1(1)
Text3 = number1(2)
Text4 = number1(3)
Text5 = number1(4)
Text6 = number1(5)
End Sub
--------------------------------------------
不知道各位前輩知不知道小弟哪裡寫錯了?
是沒有引入什麼必要的標頭檔嗎?
麻煩各位前輩幫我解答一下
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.127.204.32
1F：推 jwjeng:VB6 有 Array.Sort() 這個指令嗎? 04/28 09:06
2F：→ mron:沒有。 04/28 22:50
3F：→ doidoidoi:原來是因為VB6沒有 謝謝各位的解答。 04/29 02:38