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編寫一個程式
樓上的，不許要引用吧 option explicit private declare function getdrivetype lib kernel32 alias getdrivetypea byval ndrive as string as long private declare funct...
求VB高手 編寫程式，找出10000 99999的所有迴文數
private sub mand1 click dim i as long,j as longdim x1 as long,x2 as longdim str as string dim flag as boolean str 從 10000 到 99999 之間的迴文數有 vbcrlf for i...
用VB編寫程式，求S A B C ，階乘的計算分別用Su
1 用sub實現的過程bai 如下 du dim a,b,c,s a 1b 2 c 3s 0 sub jc x dim v v 1while x 0 v v x x x 1 wend s s v end sub jc a jc b jc c msgbox s 2 用function的過程zhi如下 ...