随机产生20个两位数并保存在数组arr中，求数组中的和sum，最大值max，最小值min，和平均值avg的编程程序

Posted 2023-03-16

Dim arr(1 To 20) As Integer, sum As Integer, max As Integer, min As Integer, avg As Single, i As Integer, j As Integer
Private Sub Form_Click()
Print "20个随机数是："
For i = 1 To 20
Randomize
arr(i) = Int((99 - 10 + 1) * Rnd + 10) '生成10到99的两位数
Print arr(i);
If i Mod 10 = 0 Then Print '每行输出10个随机数
sum = sum + arr(i)
Next
avg = sum / 20
For i = 1 To 19
For j = i + 1 To 20
If arr(i) > arr(j) Then
t = arr(i): arr(i) = arr(j): arr(j) = t '由小到大排序
End If
Next
Next
max = arr(20): min = arr(1)
Print "最大值：" & max
Print "最小值：" & min
Print "平均值：" & avg
End Sub 参考技术A vb没用过，不过可以说一下思路。
首先 通过随机函数产生20个随机数，利用循环将其依次放在数组中。
求最大值和最小值，其实只需要使用1个循环就可以了。声明两个变量，一个最大值max，一个最小值min.20个随机数，首先将第一个和第二个比较，将大数放在max中，小数放在min中。然后比较第二个数和第三个数，将获得的大数和小数再分别和max和min比较后，将max和min重新赋值。剩下的同上。这样就求出了最大数和最小数。
求平均数。将所有数相加后除以20就行了。