1樓：匿名使用者
新增乙個command控制項即可，**如下：
private sub command1_click()
dim a(5), z, s, max, min as integer
print "生成的數字:"
for i = 1 to 5 '陣列裡面有5個不同數值a1,a2,a3,a4,a5，此處i的最大值n對應dim中的a(n)(可以改變最大值來改變需要的輸出的資料數量)
' i = 0 to n 表示i的取值有n-0+1個
a(i) = int(rnd * 99) + 1 '陣列內產生1~100的隨機數
print a(i);
z = z + a(i)
s = z / (ubound(a) + 1)
if max < a(i) then
max = a(i)
min = max
end if
next
for i = 1 to ubound(a) '此處i的最小值對應第乙個for語句的最小值
if min > a(i) then
min = a(i)
end if
next
print "最大數:" & max
print "最小數:" & min
print "平均值:" & s
print "此陣列包含資料個數有:" & ubound(a); "個"
end sub
vb 利用隨機函式產生10個1~100之間的隨機數,顯示出最大值最小值,平均值
2樓：網海1書生
private sub form_click()dim a(9) as integer, max as integer, min as integer, arg as single, i as integer
randomize
for i = 0 to 9
a(i) = int(rnd * 100) + 1arg = arg + a(i)
if i = 0 or a(i) > max then max = a(i)
if i = 0 or a(i) < min then min = a(i)
print a(i);
next
print "最大值："; max
print "最小值："; min
print "平均值："; arg / 10end sub
用vb，生成乙個1到100之間的隨機數
3樓：匿名使用者
private sub command1_click()
label1.label1 = int(rnd(1) * 100)
end sub
4樓：湘湖泛舟
dim myvalue
randomize ' 對隨機數生成器做初始化的動作。
myvalue = int((100 * rnd) + 1) ' 生成 1 到 100 之間的隨機數值。
5樓：泣覓山
private sub command1_click()text1.text = int(rnd(1) * 100)end sub
點選按鈕command1 就在文字text1裡輸出 隨即數
6樓：匿名使用者
randomize
(rnd * 100)+1
7樓：匿名使用者
int(rnd*(100+1)+1)
或者 int(100*rnd+1)
vb.net程式，利用隨機函式產生100個1到100之間的整數，求其中的最大最小值。
vb程式設計 隨機產生n個10-100的整數，求其中的最大值，最小值，總和及平均值 20
vb程式設計：使用一維陣列編寫程式，隨機產生10個0~100的整數，求出最大值、最小值和平均值。
急求！vb程式設計題目
dim m as integer,n as integerprivate sub command1 click m val inputbox 輸入正整數 n val inputbox 輸入正整數 if n m 0 then msgbox 兩數任何乙個數都不能為0 exit sub end if en...
vb程式設計題隨機產生不重複的A Z之間的英文字母，按字母順序輸出，每行
給你個思路。首先，定義20個陣列。然後在過程里弄個for迴圈，比如for i 1 to 20利用隨機函式，生成65 90之間的函式，賦值到變數，比如 str int 90 65 1 rnd 65 再弄個for迴圈，比如for j 1 to i判斷是否重複 if 陣列名 j str thencall ...
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...