今天给各位分享vb6.0怎么制作一个抽奖小程序?的知识，其中也会对vb设计随机抽奖程序 点击抽奖按钮 随机抽取进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！
VB编写一个抽奖小程序，要求每次抽奖的数字不重复
Dim n As Integer
Dim a()
Private Sub Command1_Click()
If n = 0 Then '第一次点击时执行
m = Val(Text1)
ReDim a(1 To m)
For i = 1 To m '生成数组a，元素为1至m这m个数
a(i) = i
Next
For i = 1 To m - 1 '随机打乱数组a中元素
r = Int(Rnd * m + 1)
tmp = a(i)
a(i) = a(r)
a(r) = tmp
Next
End If
n = n + 1 '计数点击次数
If n Val(Text1) Then '次数超过指定次数，抽奖结束
MsgBox "抽奖结束！"
Exit Sub
End If
Text2 = a(n) '从数组中抽出第n个数，由于数组中是随机排列，所以相当于生成一个随机数，并且不会重复
End Sub
我想用VB制作一个抽奖型的转盘
这是一个转盘 转到的位置是随机的 具体奖品需要你自己定 我就不帮你了..... 这一句 If c 95 Then Timer1.Interval = 0 这个95 改的越小 停的越快,转到的位置重复的几率也就越大 . 代码细看看, 数值都是活的 可以根据自己需要改.
'添加控件 timer1 command1 line1
Dim x1%, y1%
Dim a As String
Private Sub Command1_Click()
a = 0
Timer1.Interval = 50
End Sub
Private Sub form_load()
Me.AutoRedraw = True
x1 = Me.Width \ 2
y1 = (Me.Height - 405) \ 2
Line1.x1 = x1: Line1.y1 = y1
Me.DrawWidth = 5
Me.Circle (x1, y1), 3000
Line1.BorderWidth = 5
Line1.BorderColor = QBColor(14)
End Sub
Private Sub Timer1_Timer()
Randomize
c = Int((100) * Rnd + 1)
a = a + 1
If a 24 Then Timer1.Interval = 100
If a 40 Then Timer1.Interval = 200
If a 48 Then
Timer1.Interval = 300
If c 95 Then Timer1.Interval = 0
End If
b = (3.14 / 8) * a
Line1.X2 = Line1.x1 + (3000 * Sin(b))
Line1.Y2 = Line1.y1 - (3000 * Cos(b))
End Sub
怎么用vb编个随机抽取人名的小程序，做到不重复并能直接打印显示已抽到的人名
Dim n As Integer
Dim a()
Private Sub Command1_Click()
If n = 0 Then '第点击执行
m = Val(Text1)
ReDim a(1 To m)
For i = 1 To m '数组a元素1至mm数
a(i) = i
Next
For i = 1 To m - 1 '随机打乱数组a元素
r = Int(Rnd * m + 1)
tmp = a(i)
a(i) = a(r)
a(r) = tmp
Next
End If
n = n + 1 '计数点击数
If n Val(Text1) Then '数超指定数抽奖结束
MsgBox "抽奖结束"
Exit Sub
End If
Text2 = a(n) '数组抽第n数由于数组随机排列所相于随机数并且重复
End Sub
关于vb6.0怎么制作一个抽奖小程序?和vb设计随机抽奖程序 点击抽奖按钮 随机抽取的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。