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編寫程式計算1 100之間的奇數和 偶數和。要原始碼
個人金融科技理解 語句自己找給思路。第一種 暴力運算 1.申請2個變數jsum，osum分別放奇數和 偶數和。賦初值0。2.做個迴圈從1到100，變數用i 2.1 判斷i是否為奇數，是的話jsum jsum i，否則osum osum i 3.輸出jsum，osum 第二種 推演算法。由題意有 奇數...
用c 編寫程式，編寫3 3矩陣轉置的函式,在main 函式中輸入資料
這個很簡單了，直接宣告一個二維陣列，轉置時只需將a i j 與a j i 交換就可以了。 void covatrix int mtrx,int mtrx1,int n,int k n為原矩陣的列數，k為原矩陣的行數 include void main int i,j,b for i 0 i 3 i ...
用VB語言編寫程式,求兩個正整數的最小公倍數
求出兩個數的最小公倍數函式 function min公倍數 a as long,b as long dim x as long,y as long,k as long,最大公約數 as long x iif a b,a,b x存入最大值y iif a b,a,b y 存入最小值do 輾轉相除法 k ...