15 電氣 齊振昊 在VB中把最小的數排到最後

2021-07-10 21:31:57 字數 766 閱讀 4137

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...