[VB6 ] 關於陣列排序 Array.Sort() 的錯誤
各位前輩您好
小弟初學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
推
04/28 09:06, , 1F
04/28 09:06, 1F
→
04/28 22:50, , 2F
04/28 22:50, 2F
→
04/29 02:38, , 3F
04/29 02:38, 3F