1樓：匿名使用者
dim n(10) as integer, i as integer = 0, j as integer = 0, y as integer
for i = 1 to 10
n(i) = int(rnd() * 90) + 10
next i
textbox1.text = textbox1.text & "生成的10個隨機數為：" & vbcrlf
for i = 1 to 10
textbox1.text = textbox1.text & n(i) & " "
if i mod 5 = 0 and i > 0 then
textbox1.text = textbox1.text & vbcrlf
end if
next
textbox1.text = textbox1.text & vbcrlf
j = n(1)
for i = 1 to 10
if j >= n(i) then
j = n(i)
end if
next
y = n(1)
for i = 1 to 10
if j <= n(i) then
j = n(i)
end if
next
textbox1.text = textbox1.text & "隨機數中最小的數是" & j.tostring & vbcrlf
textbox1.text = textbox1.text & "隨機數中最大的數是" & y.tostring & vbcrlf
2樓：
孩子，作業還是要自己做啊，用一個排序演算法就出來了啊
VB程式設計急求，急求VB程式設計程式碼！！！！
private sub command1 click 計算應發工資，text4 text4 val text1 val text2 val text3 計算個人所得稅，text5 if val text4 1000 thentext5 0 elseif val text4 1000 and val ...
急求VB程式設計
呵呵，估計只有這裡題目會是 1000萬 因為這樣就溢位了，並且老師上課是按1000演示的，我這裡也是1000記錄的。老師筆記 是按1000來的 private sub command1 click dim n,pingfang,diwei as doublefor k 3 to 1000 pingf...
組合語言程式設計高起專求大神幫助
25.單選 題bai 連結 檔案時,簡化段定du義偽指令model為 本題2.0分zhi a tiny 26.單選題 迴圈dao指令loop繼續迴圈的專測試條屬 件是 本題2.0分 d cx 1 27.單選題 將8k 4位的eeprom擴充套件成8k 8位的儲存器,需要進行 本題2.0分 b 位擴充...