查人人中国名人网清华和北大哪个景色好:VB编写电脑抽奖的程序
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/05 13:38:09
这个程序要运行后号码不断滚动,你点一下键盘的某一个键,就出现一组中奖号,再点号码继续滚动,抽出十组后程序提示抽奖结束.要求每组中奖号可以自由设定.
我知道你的意思：是不是每组数字来回滚动，随即组合。
停止时，组合成一组数字，并以这组数字作为中奖号码。
建立一个按钮：command1
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
'a b c 为随机变量
dim abc as String
'abc为组合号码
a = Int(Rnd * 9) + 1
b = Int(Rnd * 9) + 1
c = Int(Rnd * 9) + 1
abc=a & b & c '组合中奖号码
'假设3到10等奖为003,004......,010
If a = 001 Then
MsgBox "你中了1等奖!", vbOKOnly, "系统提示"
End if
If a = 002 Then
MsgBox "你中了2等奖!", vbOKOnly, "系统提示"
End if
......
......
If a = 010 Then
MsgBox "你中了10等奖!", vbOKOnly, "系统提示"
End if
End Sub
OK...
你的意思我觉得大概是这样吧
调整数量？是不是获奖概率？如果是再定义一个一维数组就行
Private Sub Command1_Click()
Dim a As Integer
a = Int(Rnd * 9) + 1
If a >= 3 Then
MsgBox "你中了" + Str(a) + "等奖!", vbOKOnly, "系统提示"
ElseIf a < 3 Then
MsgBox "抱歉，你没有中奖。!", vbOKOnly, "系统提示"
End If
End Sub
强啊 !!!
我同意他的方法
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
'a b c 为随机变量
dim abc as String
'abc为组合号码
a = Int(Rnd * 9) + 1
b = Int(Rnd * 9) + 1
c = Int(Rnd * 9) + 1
abc=a & b & c '组合中奖号码
'假设3到10等奖为003,004......,010
If a = 001 Then
MsgBox "你中了1等奖!", vbOKOnly, "系统提示"
End if
If a = 002 Then
MsgBox "你中了2等奖!", vbOKOnly, "系统提示"
End if
......
......
If a = 010 Then
MsgBox "你中了10等奖!", vbOKOnly, "系统提示"
End if
End Sub
首先你要用到timer控件，设置一个时间片断，每个一个时间段号码牌滚动一次。按下一个键，把timer设置为false，号码牌停止滚动；再按下一个键则继续。
如果连接数据库呢？