1樓：匿名使用者
實現**如下。
dim a(1 to 10)
private sub command1_click() 產生10個1-99的隨機數。
dim strg as string, i%
for i = 1 to 10
a(i) =int(99 * rnd + 1)
strg = strg & a(i) &
next i
= strg '隨機數顯示到text
end sub
private sub command2_click() 公升序。
if a(1) =0 then
msgbox "請先產生隨機數儲存到陣列"
exit sub
end if
call shownumsort(true) '呼叫過程，顯示公升序效果。
end sub
private sub command3_click() 降序。
if a(1) =0 then
msgbox "請先產生隨機數儲存到陣列"
exit sub
end if
call shownumsort(false) '呼叫過程，顯示降序效果。
end sub
private sub command4_click() 清除。
dim =
for i = 1 to 10
a(i) =0
next i
end sub
private sub shownumsort(isasc as boolean)
dim i%, j%, n%
for i = 1 to 10
for j = i + 1 to 10
if isasc then
if a(j) n = a(i)
a(i) =a(j)
a(j) =n
end if
elseif a(j) >a(i) then
n = a(i)
a(i) =a(j)
a(j) =n
end if
end if
next j
next i
for i = 1 to 10
strg = strg & a(i) &
next i
= strg
end sub
執行效果。
求高手解決vb程式試題，vb程式設計選擇題 求高手解答 ！
選擇題 1.c 2.a 3.a 填空題 1，連字元 2，rgb 255,0,0 3,34,3 分析題 b改錯題 1，2.dim n as integer n 120 if n mod 2 0 then print 它是偶數 endif 選擇題 1，c2，c 3，a4，d 5，a6，a 7，a8，b ...
VB程式設計填空題
我親自試了來的，不行找我，程式 是 privatesubform load labl1.caption 歡迎 timer1.enabled false timer1.interval 500 endsub private subtimer1 timer labl1.visible false end...
請高手幫我編寫VB程式，什麼是VB程式設計
private sub command1 click 按鈕響應。if 1 then loadpicture e end if if 2 then loadpicture e end if end sub private sub text1 change 文字框內容變化響應。if 1 then loa...