全部評論(3條)
-
- 誰來教我彈鋼琴 2012-09-04 00:00:00
- 樓上的回答正確，樓主采納吧。。。。這個很簡單的。。。
-
贊(8)
回復(0)
-
- 允孽·蕞噯 2012-09-03 00:00:00
- 這個可以用代碼寫吧，先設一個計時器，每隔一段時間出一個隨機數(shù)，并同上一個數(shù)相加，一次循環(huán)吧。
-
贊(10)回復(0)
-
- 奧運37 2012-09-03 00:00:00
- ========================================================================= 在窗體增加一個timer控件和Text文本框控件，timer的interval屬性設成1000，也就是一秒。輸入以下代碼： Private Sub Timer1_Timer() Static h As Integer h = h + 1 Text1.Text = h End Sub 運行后看看。
-
贊(5)回復(0)
熱門問答
- vb計時器每秒產生一個數(shù)，并把這些數(shù)累加出來？
2012-09-02 01:00:18
499
3
- vb 計時器怎么控制隨機數(shù)的產生
- 題目是：程序運行是，單擊“開始”按鈕，每秒鐘產生3個1到6的隨機數(shù)字 單擊“暫?！卑粹o，終止隨機數(shù)的產生。 隨機數(shù)的代碼我會，但不知道計時器的代碼怎么寫 Private Sub Command1_Click() Cls Dim a(3) As Integer For l = 1 To 3 x = Int(Rnd * 10)... 題目是：程序運行是，單擊“開始”按鈕，每秒鐘產生3個1到6的隨機數(shù)字 單擊“暫停”按鈕，終止隨機數(shù)的產生。 隨機數(shù)的代碼我會，但不知道計時器的代碼怎么寫 Private Sub Command1_Click() Cls Dim a(3) As Integer For l = 1 To 3 x = Int(Rnd * 10) Debug.Print x For i = 1 To 6 If i = x Then Exit For End If Next i Next l Label1.Caption = Int((Rnd * 6) + 1) Label2.Caption = Int((Rnd * 6) + 1) Label3.Caption = Int((Rnd * 6) + 1) End Sub Private Sub Timer1_Timer() End Sub 誰能幫寫下代碼啊 展開
2009-12-12 01:28:18
493
4
- vb 計時器 使label隔一秒增加一
2012-06-25 08:13:26
649
3
- vb停止計時器
- 我想做一個程序，讓計時器隨機取一個數(shù)并可以讓計時器過5秒后自動停止下來。 已編寫代碼： Private Sub Timer1_Timer() Randomize s = Int(Rnd * 16 + 24) Text1.Text = s End Sub 嗯~~interval的值為10 誰能幫我完成過“5秒后自動停止下來”這個... 我想做一個程序，讓計時器隨機取一個數(shù)并可以讓計時器過5秒后自動停止下來。 已編寫代碼： Private Sub Timer1_Timer() Randomize s = Int(Rnd * 16 + 24) Text1.Text = s End Sub 嗯~~interval的值為10 誰能幫我完成過“5秒后自動停止下來”這個步驟??！ 不要手動停止（什么timer1.enabled=false的）。 我是vb6.0的 展開
2013-10-02 11:50:40
298
1
- vb正計時器
- 做一個這樣的格式的 00:00:00 往上計時 dim a as date a=format(00:00:00 AM) text1.text=a timer.interval=1000 a=a+1 我純新手 只知道大概是這樣一個格式 請幫忙修改下。 Z好每句后面加上說明 Z好修改我這上面的吧
2011-11-04 04:28:53
411
2
- VB計時器interval
- 我把interval的屬性調到10，定義一個靜態(tài)變量t，Timer1.Timer事件為t=t+1，結果一秒內t自加100。但我把interval設為1，結果一秒內t自加甚至不到1，這是什么情況？如何解決？
2010-06-13 08:45:36
366
4
- VB計時器怎么用
2009-11-24 00:38:51
480
3
- vb 如何重置計時器
- vb 如何重置計時器
2010-09-06 07:36:56
491
1
- VB 計時器 與 進度條
- 我想把進度條弄成7秒，然后打開窗口form2 代碼該怎樣寫？
2018-12-04 10:37:13
516
0
- vb計時器設計圖片左右往復運動vb代碼
2013-06-28 02:23:36
471
1
- 請問一vb題目，用計時器安秒計時，在窗體畫一計時器控件和一標簽程序
- 請問一vb題目，用計時器安秒計時，在窗體畫一計時器控件和一標簽程序運行后，在標簽內顯示經過秒數(shù)并響鈴，代碼怎么寫啊
2018-11-21 18:41:31
378
0
- 求vb計時器編程代碼
- 編寫程序，用計時器按秒計時。在窗體上畫一個計時器控件和一個標簽，運行程序后，在標簽內顯示經過的秒數(shù)，并響鈴
2018-02-26 21:39:20
502
1
- 怎樣用VB做一個秒表計時器
- 兩個按鈕，一個開始鍵 一個清零鍵 ，想要點擊開始鍵以后 開始鍵變成 結束 文本也改成結束 按清零鍵后變回開始 還想添加一個開始的鍵盤快捷鍵（開始和結束能夠公用這個快捷鍵） 求大神指教
2018-11-28 05:21:49
390
0
- 如果每秒產生5個Timer事件，那么計時器控件的Interval屬性應設為？
2018-06-18 02:13:58
510
2
- 如何用VB程序做計時器？
2017-11-23 14:26:59
517
1
- vb怎么設計簡單的計時器
- 用vb中的timer控件，設計計時器。用三個命令按鈕，分別為：開始、暫停、結束。再用一個標簽或者文本框顯示就好了。 各位大俠教教，我初學。
2011-05-23 14:16:03
368
2
- VB 如何讓計時器重新計時
- Dim a As Integer Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 500 End Sub Private Sub Command2_Click() Timer1.Enabled = False Timer start End Sub Private Sub Timer1_Timer() a = a + 1 Text1 = a End S... Dim a As Integer Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 500 End Sub Private Sub Command2_Click() Timer1.Enabled = False Timer start End Sub Private Sub Timer1_Timer() a = a + 1 Text1 = a End Sub 展開
2010-06-12 12:32:41
556
4
- 激光器每秒射出的光子數(shù)怎么求？
2012-04-21 03:45:57
621
2
- VB 用計時器顯示日期時間上下午
2011-11-21 19:02:09
440
2
4月突出貢獻榜
推薦主頁
最新話題
滬公網安備 31011502008050號
參與評論
登錄后參與評論