VB编写电脑抽奖的程序

来源：百度知道 编辑：UC知道 时间：2024/05/18 04:12:16
谁能帮我用VB编写一段电脑抽奖的程序?我要交作业啊,高手大哥大姐帮帮我好吗?要求能抽3到10等奖,每等奖可以自己随便设每个奖的数量.最好有语句注释.在下谢谢啦!我可以给500分!
这个程序要运行后号码不断滚动,你点一下键盘的某一个键,就出现一组中奖号,再点号码继续滚动,抽出十组后程序提示抽奖结束.要求每组中奖号可以自由设定.

我知道你的意思：是不是每组数字来回滚动，随即组合。
停止时，组合成一组数字，并以这组数字作为中奖号码。
建立一个按钮：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, "系统提示"
Els