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編寫程序，用VB編寫程式
首先，用vb畫出介面圖，那些按鈕控制項，每個按鈕空間都要實現什麼功能，這個你自己心裡要有數，然後給按鈕編 你要具體點，別人才好回答你！我也是用這個,很好用的,目前沒發現病毒 vb程式編寫 用vb編寫程式 怎樣用vb編寫程式從鍵盤上輸入10個數求平均值 怎麼用vb編寫乙個exe檔案？1 執行vb6.0...
怎樣用c語言根據題目編寫程式
功能 數字轉換為二進位制字串 函式名稱 numtobinarystr 輸入引數 1 nrawdata 要轉換的數，如255 或 0xff 2 nnumofbits 轉換的位數。3 szdestbuf 轉換到的目的儲存區。返回值 1 true ok 2 false szdestbuf為null int...
使用者用vb編寫程式 輸入年份和月份，程式能夠判斷其是否是閏年，那個季節，這個月多少天
將以下內容復到記事本中 然後 儲存為 form1.frm version 5.00 begin vb.form form1 caption form1 clientheight 4830 clientleft 60 clienttop 450 clientwidth 8325 linktopic f...