1樓：匿名使用者
private sub command1_click()clsprint "組數："
dim a(9) as integer
for n = 0 to 9
a(n) = int(rnd * 71) + 30print a(n);
next n
max = a(0): min = a(0)print
for n = 0 to 9
if a(n) > max then max = a(n)if a(n) < min then min = a(n)sum = sum + a(n)
next n
print "最大值：" & max
print "最小值：" & min
print "平均值：" & sum / 10end sub
編一vb程式,隨機產生10個30~100(包括30,100)的正整數,求最大值,最小值和平均值,並顯示整個陣列的值和結果
2樓：匿名使用者
private sub command1_click()dim a(10)
randomize
dim sum as integer, min as integer, max as integer
sum = 0: min = 100: max = 30for i = 0 to 9
a(i) = int(30 + (71 * rnd))sum = sum + a(i)
if a(i) < min then min = a(i)if a(i) > max then max = a(i)print a(i),
next i
print vbcrlf & "最大值:"; maxprint "最小值:"; min
print "平均值:"; sum / 10end sub
（vb 做法）隨機產生10個30~100（包括30和100）的正整數，求最大值和平均值，並顯示整個陣列的值和結果。
vb的**程式設計，懂的進。 題目求10個30—100間的隨機正整數中的最大值，最小值，平均值
3樓：匿名使用者
dim rand(10)
total=0
min=100
max=0str=""
for i=1 to 10
randomize
rand(i)=int(rnd*71+30) '產生隨機數total=total+rand(i)
if min>rand(i) then min=rand(i)if max str=str&"產生的隨機數是:" for i=1 to 10 if i<10 then str=str&rand(i)&"," else str=str&rand(i)&"" end if next str=str&"其中最大數為："&maxstr=str&",其中最小數為:"&minstr=str&",平均數為:"&total/10 隨機產生10個30～100（包括30，100）的正整數，求最大值、最小值和均值，並顯示整個陣列的值和結果。 4樓：yesyes科 1、首先，將陣列和最小數，設定為實數型別。 2、定義三個整數型別的變數，儲存陣列元素的個數、陣列元素的下標和最小值下標。 3、接著，輸入陣列元素個數。 4、用for迴圈語句控制陣列元素的輸入，條件是i的值小於陣列元素個數。 5、輸入陣列元素時，判斷它是否小於最小值，如果是則改變min的值，並記錄下它的下標。 6、接著，輸出陣列的最小值。 7、用for迴圈語句，實現將最小值移動到陣列的最前面。 8、最後，輸出改變位置後的整個陣列，執行程式就完成了。 5樓：匿名使用者 #include #include #include int main(void) { int i,n = 10; int a[10],min = 100,max = 0,sum = 0; srand(unsigned(time(null))); for(i = 0; i < 10; i++) {a[i] = (unsigned)rand()%31 + 70; if(a[i] > max) max = a[i]; else if(a[i] < min) min = a[i]; sum += a[i]; for(i = 0; i < n; i++) printf("%4d",a[i]); printf("\n"); printf("最大值是 : %d\n",max); printf("最小值是 : %d\n",min); printf("平均值是 : %.2lf\n",(double)sum/n); return 0; vb題:利用隨機函式產生50個學生的成績(30~100),在**框p1中輸出成績以及大於平均分的成績,每行10個 6樓： dim a(1 to 50) private sub form_load() for i = 1 to 50 a(i) = 30 + int(rnd * 71) next i end sub private sub picture1_click() for i = 1 to 50 picture1.print right(" " & a(i), 4); if i mod 10 = 0 then picture1.print next i end sub private sub picture2_click() for i = 1 to 49: for j = i + 1 to 50 if a(i) < a(j) then m = a(i): a(i) = a(j): a(j) = m end if next j, i for i = 1 to 50 picture2.print right(" " & a(i), 4); if i mod 10 = 0 then picture2.print next i end sub 看了半天你的 頭疼.看明白了,兩個do while檢查不嚴格,改成下面就可以了.do while cstr n cstr chr 10 and cstr n cstr chr 13 and cstr n do while cstr n cstr chr 10 and cstr n cstr chr ... dim a,b 定義兩個變體型變數a，b，在該模組範圍內有效 private sub form load 窗體載入事件觸發的函式 a picture1.width 記錄 框控制元件picture1的寬度到a變數 b picture1.height 記錄 框控制元件picture1的高度到b變數 hs... private sub command1 click dim n as integer,sum as longn cint text1.text if n 1000 or n 1 thenmsgbox 輸入數值超範圍 exit sub end if for i 0 to n step 3sum su...VB問題求助，Vb問題求助
VB程式設計問題，VB程式設計問題
vb 整除的問題，VB 整除的問題