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