vb设计随机抽奖程序（怎么用vb编个随机抽取人名的小程序，做到不重复并能直接打印显示已抽到的人名）

本文目录

• 怎么用vb编个随机抽取人名的小程序，做到不重复并能直接打印显示已抽到的人名
• 用vb怎样做一个随机抽取的程序
• VB程序设计，随机抽奖，每次产生一个区间为n到m的中奖号码，并自动排
• [求助]用VB编一个随机抽奖的程序
• VB设计一个随机抽奖程序，当单击开始按钮时，在两个文本框产生【1，20】之间的随机整数
• 用vb设计一个随即抽取幸运数字的程序,单击“开始“按钮,在文本框中随机产生7为数
• 如何用VB设计随机抽取人名程序
• vb 编写一个抽奖程序

怎么用vb编个随机抽取人名的小程序，做到不重复并能直接打印显示已抽到的人名

Dim n As IntegerDim 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怎样做一个随机抽取的程序

程序主体有两部分，第一部分用随机函数，例如Int(Rnd * 50) + 1代表1~50之间随机；抽取随机数后传递到变量里面；然后抽取第二个随机数，与变量比较，不一样则传递到第二个变量上，一样则重新抽取；重复，直至X个变量全部赋值，然后输出。

VB程序设计，随机抽奖，每次产生一个区间为n到m的中奖号码，并自动排

窗体上一个文本框，一个按钮：Option ExplicitPrivate Sub Command1_Click()Dim n As IntegerDim m As IntegerDim x As Integern = 1234m = 5678Randomizex = Int(Rnd * (5678 - 1234 + 1) + 1234)Do While x Mod 4 = 0 x = Int(Rnd * (5678 - 1234 + 1) + 1234)LoopText1.Text = xEnd Sub

[求助]用VB编一个随机抽奖的程序

在vb里新建一个工程添加一个 Command 和 Label 控件 在Command1 的属性窗里把 Caption 设置成 开始代码：’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’Private Sub Command1_Click()Dim R As IntegerIf Command1.Caption = “开始“ Then Command1.Caption = “停止“Else Command1.Caption = “开始“End IfWhile Command1.Caption = “停止“R = Int((36 * Rnd) + 1)Label1.Caption = RDoEventsWendIf R = 24 Then MsgBox “恭喜24号中奖“End Sub’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’

VB设计一个随机抽奖程序，当单击开始按钮时，在两个文本框产生【1，20】之间的随机整数

假定开始按钮是 Command1，两个文本框分别是 Text1、Text2Private Sub Command1_Click() Randomize Text1.Text = Int(Rnd * 20) + 1 Text2.Text = Int(Rnd * 20) + 1End Sub

用vb设计一个随即抽取幸运数字的程序,单击“开始“按钮,在文本框中随机产生7为数

创建一个VB工程，在窗体上放置一个文本输入框text1，一个标签Label1，三个按钮，名称分别为 Command1 “开始” Command2 “暂停” Command3 “退出”再加入一个定时器timer1，Interval属性设置为2000ms 双击开始按钮，添加下面代码Private Sub Command1_Click()Dim a As Longa = Int(Rnd * 9000000 + 1000000)Text1 = aTimer1.Enabled = TrueEnd Sub 双击暂停按钮，添加下面代码Private Sub Command2_Click()Timer1.Enabled = FalseEnd Sub 双击退出按钮，添加下面代码Private Sub Command3_Click()Call Command2_ClickEndEnd Sub 双击窗体，添加下面代码Private Sub Form_Load()Randomize TimerEnd Sub双击定时器，添加下面代码Private Sub Timer1_Timer()Dim a As Longa = Int(Rnd * 9000000 + 1000000)Text1 = aEnd Sub 运行一下，一个幸运数字程序新鲜出炉

如何用VB设计随机抽取人名程序

很简单啊,比如你要从5个人名:张三,李斯,王五,马六,田七你产生1-5个数字:一一对应就行了,如果产生的随机数是1那么label1.caption=“张三“,以此类推!例子:privatesubcommand1_click()randomizeselectcaseint(rnd*5+1)case1label1.caption=“张三“case2label1.caption=“李斯“case3label1.caption=“王五“case4label1.caption=“马六“caseelselabel1.caption=“田七“endselectendsub

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 IfEnd SubPrivate Sub Command1_Click() a = CStr(Text1) Text2 = 10 ^ (Len(a) - 1) + Int(Rnd * 0.9 * 10 ^ Len(a))End Sub