1樓：yesyes科
1、首先，將陣列和最小數，設定為實數型別。
2、定義三個整數型別的變數，儲存陣列元素的個數、陣列元素的下標和最小值下標。
3、接著，輸入陣列元素個數。
4、用for迴圈語句控制陣列元素的輸入，條件是i的值小於陣列元素個數。
5、輸入陣列元素時，判斷它是否小於最小值，如果是則改變min的值，並記錄下它的下標。
6、接著，輸出陣列的最小值。
7、用for迴圈語句，實現將最小值移動到陣列的最前面。
8、最後，輸出改變位置後的整個陣列，執行程式就完成了。
2樓：匿名使用者
#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程式,隨機產生10個30~100(包括30,100)的正整數,求最大值,最小值和平均值,並顯示整個陣列的值和結果
3樓：匿名使用者
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問題：隨即產生30-100（包括30和100）的10個正整數，求最大值最小值平均值並顯示整個組數的值和結果
4樓：匿名使用者
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中，隨機產生30到100的正整數，求最大值最小值和平均值。如圖所示
vb的**程式設計，懂的進。 題目求10個30—100間的隨機正整數中的最大值，最小值，平均值
5樓：匿名使用者
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 vb利用隨機函式產生100個100~255（包括100和255）範圍內的隨機數，顯示它們的最大值、最小值和平均值。 6樓：匿名使用者 dim i as integer, a(100) as integer, sum as long private sub command1_click() me.cls print "100個隨機數：" randomize for i = 1 to 100 a(i) = int((rnd() * (255 - 100 + 1)) + 100) sum = sum + a(i) print a(i); if i mod 10 = 0 then print next i print end sub private sub command2_click() max = a(1): min = a(1): maxi = 1: mini = 1 for i = 2 to 100 if a(i) > max then max = a(i): maxi = i if a(i) < min then min = a(i): mini = i next i print "第" & maxi & "個元素最大=" & max & " " & "第" & mini & "個元素最小=" & min print print "平均值：" & sum / 100 end sub 7樓： 不給分，沒人理~~飄過。 我沒試過 jp456789 的方法，不知道是會不會出現不應該出現的日期。樓主的問題是想隨機出2010年的日期吧？我的思路是用2010 12 31這個最大的日期減去天數 0 day 364 這樣就不會出現那種問題，而且個人也覺得簡單點 date 2010,12,31 int rand 364 假設原有... 可以的，先設定textbox的屬性值，確定範圍，隨機數產生用 rnd函式。比如 int rnd 整數n 產生0,1,2,3，n 1中的隨機數。rnd產生的是0 1的隨機數。例如 int rnd n m 1 m 產生的是在區間 m，n 內的數。randomize 關鍵必須有，不然每次執行隨機數都不變n... 如下，僅供參考 include include include using namespace std int main sum sum 20 cout 最大值為 cout 最小值為 cout 平均值為 return 0 利用隨機函式產生50 100範圍內的20個隨機整數，顯示其中的最大值 最小值 ... 墳上蝶 如果你用的是 excel2003 那麼在 中插入excel 在快捷工具欄插入 圖示的右邊那個 然後在excel a1單元格或任意單元格中輸入以下公式 如果想重新整理隨機數，需雙擊excel 再退出excel 編輯狀態.怎樣在word裡面得出隨機數？ 這樣吧，給你個不用vb的辦法，用excel... 參考一下這個，vb6.0做個隨機排序的軟體，有 裡面定義了乙個常量const pxsl 50，修改這個常量，就可以用作其他數量的內容隨機無重複排列了。定義了乙個dim stryuan pxsl 1 as string 源陣列 作為原始資料存放的陣列，用迴圈賦值為1 50，以此為例演示了無重複生成排列...excel隨機產生日期，excel如何隨機生成日期
vb程式設計，產生隨機數，vb程式設計，產生隨機數
利用隨機函式產生50至100範圍內的隨機數，顯示他們的
在裡怎麼產生隨機數，在WORD裡，怎麼產生隨機數？
VB中如何在隨機範圍內產生無重複隨機數