1樓：匿名使用者
dim h, m, s as integerprivate sub form_load()h = 1: m = 0: s = 0
label1.caption = "01:00:00"
timer1.interval = 1000end sub
private sub timer1_timer()s = s - 1
if s < 0 then
s = 59
m = m - 1
if m < 0 then
m = 59
h = h - 1
if h < 0 then
timer1.enabled = falseend if
end if
end if
label1.caption = format(h, "00") & ":" & format(m, "00") & ":" & format(s, "00")
end sub
2樓：匿名使用者
格式轉換
dim t as integer
private sub form_load()t = 3600
timer1.interval = 1000timer1.enabled = trueend sub
private sub timer1_timer()h = t \ 3600
m = (t - h * 3600) \ 60s = (t - h * 3600 - m * 60)label1 = h & ":" & m & ":" & st = t - 1
if t <= 0 then timer1.enabled = false
end sub
3樓：匿名使用者
dim n as integer
private sub form_load()timer1.interval = 1000timer1.enabled = truelabel1.caption = "1小時"
n = 3600
end sub
private sub timer1_timer()dim m as integer, s as integern = n - 1
m = n \ 60
s = n mod 60
label1.caption = m & "分" & s & "秒"
if n=0 then
msgbox "1小時時間到！"
timer1.enabled=false
end if
end sub
vb程式閱讀題1執行下面程式段的輸出結果是
第1題的輸出結果是 tab n 可選的 n 引數是在顯示或列印列表中的下一個表示式之前移動的列數。例如print tab 10 將在第10列出現 關於vb程式題 private sub mand1 click dim a as integer for i 10 to 1 step 2 s s i 你...
vb程式題執行不了，沒有字母出現
你這是一個打字遊戲，字母從上掉下來，是你自己編寫的嗎，我試了一下，可以的。你如果不行的話，在下面幾個方面考慮一下 1.timer1與timer2的interval值 設定了沒，把它們分別設定為500與1000試試 2.command1的caption是否設定為 開始 3.把label4字號改大些，如...
vb程式題急謝謝編寫程式從文字框輸入與
設text1和text2分別為x和y的輸入框，text3輸出結果，另有 mand1是計算按鈕。在窗體代版碼 通權用 段編寫函式過程 private function f byval x as double,byval y as double as double select case x case ...