1樓：聽不清啊
題目不是交代了要用迴圈，但是你沒用啊，沒用迴圈是做不了這件事的。
dim x(1 to 10) as integer, max as integer, min as integer,i as integer
label1.caption = ""
for i = 1 to 10
x(i) = val(inputbox("輸入第「 & i & "個整數", "輸入整數", "0"))
if i = 1 then max = x(1) : min = x(1)
if x(i) > max then max = x(i)
if x(i) < min then min = x(i)
label4.caption = label4.caption & x(i) & " "
next i
label4.caption = label4.caption & vbcrlf & "max=" & max & " min=" & min
還有你沒有說什麼是「交換最大值」。
2樓：歸萱
private sub command1_click()dim x(1 to 10), i, max, min, a, b, t
for i = lbound(x) to ubound(x)x(i) = inputbox("input:", i, int(rnd * 100))
if i = 1 then
max = val(x(i)): min = maxa = i: b = a
else
if val(x(i)) > max thenmax = val(x(i))
a = i
end if
if val(x(i)) < min thenmin = val(x(i))
b = i
end if
end if
next
print join(x) & vbnewline & "max=" & max & vbnewline & "mim=" & min
x(a) = min: x(b) = maxprint join(x)
end sub
vb程式設計，用隨機函式產生10個50以內（包括50）的隨機整數存入一維陣列。求出最大值並和陣列中的首個
3樓：草原上之狼
根據已有的程式行，缺的內容主要就是一個排序過程。新增一個排序的過程就行了。但是不知道該添在**，請說明程式的空白處是在**？
能不能標出來，比如用括號，星號什麼的，標一下需要補充到**？
或者，能不能說明一下，各文字框，按鈕的功能是什麼？ d = val(text3.text)，這個應該是要插入的資料了，說明text3是用來輸入的，text2.
text = text2.text & str(a(i))，這說明text2是顯示排序後的結果的，
那有沒有text1？用作什麼？兩個按鈕定義的功能是什麼？插入的資料怎麼插？是隨機插入一個位置，並替換掉原來的資料還是將陣列重新定義隨機插入後，後面的數向後移？
這些需要說明一下，或者把需要填寫的位置標清楚，不然，不好確定該怎麼填。
4樓：數學與計算機程式設計
private sub command1_click()randomize
dim a(9) as integer, max as integer
dim k as integer, i as integerdim t as integer
max = 0
for i = 0 to 9
a(i) = int(rnd * 51)
print a(i);
if a(i) > max then
max = a(i)
k = i
end if
next i
if k > 0 then
t = a(0)
a(0) = a(k)
a(k) = t
end if
for i = 0 to 9
print a(i);
next i
end sub
vb題，用隨機函式生成包含10個兩位整數的一維陣列，求這10個數的最大值，最小值以及平均值。
5樓：匿名使用者
執行結果：
生成的陣列為
73 58 62 36 37 79 11 78 83 73排序後的陣列為
83 79 78 73 73 62 58 37 36 11該陣列元素各個元素的和是 590 最大元素是 83 最小元素是 11
vb程式設計：使用一維陣列編寫程式，隨機產生10個0~100的整數，求出最大值、最小值和平均值。
用vb編寫求元素的一維陣列A，使用INPUTBOX函式賦值，輸出最小元素的值及其下標
尤在尤存 一樓有問題.dim a 19 as double for i 0 to 19 a i inputbox 請輸入一個數 next dim min1 as double 記錄最小值dim min2 as integer 記錄下標min1 a 0 min2 0 要賦初值for i 1 to 19...
vb程式設計應用二維陣列產生隨機矩陣55並實現矩陣
珈藍惜夢 vb源程式如下 option base 1 private sub command1 click dim a 5,5 as integer,b 5,5 as integer for x 1 to 5 for y 1 to 5 a x,y int 10 rnd 90 隨機產生兩位數的整數 p...
C 程式設計一維陣列元素求和
沒錢的萌娃紙 程式設計 如下 檔案字尾名為.cpp include using namespace std define num 20 求和資料個數的最大值 int main int i,n int sum 0 int a num cout 請輸入需要求和的資料的個數 cin n cout 請輸入需...