13问答网 > 随机产生10个0到100的整数，求出最大值、最小值和平均值急啊！！求高手帮忙！！明天就要考试了！！

随机产生10个0到100的整数，求出最大值、最小值和平均值急啊！！求高手帮忙！！明天就要考试了！！

编一VB程序

2025-04-28 22:17:07

推荐回答（2个）

回答1：

计算机做不出真正的随机数，你可以随便找个算法近似一个。
最大最小值用二分查找，很容易。
平均值就是循环计算一下。

回答2：

Private Sub command1_click()

Dim i As Integer
Dim max As Integer
Dim min As Integer
Dim sum As Single

Dim X As Integer

X = Int(Rnd * 100)
max = X: min = X: sum = X
Print X

For i = 1 To 9
X = Int(Rnd * 100)
If X > max Then max = X
If X < min Then min = X
sum = sum + X
Print X
Next i

sum = sum / 10

Print max, min, sum
End Sub

随机产生10个0到100的整数，求出最大值、最小值和平均值 急啊！！求高手帮忙！！明天就要考试了！！

随机产生10个0到100的整数，求出最大值、最小值和平均值急啊！！求高手帮忙！！明天就要考试了！！