vb用組合框設計壹個簡易抽獎機

Private?Sub?Command1_Click()

Dim?A?As?Integer,?B?As?Integer

A?=?5

Timer1.Enabled?=?False

B?=?Val(Text1.Text)

If?A?=?B?Then

MsgBox?"哈哈！中獎了！再來！"

Timer1.Enabled?=?True

Else

MsgBox?"哎！沒有中獎呀！再來！"

Timer1.Enabled?=?True

End?If

End?Sub

Private?Sub?Form_Load()

Timer1.Enabled?=?True

Timer1.Interval?=?10

End?Sub

Private?Sub?Timer1_Timer()

Randomize

Text1.Text?=?Int(Rnd?*?9?+?1)

End?Sub

上一篇:余額寶提現到銀行卡要多久到賬

下一篇:為什麽我的電腦開機時就出現ox7c936f56指令引用的0xo10975ff內存