1樓：匿名使用者
窗體上放一個 timer ，一個按鈕即可：
private sub form_load()randomize
command1.caption = "開始"
timer1.interval = 200timer1.enabled = falseend sub
private sub timer1_timer()label1.caption = int(40 * rnd + 1)end sub
private sub command1_click()command1.caption = iif(timer1.enabled, "開始", "暫停")
timer1.enabled = not timer1.enabled
end sub
2樓：匿名使用者
放一個timer1，設定interval = 200private sub form_load()randomize
end sub
private sub timer1_timer()label1.caption = int((rnd + 1 / 40) * 40)
end sub
private sub command1_click()timer1.enabled = not timer1.enablded
end sub
VB程式設計的簡單問題，VB簡單程式設計問題
1.do while loop 如果while的條件成立，就執行裡面的語句 比如，while a 2，先判斷a，a不大於2就不執行了 這個是不滿足就不執行 2.do loop while e 這個是不管while的條件成不成立，都會先執行裡面的語句，執行完之後再判斷while的條件成不成立，成立就繼...
問個關於VB的簡單問題
f text1.text x and x 10 text1.text then msgbox 你猜的數字偏大。if text1.text x and x 10 text1.text then msgbox 你猜的數字偏小。後面的兩個大於小於好互換 private sub command1 click...
關於vb的問題謝謝答了追加分數，關於vb的問題 謝謝 答了 追加分數 ！！！！！
第一題 textbox控制元件中提供multiline 屬性，設定為true時會使文字框支援多行顯示。而其scrollbars屬性則是提供滾動條控制的，值為0時沒有滾動條，值為1時在控制元件右側提供垂直滾動條，值為2時在下方提供水平滾動條，值為3時同時在右側和下方提供滾動條。具體效果可以在執行時看到...