在窗體上添加label1的基礎(chǔ)上，再在窗體上添加1個(gè)timer1，即計(jì)時(shí)器控件具體代碼如下 Private Sub Label1_ClickTimer1Enabled = True Timer1Interval = 100 #39秒表運(yùn)行間隔，這里設(shè)置為01秒 Label1Caption = quot100。

VB計(jì)時(shí)器其實(shí)就是在設(shè)定的時(shí)間間隔，每隔一段時(shí)間執(zhí)行一次如Private Sub Form_LoadTimer1Enabled = True ‘打開計(jì)時(shí)器 timer1Interval=1000 ’設(shè)置計(jì)時(shí)器間隔為1秒 End Sub Private Sub Timer1_TimerStatic。

秒表計(jì)時(shí)器的代碼 include ltstdioh include ltconioh include ltwindowsh include ltstdlibh struct tm 定義時(shí)間結(jié)構(gòu)體，包括時(shí)分秒和10毫秒 int hours，minutes，secondsint hscdtime，tmp，total。

前兩天剛寫了個(gè)計(jì)時(shí)器，有空我發(fā)給你 前段時(shí)間忙，現(xiàn)在把代碼附上，希望對(duì)你有幫助 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函數(shù)，按你這個(gè)意思，建議考慮先建一個(gè)表，表中存儲(chǔ)學(xué)號(hào)姓名等信息，然后在表單中添加一個(gè)計(jì)時(shí)期，計(jì)時(shí)周期根據(jù)需要設(shè)置，計(jì)時(shí)器time代碼中主要使用rand函數(shù)產(chǎn)生隨機(jī)數(shù)，然后以此隨機(jī)數(shù)去查找相應(yīng)記錄，例如將此隨機(jī)數(shù)。