1樓：匿名使用者
做個標記，等會發你郵箱
2樓：匿名使用者
private sub form_load()timer1.interval = 1000timer1.enabled = trueend sub
private sub timer1_timer()if option1.value = true then text1.text = format(time, "hh:
mm:ss")
if option2.value = true then text1.text = format(time, "hh:mm:ssampm")
end sub
3樓：匿名使用者
private sub form_load()
timer1.enabled = true: timer1.interval = 500 '設定定時器，每半秒更新一次
option1.caption = "12 時制": option2.caption = "24 時制"
option1.value = true '預設 12 時制
end sub
private sub timer1_timer()
dim h as long, nstr as string
h = format(now, "hh") '取得小時
nstr = format(now, ":mm:ss") '取得分和秒
if h < 12 then label1.caption = "上午" else label1.caption = "下午"
if option1.value then
if h > 12 then h = h - 12 '12 時制
label1.visible = true
else
if h < 12 then h = h + 12 '24 時制
label1.visible = false
end if
text1.text = h & nstr
end sub
4樓：匿名使用者
新增一個timer，一個文字框，兩個option，設定timer的時間為500-1000內，然後加入如下**：
private sub timer1_timer()if option1.value = true then text1.text = format(time, "hh:
mm:ss ampm")
if option2.value = true then text1.text = format(time, "hh:mm:ss")
end sub
簡單的VB程式設計
氣泡排序,3個數排2次就夠了 a text1.text b text2.text c text3.text if a b then k aa b b kend if text4.text a text5.text b text6.text c if b c then k bb c c kend if...
急！再線等，一道簡單的VB程式設計題
我來給你做啊 很簡單，但是要點時間的 hi me 程式不難.只說關鍵實現.設定字型呀,窗體那些自己弄.比如command9 標籤名為9 其點選事件為 text1.text text1.text command9.caption 這樣,就可以按順序顯示號碼了.重拔也簡單.拔完號後,用一個str儲存te...
急！再線等，一道簡單的VB程式設計題
做好了，把你郵箱給我，我給你發過去 這是 和截圖。dim s as string dim a as integer private sub command1 click index as integer if len 20 then m msgbox 所撥數字已經達到最大 vbexclamation...