實驗名稱:在
vb中製作計時器
實驗步驟:
在桌面中雙擊
vb6.0
開啟程式。
在工具箱視窗找到計時器
timer
的圖示,單擊圖示並在窗體中建立計時器。
在窗體中雙擊計時器圖示,在彈出的對話方塊中輸入「螢幕
1.caption=time( )」
然後關閉視窗。
選定計時器
timer
,在屬性視窗中找到
interval
並將後面的數值改為
1000。
在工具箱視窗找到
label
,單擊圖示並在窗體中建立,在屬性視窗中找到「名稱」一欄並將後面改為「螢幕
1」。在工具欄中單擊「啟動」即可出現效果。
在工具箱視窗找到
command button
的圖示,單擊圖示並在視窗中建立,在屬性視窗中找到
caption
並把其後面改為「停止」。
在窗體中找到「停止」並雙擊,輸入「
me.timer1.enable=false」,
然後關閉視窗。在工具欄中單擊「啟動」即可出現效果。
在工具箱視窗找到
command button
的圖示,單擊圖示並在視窗中建立,在屬性視窗中找到
caption
並把其後面改為「重新開始」。
在窗體中找到「重新開始」並雙擊,輸入「
me.timer1.enable=ture」,
然後關閉視窗。
在工具欄中單擊「啟動」即可出現效果。
2016
物理與電子資訊學院
15電氣1班
齊振昊15050341022
15 電氣 齊振昊 在VB中把最小的數排到最後
1.首先開啟vb6.0 2.在窗體的適當位置建立乙個commandbutton,並在其屬性視窗中將caption改為 排序最小的數 3.在窗體中雙擊 排序最小的數 並在彈出的對話方塊中輸入 如下 private sub command1 click clsdim n as integer dim w...
15電氣李丹 10個隨機數求和
1.開啟vb6.0 2.窗體上插入一command button,雙擊並輸入 一 二 三 private sub command1 click dim i as integer dim a as integer sum 0 for i 1 to 10 randomize a int 1000 rnd...
15電氣李丹 給任意幾個數按大小排序
給任意幾個數按大小排序 1.開啟桌面上的vb6.0 2.在窗體插入乙個commandbutton,名稱預設為command1 3.在窗體中插入乙個textbox,名稱預設為text1 4.雙擊窗體中的command1 輸入 option base 1 private sub command1 cli...