在窗体上添加label1的基础上，再在窗体上添加1个timer1，即计时器控件具体代码如下 Private Sub Label1_ClickTimer1Enabled = True Timer1Interval = 100 #39秒表运行间隔，这里设置为01秒 Label1Caption = quot100。

VB计时器其实就是在设定的时间间隔，每隔一段时间执行一次如Private Sub Form_LoadTimer1Enabled = True ‘打开计时器 timer1Interval=1000 ’设置计时器间隔为1秒 End Sub Private Sub Timer1_TimerStatic。

秒表计时器的代码 include ltstdioh include ltconioh include ltwindowsh include ltstdlibh struct tm 定义时间结构体，包括时分秒和10毫秒 int hours，minutes，secondsint hscdtime，tmp，total。

前两天刚写了个计时器，有空我发给你 前段时间忙，现在把代码附上，希望对你有帮助 package simpleTimerimport import import import。

include ltstdioh include ltstdlibh include void wait int seconds clock_t endwaitendwait = clock + seconds * CLK_TCK while clock lt endwait void main int t，m，sprin。

用rand函数，按你这个意思，建议考虑先建一个表，表中存储学号姓名等信息，然后在表单中添加一个计时期，计时周期根据需要设置，计时器time代码中主要使用rand函数产生随机数，然后以此随机数去查找相应记录，例如将此随机数。