VB：做一个抽奖机（七个数的）。

发布网友发布时间：2022-04-22 16:34

共1个回答

热心网友时间：2023-10-03 00:39

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com