使用隨機函式生成 N 個數字並找到它們的平均值 （VB）。

n 表示正常或已輸入。

以下是輸入的**。

暗淡隨機數組（） 作為長度，總和與一樣長，n 作為整數

private sub command1_click()for i = 1 to n

列印隨機數組 （i） &" ";

nextprint "平均值為" & sum / nend sub

private sub form_load()dim i as integer

sum = 0

randomize

n = rnd() 100 '從0到100隨機生成整數，我不知道範圍，所以我必須這樣做。

REDIM 隨機數組 （N）。

for i = 1 to n

randomize

隨機數組（i） = rnd（） 100'同上。

總和 = 總和 + 隨機數組 （i）。

nextend sub

VB 隨機函式 RND

對隨機數的要求是完全不同的。 如果不需要。 然後只需迴圈 30 次。 如果要求。 一直到 30 個數字。

毋庸置疑，將數字相加以找到平均值。 加除 303 dim i as integer

dim str as string

i=1，然後在 i<=5 時從第乙個數字開始從第乙個數字到最後乙個數字的迴圈。

str =str & " "& 當前數字 i=i+1

當 i>5 是。

str = str & vbcrlf & 當前數字 i=1i=i+1

週期結束。 vbcrlf 換行符。

a =arr = split(a,chr(13)+chr(10))n = 0

s = 0for i = 0 to ubound(arr)if not isnull(arr) thens = s + arr(i)

n = n + 1

end if

下乙個平均值 = s n

text1，由回車符分隔。

執行結果：

生成的陣列是。

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

83 79 78 73 73 62 58 37 36 11陣列的元素之和為 590，最大元素為 83，最小元素為 11

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) print a(i);

nextprint

print "最大："; max

print "最低："; min

print "平均："; arg / 10end sub