VB:做一个抽奖机(七个数的)。

发布网友 发布时间：2022-05-12 18:35

我来回答

共2个回答

热心网友 时间：2023-10-17 22:05

呵呵，想随机双色球？我很早就做过了。你在窗体添加一个文本框Text1，添加一个命令按钮command1，添加一个时钟timer1，代码如下：Option ExplicitPrivate Sub Command1_Click()
If Timer1.Enabled = False Then
Timer1.Enabled = True
Command1.Caption = "停止"
Else
Timer1.Enabled = False
Command1.Caption = "开始"
End If
End SubPrivate Sub Form_Load()
Command1.Caption = "开始"
Timer1.Enabled = False
Timer1.Interval = 100
End SubPrivate Sub Timer1_Timer()
Dim tmpNum(7) As Integer
Dim i As Integer, j As Integer
Text1 = ""
Randomize '初始化随机数种子
For i = 0 To 6
ReGet:
tmpNum(i) = Int(Rnd() * 32) + 1
If i > 0 Then
For j = 1 To i
'数字重复则从新得到
If tmpNum(i) = tmpNum(j - 1) Then GoTo ReGet:
Next
End If
DoEvents
Next

'排序
For i = 0 To 6
For j = 0 To 5
If tmpNum(j) > tmpNum(j + 1) Then
tmpNum(7) = tmpNum(j)
tmpNum(j) = tmpNum(j + 1)
tmpNum(j + 1) = tmpNum(7)
End If
DoEvents
Next
DoEvents
Next

For i = 0 To 6
Text1 = Text1 & tmpNum(i) & ","
Next
Text1 = Left(Text1, Len(Text1) - 1)
End Sub

热心网友 时间：2023-10-17 22:05

timer事件里写Label1.caption=int(rnd()*32)+1 //产生1~33随机数在标签控件显示这样数字就滚了不重复只要在产生随机数的时候做DO判断就可以了