这个需要应用以下几个步骤：
写一个获取随机学号函数。
将这个函数绑定在某个控件上触发抽学号的事件。
在某个输出界面显示这个随机学号。
首先，学号肯定是整数，所以在窗体代码区定义一个整型的变量来存放
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事件中写下：
…
rval=50 ’让定时器50秒运行一次
el=True ‘让定时器允许运作
…
2、双击定时器Timer1，在它的事件里写下：
…
StudentNum=GetNum(1，30)
'假设学生学号从1号到30号，如果经常变动可以从外部获取，用变量表示。
=StudentNum & "号"
'把取到的随机数显示在文本框里面
…
3、双击按钮Command1，在它的点击事件里写下
IF le=True
le=False '计时器停止运作
Msgbox "选中了" & StudentNum & "号"，26，"选中了该学号" '把结果弹出对话框
Else
le=True ’启用已经停止的计时器，可以进行下一次选号
End IF
…
