1樓：匿名使用者
你新增一個timer控制元件
interval屬性=100
新增事件
private sub timer1_timer()text1.text = format(now, "hh:mm:ss")
end sub
2樓：匿名使用者
private sub form_load()timer1.enabled = trueend sub
private sub timer1_timer()text1.text = now
end sub
建立兩個控制元件timer1和text1。
我也初學。
vb程式單擊日期,可使文字框中顯示當前日期,單擊時間,可顯示當前時間,並使前面的標籤做相應修改,寫出操作
3樓：杜哥是個小天才
具體**：
private sub command1_click()text1.text = date
label1.caption = "當前日期為："
end sub
private sub command2_click()text1.text = time
label1.caption = "當前時間為："
end sub
拓展資料visual basic是一種由 microsoft 公司開發的結構化的、模組化的、物件導向的、包含協助開發環境的事件驅動為機制的視覺化程式設計語言。
從任何標準來說，vb都是世界上使用人數最多的語言——不管是盛讚vb的開發者還是抱怨vb的開發者的數量。它源自於basic程式語言。
vb擁有圖形使用者介面（gui）和快速應用程式開發（rad）系統，可以輕易的使用dao、rdo、ado連線資料庫，或者輕鬆的建立activex控制元件。程式設計師可以輕鬆的使用vb提供的元件快速建立一個應用程式。
主要優點：
1，簡單易學。
2，開發速度快。
3，可讀性很好。
4樓：蝴蝶飛飛
private sub command1_click()text1.text = date
label1.caption = "當前日期為："
end sub
private sub command2_click()text1.text = time
label1.caption = "當前時間為："
end sub
如何用vb**在文字框中顯示當前時間是上午或下午
5樓：匿名使用者
private sub command1_click()dim s as date
dim bs as string
s = now
select case hour(s)
case is < 8
bs = "凌晨"
case is < 12
bs = "上午"
case is < 14
bs = "中午"
case is < 17
bs = "下午"
case else
bs = "晚上"
end select
label1.caption = format(s, "yyyy年mm月dd日 hh:mm:
ss " & bs & " 星期" & choose(weekday(s), "日", "一", "二", "三", "四", "五", "六"))
end sub
6樓：寧秀梅寸巳
舉個例子：按下數字1將文字框內容變為“你按下了1”：
private
subtextbox1_keypress(keyasciiasinteger)
ifkeyascii
=asc("1")
textbox1.text="你按下了1"
else
textbox1.text="你按下的不是1"
endif
endsub
7樓：木頭
format(time, "ampm")
現在想用vb，當前時間變化在文字框會顯示後臺設定的數字。
8樓：匿名使用者
private sub form_load()timer1.interval = 1000timer1.enabled = trueend sub
private sub timer1_timer()if time = #10:24:00 am# thenme.caption = "1"
elseif time = #10:25:00 am# thenme.caption = "2"
end if
end sub
工具是用來方便自己的，好用就行，沒必要追求新舊。剪刀有幾千年歷史，比剪刀厲害的切割機很多。為什麼我們還用剪刀呢。因為適合自己
9樓：華山_掌門人
vb過時了，不要用了
vb程式設計題1.在窗體上建立一個文字框，當單擊文字框時，文字框中輪流顯示當前日期及當前時間。用vb怎麼程式設計？
10樓：匿名使用者
在窗體上新增一個文字框、一個時鐘空間，**如下：
private sub form_load()timer1.enabled = falsetimer1.interval = 1000text1.text = ""
end sub
private sub text1_click()timer1.enabled = trueend sub
private sub timer1_timer()static n as integer
n = n + 1
if n mod 2 = 1 then text1.text = date else text1.text = time
end sub
怎樣用vb獲取本機時間並且與一個文字框裡的時間進行比較。（24小時格式的）
11樓：網海1書生
if now > cdate(text1.text) thenmsgbox "文字框裡的時間比當前時間早！"
else
msgbox "文字框裡的時間比當前時間晚！"
end if
要注意，文字框裡的時間必須是標準格式的，比如： 2014-12-18 16:09:23
如果文字框裡只有時間沒有日期，比如 17:23:45，則**修改為：
if time > cdate(text1.text) thenmsgbox "文字框裡的時間比當前時間早！"
else
msgbox "文字框裡的時間比當前時間晚！"
end if
用VB編寫程式，計算求123456200的值
dim n as long,m as longdim i as long n val text1.text m 0for i 1 to n m m 1 i i next i text2.text m end sub 用vb程式設計計算1 2 3 4 5 6 n的值，n由文字框輸入 樓上的程式，個人認...
使用者用vb編寫程式 輸入年份和月份，程式能夠判斷其是否是閏年，那個季節，這個月多少天
將以下內容復到記事本中 然後 儲存為 form1.frm version 5.00 begin vb.form form1 caption form1 clientheight 4830 clientleft 60 clienttop 450 clientwidth 8325 linktopic f...
用VB編寫程式利用計時器計時,在窗體上新增命令按鈕，標籤，計時器控制元件,注意 在Timer的事
介面你自己設計 我幫你寫 等一下附上來 dim s as integer private sub command1 click 開始按鈕timer1.interval 1000timer1.enabled trueend sub private sub command2 click 停止按鈕time...