怎么用vb做一个抽奖程序(VB制作抽签程序？)
如何利用vb制作抽奖小程序？
1、点击电脑桌面右键选择新建，在列表里面选择表格，然后输入要使用的抽奖数据。
如何运用VB编写一段随机抽取试题的程序？
程序主体有两部分，第一部分用随机函数，例如Int(Rnd * 50) 1代表1~50之间随机；抽取随机数后传递到变量里面；然后抽取第二个随机数，与变量比较，不一样则传递到第二个变量上，一样则重新抽取；重复，直至X个变量全部赋值，然后输出。
如何用VB制作随机学号抽取器？
这个需要应用以下几个步骤：
写一个获取随机学号函数。
将这个函数绑定在某个控件上触发抽学号的事件。
在某个输出界面显示这个随机学号。
首先，学号肯定是整数，所以在窗体代码区定义一个整型的变量来存放
Dim StudentNum as Integer
然后，新建一个模块，在模块中书写随机数函数，该函数有个整型的返回值。
该函数传入2个参数，用于界定随机数的上界和下界(也就是最大最小值)
Public Function GetNum (Byval L,Byval U) as Integer
Randomize '重置随机种子
GetNum=Int((U - L 1) * Rnd L) '将范围内获得一个随机整数赋值给该函数的返回值
End Function
写完了这个函数，记下它的表达式 接收变量=GetNum(最小值，最大值)
最后，在窗体中画一个按钮(Command1)，一个文本框(名为Text1),一个定时器(Timer1)
1.双击这个窗体Form1，在它的Load事件中写下：
…
’让定时器50秒运行一次
Timer1.Enabel=True ‘让定时器允许运作
…
2.双击定时器Timer1,在它的事件里写下：
…
StudentNum=GetNum(1，30)
'假设学生学号从1号到30号，如果经常变动可以从外部获取，用变量表示。
Text1.Text=StudentNum amp
VB制作抽签程序？
要vb能用点击开始后按钮上的“开始”两个字会变成“结束”人名会在一个框里不断滚动直到点击结束才停止请把代码列出来人名先用“1234......”代下只建一个Command和一个labell或textb...
版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。
