1樓：
介面你自己設計 **我幫你寫 等一下附上來------------------------------------
dim s as integer
private sub command1_click() '開始按鈕timer1.interval = 1000timer1.enabled = trueend sub
private sub command2_click() '停止按鈕timer1.enabled = falseend sub
private sub command3_click() '重新計時按鈕
s = 0
end sub
private sub command4_click() '關閉按鈕endend sub
private sub form_load()label1.caption = ""
end sub
private sub timer1_timer()s = s + 1
label1.caption = s
end sub
2樓：問問
dim s as integer
private sub command1_click() '開始按鈕與暫停繼續可省去command2
timer1.interval = 1000if timer1.enabled = false thentimer1.
enabled = trueelseif timer1.enabled = true thentimer1.enabled = falseend if
end sub
private sub command2_click() '停止按鈕timer1.enabled = falseend sub
private sub command3_click() '重新計時按鈕
clss = 0
end sub
private sub command4_click() '關閉按鈕endend sub
private sub form_load()command1.caption=「開始/暫停/繼續」
command3.caption=「重新計時」
timer1.enabled = false '這樣就可以了label1.caption = ""
end sub
private sub timer1_timer()s = s + 1
label1.caption = s
end sub
3樓：
因為你弄成form.load事件了
4樓：
問題不明確 可以再說詳細點嗎？
1、編寫程式，用計時器按秒計時。在窗體上畫一個計時器控制元件和一個標籤，程式執行後，在標籤內顯示經過的秒
5樓：
dim a as integer
formload()裡a=0 然後在 timer1_timer() 裡 label1.caption=cstr(a)
a=a+1是回車
6樓：匿名使用者
自己動腦筋吧，把一年的作業都貼上了？
7樓：匿名使用者
凡事都要自己先動腦動手,見題抄解,永遠學不會.
鄙視一下不學只抄的學生,花錢浪費青春!
寧可被刪除,寧可被扣分,謹以此喚醒像你以及和你一樣的學生們!
vb中怎樣製作一個計時器？ 能夠設定倒計時的時間，並進行倒計時
8樓：
1、開啟vb6.0，新建一個工程，在窗體中新增三個命令按鈕，caption分別改為「設定倒計時」、「啟動倒計時」、「繼續」，將窗體form1的caption屬性改為「倒計時」，新增一個計時器控制元件，新增一個文字框。
2、將文字框的text屬性清空，將字型font屬性調整為小四，便於觀察，將背景色屬性backcolor調為淺黃色。
3、雙擊「設定倒計時」命令按鈕，進入**編輯視窗。
4、雙擊「啟動倒計時」命令按鈕，進入**編輯視窗。
5、雙擊「計時器」控制元件，進入**編輯視窗。
6、在**編輯視窗的通用段進行變數定義：dim h as integer, m as integer, s as integer '分別儲存時分秒dim a as integer。
8、關閉**視窗，按下f5執行程式，單擊「設定倒計時」命令按鈕，彈出輸入對話方塊，此時輸入分鐘數為1，確定。
9、單擊「啟動倒計時」命令按鈕，文字框顯示倒計時時間，並時刻變動，至此實現了倒計時功能。
9樓：天天過節
用到三個控制元件：文字框（text1）、按鈕（command1）、計時器（timer1）
private sub command1_click()timer1.interval = 1000end sub
private sub timer1_timer()text1.text = val(text1.text) - 1if text1.
text < 1 thenmsgbox "時間到"
unload me
end if
end sub
10樓：弒神者是我
事先要在秒錶**調 enable屬性為false，interval屬性為1000
private sub command1_click()timer1.enabled = trueend sub
private sub timer1_timer()text1.text = val(text1.text) - 1if text1.
text < 1 thenmsgbox "時間到"
unload me
end if
end sub
11樓：匿名使用者
設定倒計時 開始時間t
for ，step -1
顯示 t-1s
next
VB計時器，如何用VB程式做計時器？
前提是timer的interval已經設定為1000毫秒按鈕為陣列控制元件0.1或者其他。根據個數來看。private sub c1 click index as integer select case index case 1 timer1.enabled falsecase 0 timer1.e...
計時器怎麼用，計時器怎麼使用
計時器使用的方法 在計時器裡設定一段時間，點選開始後便開始倒計時，時間結束後發出聲響提醒倒計時已結束。1 時鐘功能板塊。開啟時鐘，在標題欄可以看到它分為四個功能板塊，分別是 鬧鐘 時鐘 秒錶 計時 2 計時器。計時，指的是倒計時，在這裡設定一段時間比如30分鐘，點選開始後它便從30分鐘開始倒計時，3...
如何建立C語言程式內部精確計時器
共勉，我也在學習階段。include include int main void printf ts1 nano di n ts1.tv nsec if err 0 printf ts2 nano d n ts2.tv nsec if err 0 printf system started time...