1. vb随机数，vb随机生成数字？
'手动Private Sub Command1_Click()'和Text3.Text = Val(Text1.Text) + Val(Text2.Text)'差Text3.Text = Val(Text1.Text) - Val(Text2.Text)End Sub'自动Private Sub Command2_Click()'随机数Text1.Text = Int((100 - 10 + 1) * Rnd + 10)Text2.Text = Int((100 - 10 + 1) * Rnd + 10)'和Text3.Text = Val(Text1.Text) + Val(Text2.Text)'差Text3.Text = Val(Text1.Text) - Val(Text2.Text)End Sub
2. vb中生成10个随机数并显示在屏幕上？
将以下代码输入事件中即可 ：Randomize '防止每次生出随机数一样for i=1 to 10 '生成10个Print Int(Rnd * 99) + 1 'rnd()生成[1，100]之间的随机数，int（）是取整 next
3. 生成10到100的随机数代码vb？
Randomize
msgbox Int(Rnd * (100 - 10 + 1)) + 10
4. 1000有什么区别么？
先来看这个函数的作用：
rnd(x)函数产生介于0－1之间的随机数字，其中的x只是一个产生随机数的设定（如rnd(0)是产生跟上一次产生的数字相同的随机数），x无论大小都不会影响产生的随机数介于0－1之间的结果。
所以：
rnd(1000)产生的随机数是介于0－1之间的；
rnd*1000产生的随机数是介于0－1000之间的。
此为二者不同之处。
5. 几个数组的数据想要随机成两组数据怎么弄vb？
思路：
1，不管有几个数组，先把它们合并成一个数组，假设一共有n个数据。
2，设新数组为A，B，现在开始循环1-n，产生随机数，若奇数就将数据放入数组A，否则将数据放入数组B。
6. VB三个数如何排序？
1、启动VB6.0，新建一个标准exe工程。
2、在窗体上绘制一个命令按钮，名称为Command1。
3、双击命令按钮进入代码窗口。
4、编写命令按钮的单击事件。定义一个一维数组A有10个元素（1-10），随机产生一批两位数的随机数，有序地装入A（i）中，输出A(i)，排序完成时方便观察比较。
5、编写程序中核心的代码部分。
6、断行，输出。
7、按F5运行测试即可。
7. 如何用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事件中写下：
…
Timer1.Interval=50 ’让定时器50秒运行一次
Timer1.Enabel=True ‘让定时器允许运作
…
2.双击定时器Timer1,在它的事件里写下：
…
StudentNum=GetNum(1，30)
'假设学生学号从1号到30号，如果经常变动可以从外部获取，用变量表示。
Text1.Text=StudentNum & "号"
'把取到的随机数显示在文本框里面
…
3.双击按钮Command1,在它的点击事件里写下
IF Timer1.Enable=True
Timer1.Enable=False '计时器停止运作
Msgbox "选中了" & StudentNum & "号",26,"选中了该学号" '把结果弹出对话框
Else
Timer1.Enable=True ’启用已经停止的计时器，可以进行下一次选号
End IF
…
