急求一个vb抽号器的程序设计，步骤清晰！人数40

急急急！！！编程语言要清晰！！谢~~

添加一个Label控件和一个Command Button控件，代码非常简单

Private Sub Command1_Click()
Label1.Caption = CInt(Rnd * 40) +1
End Sub

rnd就是产生一个0到1之间的随机数，乘以40就变成0到40之间的小数，因为座号是整数，所以用Cint()函数变成整数0到39之之间的整数，然后加1.就是1到40

提问内没有被抽号的全数是多少，所以把全数当作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

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息