1樓：匿名使用者
'這是一個奧運會的倒計時器，**如下：
const adate = #8/8/2008 8:40:00 am# '常量紐約時間的北京奧運會開幕時間
private sub form_load()timer1.interval = 1000timer1.enabled = trueend sub
private sub timer1_timer()clslabel1.caption = "紐約時間的北京奧運會開幕時間為" & adate
label2.caption = "目前為止還有" & datediff("d", date, #8/8/2008#) & "天 " & vbcrlf & format(dateadd("s", datediff("s", time, #8:40:
00 pm#), 0), "h小時m分鐘s秒")
end sub
輸出三行，label1的內容是一行，label2的內容有兩行樓主好運
2樓：岔路程式緣
const adate = #8/8/2008 8:40:00 am# '常量紐約時間的北京奧運會開幕時間
private sub form_load()
timer1.interval = 1000
timer1.enabled = true
label1.caption = ""
label2.caption = ""
end sub
private sub timer1_timer()
clslabel1.caption = "紐約時間的北京奧運會開幕時間為" & adate
label2.caption = "目前為止還有" & datediff("d", date, #8/8/2008#) & "天 "
label2.caption = label2.caption & format(dateadd("s", datediff("s", time, #8:
40:00 pm#), 0), "h小時m分鐘s秒")
end sub
已經執行過.
3樓：匿名使用者
private sub timer1_timer()
clsprint "紐約時間的北京奧運會開幕時間為"; adate
print "目前為止還有"; datediff("d", date, #8/8/2012#); "天 ";
print format(dateadd("s", datediff("s", time, #8:40:00 pm#), 0), "h小時m分鐘s秒")
label1.autosize = true
label2.autosize = true
label1.caption = "紐約時間的北京奧運會開幕時間為" & adate
label2.caption = "目前為止還有" & datediff("d", date, #8/8/2012#) & "天 " & format(dateadd("s", datediff("s", time, #8:40:
00 pm#), 0), "h小時m分鐘s秒")
end sub
4樓：伊人尤在
label1.caption= "紐約時間的北京奧運會開幕時間為"; adate
label2.caption= "目前為止還有"; datediff("d", date, #8/8/2008#); "天 ";
label3.caption=format(dateadd("s", datediff("s", time, #8:40:00 pm#), 0), "h小時m分鐘s秒")
vb中label是什麼意思
vb中的label的意來思是 label 標籤控制元件 是自圖形控制元件,主要作用在於顯示文字資訊,如大家比較熟悉的程式安裝介面 在某個軟體安裝過程中,常常會顯示一些幫助資訊或與產品相關的介紹資訊,而這些,大多是用標籤控制元件製成的。與以後我們要學到的文字框控制元件 textbox 不同的是,標籤控...
VB中的msgbox問題，vb中msgbox的問題
msgbox a b 顯示字串連線的結果 象我這麼寫。就對了！vb中msgbox的問題 a msgbox 必須在工資審批任務完成後才能進行更新記錄操作！請選擇是否進行更新記錄操作 vbyesno,確定更新 少了一個逗號吧，vbyesno前面加個逗號看看看其他是沒錯的 因為你點了確定按鈕這時x才會有值...
vb中的變數定義的問題
在函式 過程內部定義，為區域性變數 在外部定義的是公共變數。定義公共變數有兩種方式 不建議用dim定義 private n as integer private定義的公共變數只能在模組內部共享。public n as integer private定義的公共變數可以在模組外部訪問。假如您這個form...