1樓：網友
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) max then max = a(i)print a(i),next i
print vbcrlf & 最大值：";maxprint "最小值：";min
print "平均值：";sum / 10end sub
2樓：網友
myvalue = int((100 * rnd) +1) '生成 1 到 100 之間的隨機數值。
陣列的話用迴圈來賦值。
dim xx(1 to 10) as integerfor i=1 to 10
xx(i)=int((100 * rnd) +1)xx(i)
next i
並不保證是否有重複數值。
用vfp程式設計隨機產生10個1~100之間的正整數，並求他們的和
3樓：諾諾百科
rand()函式生成0-1的隨機數， 要生成1-100的，需要處理下clear
s=0??'十個隨機1-100的正整數為：'
for i=1 to 10
n=int(rand()*100-1+1)+1)??ns=s+n
endfor
它們的和為：',s
用vfp程式設計隨機產生10個1~100之間的正整數，並求他們的和
4樓：惠企百科
rand()函式生啟沒成0-1的隨機數， 要生成1-100的，局清需要處理下。
clears=0
十個隨機1-100的正整數為：'
for i=1 to 10
n=int(rand()*100-1+1)+1)?ns=s+n
endfor
它們的和為：',s
怎麼用vb設計 隨機產生10個100到200之間的數，求出最大值與最小值
5樓：刺友互
1、首先需要啟動，新建乙個標準exe工程。
2、開啟之後，在窗體上繪製乙個命令按鈕。
3、接下來需要雙擊命令按鈕進入**視窗。
4、接下來開始按鈕的單擊事件。
5、最後就可以按f5執行測試。求出最大值與最小值。
6樓：指尖遊戲
dim a(9) as integer '定義乙個整數變數陣列，大小為10
for i = 0 to 9
randomize '
a(i) = int(rnd * 100 + 100) '隨機生成10個數字。
nextdim b as integer '定義乙個臨時變數for i = 0 to 8
for j = i + 1 to 9
if a(j) b = a(j)
a(j) = a(i)
a(i) = b
end if
nextnext
最大值為a(9),最小值為a(0)
利用rand函式產生100以內的隨機數,然後用氣泡排序法對這數進行降序排
1 輸入 2 排序抄 3 輸出。參考 如下 include int main for i 0 i 10 i 輸出 利用隨機函式產生10個100以內的整數,並從小到大的順序排序並輸出。include using namespace std int a 10 測試陣列 duvoid print 輸出陣列...
隨機出數字並排序，隨機出10個數字並排序？
使用者賬戶，要求隨機10位 並且裡面包含4個6或4個8如何實現這樣的呢？1238587880或1236567660這種型別structure jiqi dim num as integer dim num2 as integer end structure public function chans...
vb編寫程式,隨機產生10到100間的整數輸出這些數
private sub mand1 click dim a 20 as integer randomize max 0 j 0 for i 1 to 20 a i int 91 rnd 10print a i if max a i then max a i j i next i print prin...