※ 引述《pfboy (風城是好地方)》之銘言：
: 嗯..那我現在做成這樣了...
: Private Sub cmd_ok_Click()
' Dim x(1 To 6)
dim x(11)
for i=0 to 10
x(i)=0
next
Randomize
L1:
For i = 5 To 10
: x(i) = Int(Rnd * (43 - 0))
' If x(i) = 0 Then
' i = i - 1
' End If
next
if x(i)=x(i-1) or x(i)=x(i-2) or x(i)=x(i-3) or x(i)=x(i-4) or x(i)=x(i-5) then
goto L1
: Tx1.Text = x(1)
: Tx2.Text = x(2)
: Tx3.Text = x(3)
: Tx4.Text = x(4)
: Tx5.Text = x(5)
: Tx6.Text = x(6)
: End Sub
: 但是他TEXT顯示出來的數字會重複...
: 要如何讓他不重複...
我的想法是這樣...有點爛
可能有錯..自己改一下
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.115.229.222
※ 編輯: icehorng 來自: 140.115.229.222 (06/14 15:12)