使用随机函数生成 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