VB怎樣生成30 100的整數,求最大,最小,平均值

1樓：遠方的田野

生成30到100的隨機數：int[random()*70+30] 定義變數x.y.z分別賦於其隨機數值，然後再求大小，應該沒問題吧

2樓：彬騰

dim i as integer, sum_ as integer, max_ as integer, min_ as integer, no_(9) as string

randomize timer '初始化隨機數種讓，使每次程式執行時產生的隨機數都不相同

min_ = 101 '初始化一個最小值

for i = 0 to 9

no_(i) = int(rnd * 70 + 30)

if max_ < no_(i) then max_ = no_(i)

if min_ > no_(i) then min_ = no_(i)

sum_ = sum_ + no_(i)

next i

msgbox "值列表：" & join(no_(), "，") & vbcrlf & "最大：" & max_ & vbcrlf & "最小：

" & min_ & vbcrlf & "平均值：" & sum_ / 10, , ""end

3樓：匿名使用者

彬騰 is right

vb的**程式設計，懂的進。 題目求10個30—100間的隨機正整數中的最大值，最小值，平均值

4樓：匿名使用者

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中，隨機產生30到100的正整數，求最大值最小值和平均值。如圖所示

vb問題：隨即產生30-100（包括30和100）的10個正整數，求最大值最小值平均值並顯示整個組數的值和結果

5樓：匿名使用者

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）的正整數，求最大值和平均值，並顯示整個陣列的值和結果。

vb程式設計：使用一維陣列編寫程式，隨機產生10個0~100的整數，求出最大值、最小值和平均值。

vb題，用隨機函式生成包含10個兩位整數的一維陣列，求這10個數的最大值，最小值以及平均值。

6樓：匿名使用者

執行結果：

生成的陣列為

73 58 62 36 37 79 11 78 83 73排序後的陣列為

83 79 78 73 73 62 58 37 36 11該陣列元素各個元素的和是 590 最大元素是 83 最小元素是 11

從鍵盤上輸入10個數,輸出這10個數並求這10個數的平均值,最大值和最小值.要求vb 10

vb中，怎樣產生1 n之間的隨機整數

看看這個,你一定會懂的 rnd函式 返回 返回一個包含隨機數值的 single。語法rnd number 可選的 number 引數是 single 或任何有效的數值表示式。返回值如果 number 的值是 rnd 生成 小於 0 每次都使用 number 作為隨機數種子得到的相同結果。大於 0 序...

vb求出0100的整數能夠被3整除的個數以及能夠被

private sub command1 clickdim sum as integer 和 dim count as integer 個數sum 0 count 0 text3.text for i 1 to 100 if i mod 3 0 and i mod 7 0 thencount cou...

求方程x y xy的整數解（x,y均為整數）

首先因為x 2 xy y 2 x 0.5y 2 0.75y 2 0，現在題目說x y x 2 xy y 2，所以x y 0。下面說明如果原方程有整數解，那麼解不可能出現負數。否則，假設y 0.而x y 0,故xy 0，因而x 2 xy y 2 x 2 y 2，所以x x y x 2 y 2，但x是整...