vb设计随机抽奖程序（如何用VB设计随机抽取人名程序）
本文目录
- 如何用VB设计随机抽取人名程序
- 怎么用vb编个随机抽取人名的小程序，做到不重复并能直接打印显示已抽到的人名
- [求助]用VB编一个随机抽奖的程序
- VB程序设计，随机抽奖，每次产生一个区间为n到m的中奖号码，并自动排
- vb 编写一个抽奖程序
- VB设计一个随机抽奖程序，当单击开始按钮时，在两个文本框产生【1，20】之间的随机整数
如何用VB设计随机抽取人名程序
很简单啊,比如你要从5个人名:张三,李斯,王五,马六,田七
你产生1-5个数字:一一对应就行了,如果产生的随机数是1
那么label1.caption=“张三“,以此类推!
例子:
private
sub
command1_click()
randomize
select
case
int(rnd
*
5
+
1)
case
1
label1.caption
=
“张三“
case
2
label1.caption
=
“李斯“
case
3
label1.caption
=
“王五“
case
4
label1.caption
=
“马六“
case
else
label1.caption
=
“田七“
end
select
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
[求助]用VB编一个随机抽奖的程序
在vb里新建一个工程
添加一个 Command 和 Label 控件 在Command1 的属性窗里把 Caption 设置成 开始
代码：
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
Private Sub Command1_Click()
Dim R As Integer
If Command1.Caption = “开始“ Then
Command1.Caption = “停止“
Else
Command1.Caption = “开始“
End If
While Command1.Caption = “停止“
R = Int((36 * Rnd) + 1)
Label1.Caption = R
DoEvents
Wend
If R = 24 Then MsgBox “恭喜24号中奖“
End Sub
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
VB程序设计，随机抽奖，每次产生一个区间为n到m的中奖号码，并自动排
窗体上一个文本框，一个按钮：
Option Explicit
Private Sub Command1_Click()
Dim n As Integer
Dim m As Integer
Dim x As Integer
n = 1234
m = 5678
Randomize
x = Int(Rnd * (5678 - 1234 + 1) + 1234)
Do While x Mod 4 = 0
x = Int(Rnd * (5678 - 1234 + 1) + 1234)
Loop
Text1.Text = x
End Sub
vb 编写一个抽奖程序
command1用来随机抽取，text2显示
text1用来自己输入
command2用来判断
基本思想：假设连续有a位相同，经过验证如果为真则得出结果，如果为假，则假设a=a-1位相同……直到a=0
也可以自己输入text2数据来检验程序
这段程序不局限于7位数
Private Sub Command2_Click()
Dim a$, b$, i%, j%, k%
a = CStr(Text1)
b = CStr(Text2)
For i = Len(a) To 1 Step -1
For j = 1 To Len(a) - i + 1
If Mid(a, j, i) = Mid(b, j, i) Then
k = i
Exit For
End If
Next
If k 《》 0 Then Exit For
Next
Print k, Mid(a, j, i)’输出相同位数和相同数字
If len(a)+1-k》5 Then
MsgBox “对不起，无奖项“
Else
MsgBox Len(a) + 1 - k & “等奖“’判断奖项
End If
End Sub
Private Sub Command1_Click()
a = CStr(Text1)
Text2 = 10 ^ (Len(a) - 1) + Int(Rnd * 0.9 * 10 ^ Len(a))
End Sub
VB设计一个随机抽奖程序，当单击开始按钮时，在两个文本框产生【1，20】之间的随机整数
假定开始按钮是 Command1，两个文本框分别是 Text1、Text2
Private Sub Command1_Click()
Randomize
Text1.Text = Int(Rnd * 20) + 1
Text2.Text = Int(Rnd * 20) + 1
End Sub
更多文章：
turtles歌曲（哪位大神有turtles（乌龟组合）的<谢谢>的歌词中文翻译 感激不尽）
2026年10月11日 10:00
2026年10月11日 09:40
金山铁路22号线（请问现在轨道交通22号线金山铁路是个什么情况据说9月28日就开通了啊~~~）
2026年10月11日 09:10
repercussions（都是余波，repercussions和aftermath有什么区别啊）
2026年10月11日 09:00
dropdownlist 绑定（DropDownList 绑定所有项 并 显示指定项）
2026年10月11日 08:50
2026年10月11日 08:10
易语言网页api接口怎么调用（易语言，怎么读取网页json的api）
2026年10月11日 08:00
majority of（the majority of 和 a majority of的区别以及用法例句）
2026年10月11日 07:40
2026年10月11日 07:20
2026年10月11日 06:30
