想必现在有很多小伙伴对于【求助】vb中的抽奖程序方面的知识都比较想要了解，那么今天小好小编就为大家收集了一些关于【求助】vb中的抽奖程序方面的知识分享给大家，希望大家会喜欢哦。
我做过像你这样的一个，还具有黑名单功能，调节滚动速度功能，你要吗？
privatedeclarefunctiongetasynckeystatelib"user32"(byvalvkeyaslong)asinteger
dima()asstring
转载或者果引用本积文内容请或注机明来源于提芝士回答
dimiasinteger
dimjasinteger
dimkasinteger
制日给口金极己今型格引。
privatesubcommand1_click()
label2.visible=false
了大动点把相全么问级角根济走千周族育照。
label1.visible=true
ifk=0then
timer1.interval=2
else
timer1.interval=2
timer2.interval=me.caption
endif
command2.zorder
endsub
privatesubcommand2_click()
ifk=0then
timer1.interval=0
else
timer1.interval=0
timer2.interval=0
label1.visible=false
label2.visible=true
endif
k=0
command1.zorder
endsub
privatesubform_load()
j=3'3为正常抽的总人数+1
redima(1to5)asstring'87为正常抽的人数+黑名单人数
a(1)="j1"'
a(2)="j2"
'以下是黑名单
a(3)="x1"
a(4)="x2"
a(5)="x3"
endsub
privatesubtimer1_timer()
i=i+1
label1.caption=a(i)
ifi=2theni=0'2为正常抽的总人数
endsub
privatesubtimer2_timer()
j=j+1
label2.caption=a(j)
ifj=5thenj=3'5为黑名单截止的下标数，3为5为黑名单开始的下标数
endsub
privatesubtimer3_timer()
ifgetasynckeystate(vbkeyf1)thenk=1'按下f1键进入黑名单模式
ifgetasynckeystate(vbkeyup)thenme.caption=me.caption+1
ifgetasynckeystate(vbkeydown)thenme.caption=me.caption-1'按下降符号降低速度
endsub
本文到此结束，希望对大家有所帮助。
