vb 抽号器怎么制作

vb 抽号器怎么制作

randomize
产生随机数
Private Sub Timer1_Timer()
num = num + 1
Randomize
e1:
Randomize
a(num) = Int((53 - 1 + 1) * Rnd + 1)
If num > 1 Then
For c = 1 To num - 1
If a(num) = a(c) Then
a(num) = 0
GoTo e1
End If
Next
End If
Text1.Text = a(num)
Text2.Text = Text2.Text + vbCrLf + Str(a(num))

If num = 53 Then
Timer1.Enabled = False
Command3.Enabled = True

End If
End Sub

Private Sub Command2_Click() Randomize For i = 0 To 2 a(i) = Int(Rnd * 99999) +1'''随机产生3个数 ，范围1——99999 Next i End Sub print"a(0) + a(1) +a(2)"

提问内没有被抽号的全数是多少，所以把全数当作1000来编程时如下：

dim n(1000) as integer, ｔｔｌ as integer
private sub command1_click()
dim sc, i

sc = val(text1.text)

if sc <= 0 or ttl < sc then end
randomize()
do while sc > 0

i = cint(int(ttl*rnd() + 1))
if n(i) = 0 then

print i

n(i) = 1: sc = sc-1

end if
loop

end sub
private sub form_load()
ttl= 1000
for i = 1 to ttl
n(i) = 0
next i
end sub