今天给各位分享vb随机读取名字的知识，其中也会对vb随机从文本随机抽取人名进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录

1. 如何用VB制作随机学号抽取器
2. VB中如何取随机数
3. VB随机取数怎么做

[One]、如何用VB制作随机学号抽取器

将这个函数绑定在某个控件上触发抽学号的事件。

在某个输出界面显示这个随机学号。

首先，学号肯定是整数，所以在窗体代码区定义一个整型的变量来存放

然后，新建一个模块，在模块中书写随机数函数，该函数有个整型的返回值。

该函数传入2个参数，用于界定随机数的上界和下界(也就是最大最小值)

PublicFunctionGetNum(ByvalL,ByvalU)asInteger

GetNum=Int((U-L+1)*Rnd+L)'将范围内获得一个随机整数赋值给该函数的返回值

写完了这个函数，记下它的表达式接收变量=GetNum(最小值，最大值)

最后，在窗体中画一个按钮(Command1)，一个文本框(名为Text1),一个定时器(Timer1)

1.双击这个窗体Form1，在它的Load事件中写下：

Timer1.Interval=50’让定时器50秒运行一次

Timer1.Enabel=True‘让定时器允许运作

2.双击定时器Timer1,在它的事件里写下：

'假设学生学号从1号到30号，如果经常变动可以从外部获取，用变量表示。

Text1.Text=StudentNum&"号"

'把取到的随机数显示在文本框里面

3.双击按钮Command1,在它的点击事件里写下

Timer1.Enable=False'计时器停止运作

Msgbox"选中了"&StudentNum&"号",26,"选中了该学号"'把结果弹出对话框

Timer1.Enable=True’启用已经停止的计时器，可以进行下一次选号

[Two]、VB中如何取随机数

〖One〗、打开“MicrosoftVisualBasic6.0中文版”软件，准备一个空白的工程文件：

〖Two〗、然后需要一个命令按钮，单击左侧工具箱中的“命令按钮”，在窗体中右侧拖动鼠标左键画出即可：

〖Three〗、双击该命令按钮，这里演示输入代码打印0～10之间的任意随即整数，生成其他范围的随机整数公式为“int（（上限-下限+1）*Rnd+下限）”，如果是1到53就是“int（（1-53+1）*Rnd+53”：

〖Four〗、写完之后运行程序，每单击一次命令按钮，就会在窗体上打印一个0～10之间的随即整数：

[Three]、VB随机取数怎么做

只要在代码中使用随机函数即可实现随机抽取功能

vb随机数生成函数是Rnd[(number)]，number参数为可选项。在调用Rnd生成随机数之前，先使用Randomize初始化随机数生成器来产生种子，该生成器是根据系统计时器来产生种子的。

Int(Rnd()*100)//生成0-99之间的随机数

Int(Rnd()*101)//生成0-100之间的随机数

由于vb没有提供直接生成指定范围随机数的函数，所以要把Rnd变通一下，方法如下：

把它封装成可直接调用的函数如下：

FunctionGetRandom(under,overAsInteger)AsInteger

GetRandom=Int((under-over+1)*Rnd+over);

GetRandom(10,100);//生成10到100的随机数

〖One〗、方法：Random.Next(intminValue,intmaxValue);

若minValue和maxValue都没有提供，则生成一个0-2147483647之间的随机数；

若minValue和maxValue只提供一个，则生成一个0-maxValue之间的随机数；

若minValue和maxValue两个都提供，则生成一个minValue-maxValue之间的随机数；

ran.Next()//生成0-2147483647之间的随机数

ran.Next(100)//生成0-100之间的随机数

ran.Next(10,100)//生成10-100之间的随机数

Dimran=NewRandom(DateTime.Now.Millisecond)//通过日期的微秒生成随机数

关于vb随机读取名字到此分享完毕，希望能帮助到您。