1樓：匿名使用者
1.新建窗體，在窗體上新增兩個按鈕，一個標籤，一個計時器2.按鈕1的**如下：
private sub 按鈕1_click()label1.caption=0
timer1.interval=1000
timer1.enable=true
end sub
3.按鈕2的**如下：
private sub 按鈕2_click()timer1.enable=false
end sub
4.timer1的**如下：
private sub timer1_timer()label1.caption=val(label1.caption)+1
end sub
以上**完了之後，標籤顯示的即是用時，單位「秒」。
vb顯示當前程式執行時間
2樓：趣園藝
vb顯示當前程式執行的時間長短，需要新增一個timer控制元件來實現，**如下：
dim tim as string, b as long, h as integer, m as integer, s as long
//窗體載入時候方法
private sub form_load()
label1.caption = ""
tim = time
timer1.interval = 100
end sub
//timer控制元件方法
private sub timer1_timer()
s = datediff("s", tim, time)
if s > 60 then
b = s
m = b \ 60
s = b mod 60
if m > 60 then
b = m
h = b \ 60
m = b mod 60
end if
end if
if h = 0 then
if m = 0 then
label1.caption = "已經執行了 " & s & " 秒 "
else
label1.caption = "已經執行了 " & m & " 分 " & s & " 秒 "
end if
else
label1.caption = "已經執行了 " & h & " 小時 " & m & " 分 " & s & " 秒 "
end if
end sub
3樓：岔路程式緣
dim tim as string, b as long, h as integer, m as integer, s as long
private sub form_load()
label1.caption = ""
tim = time
timer1.interval = 100
end sub
private sub timer1_timer()
s = datediff("s", tim, time)
if s > 60 then
b = s
m = b \ 60
s = b mod 60
if m > 60 then
b = m
h = b \ 60
m = b mod 60
end if
end if
if h = 0 then
if m = 0 then
label1.caption = "已經執行了 " & s & " 秒 "
else
label1.caption = "已經執行了 " & m & " 分 " & s & " 秒 "
end if
else
label1.caption = "已經執行了 " & h & " 小時 " & m & " 分 " & s & " 秒 "
end if
end sub
已經執行過。
顯示的是程式執行的時間，不是顯示系統當前時間。
4樓：匿名使用者
需新增一個timer控制元件
private sub form_load()timer1.interval = 100end sub
private sub timer1_timer()me.cls
me.print now
end sub
完成後時間將在窗體左上角顯示當前時間
5樓：匿名使用者
需新增一個timer控制元件
label.text=timer
在vb中,如何計算一個程式的執行時間
用vb編寫一個顯示當前日期和時間的程式 10
6樓：孫琦
private sub timer1_timer()label1.caption = format(now, "yyyy-mm-dd hh:mm:ss")
end sub
timer空間中的interval設定為1000
7樓：雷州人在廣州
1.private sub form_load()text1.text = now
end sub
2.private sub timer1_timer()text1.text = hour(time) & ":"
text2.text = minute(time) & ":"
text3.text = second(time)text4.text = date
end sub
**********====
給你參考:
month(date)
day(date)
year(date)
second(time)
minute(time)
hour(time)now
8樓：
text1.text = format(date, "yyyy.mm.dd")
text2.text = format(time, "hh:mm:ss")
vb的sub子程式怎麼用，關於vb的sub子過程的定義問題！
聽不清啊 建立sub過程 1 定義sub過程 語句結構如下 static private public sub 過程名 引數列表 語句塊 exit sub 語句塊 endsub 引數列表指明瞭呼叫時傳送給過程的引數的型別和個數，每個引數的格式為 byval 變數名 as 資料型別 如果加上byval...
用VB做計算100內加減乘的運算程式，誰能幫幫忙啊
如圖,command1的caption設為 計算 新增一個combobox 什麼都不設定 option explicit private sub command1 click 如果一定要100以內,取消下一行的註釋 if val text1.text 100 or val text2.text 10...
VB求100以內素數的和，用 vb 做 100以內質數求和 的程式
我是vb初學者，難道沒考慮到什麼嗎，為什麼我想的 就這麼點呢private sub command1 click dim i as integer dim j as integer dim s as integer dim sushu as boolean s 0 for j 2 to 100 su...