1.首先開啟vb6.0
2.在窗體的適當位置建立乙個commandbutton,並在其屬性視窗中將caption改為「排序最小的數」。
3.在窗體中雙擊「排序最小的數」,並在彈出的對話方塊中輸入**。
**如下:
private sub command1_click()
clsdim n as integer
dim wzs(10) as integer
dim swap as integer
n = 1
while n <= 10
wzs(n) = int(rnd * 1000)
n = n + 1
wend
n = 1
while n <= 9
if wzs(n) < wzs(n + 1) then
swap = wzs(n)
wzs(n) = wzs(n + 1)
wzs(n + 1) = swap
end if
n = n + 1
wend
n = 1
while n <= 10
print wzs(n)
n = n + 1
wend
end sub
15電氣 齊振昊 實驗名稱 在VB中製作計時器
實驗名稱 在 vb中製作計時器 實驗步驟 在桌面中雙擊 vb6.0 開啟程式。在工具箱視窗找到計時器 timer 的圖示,單擊圖示並在窗體中建立計時器。在窗體中雙擊計時器圖示,在彈出的對話方塊中輸入 螢幕 1.caption time 然後關閉視窗。選定計時器 timer 在屬性視窗中找到 inte...
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...