1樓：匿名使用者
dim miao as integer
private form_load()
timer1.interval=100
miao =0
end sub
private timer1_timer()
label1.caption="現在的時間是"+timer1.time +"."+str(miao)
miao=miao+1
if miao=10 then
miao=0
end if
label1.left=label1.left-你自己確定乙個數,就是label控制項每次移動的距離
if label1.left= 控制項能到達的最左面 then
label1.left=右面起始位置
end if
end sub
private 記錄_click()
label2.caption=mid（label.caption,擷取字串的位置,結束位置）
end sub
很長時間沒寫vb程式，vb6.0我的電腦上現在也沒安裝，現在我學習c++所以寫的**可能不正確存在語法問題，不過有點基礎的人很容易看懂**了解思路就行。另外timer控制項的time屬性好像是返回沒有精確到0.
1秒的時間,當interval屬性是100的時候是否能返回精確到0.1的我現在也不確定，所以上面的**我直接用全域性變數miao儲存的要精確的時間
2樓：
樓上有語法錯，「private 記錄_click()」缺少「sub」 。應該是"private sub 記錄_click()"其他就不看了。
如你所願：
private sub command1_click()label2.caption = label2.caption & time & chr(13) & chr(10)
end sub
private sub command2_click()timer1.enabled = falseunload me
end sub
private sub form_load()timer1.enabled = truetimer1.interval = 100command1.caption = "記錄"
command2.caption = "返回"
end sub
private sub timer1_timer()label1.caption = "現在時間是：" & timeend sub
急求！一道VB程式設計題謝謝，10道VB題 急求答案！！！謝謝高手了
private sub procmin a as integer,byval amin as integer dim i amin0 for i lbound a to ubound a print a i amin0 a lbound a if a i amin0 then amin a i ne...
求助一道VB題
private sub form load dim i as long dim x as long dim sum1 dim sum2 dim sum3 for i 1 to 30 x 100000 sum1 sum1 x next debug.print 窮人給富商的錢為 sum1sum2 0.0...
Visual Basic程式設計（VB）求一道簡單題目的代
手機使用者 在窗體上g放一i個h命令按鈕，程式執行單擊按鈕，要求輸入e成績。單擊確定輸出等級。如下l private sub command8 click dim cj as string cj inputbox 請輸入m成績 do while not isnumeric cj msgbox 請輸入...