vb问题,不会,清高手过来解答

来源：百度知道 编辑：UC知道 时间：2024/05/25 02:56:42
随机产生20个两位数的随机整数,赋给a数组,然后求各元素之和,平均值,将比
平均值大的各元素的值打印出来,最后找出数组中的最大值及其元素下标并打印
那个能不能再详细点,我还是看不懂!麻烦能不能把代码完全打出来?

最大值=0
最大值下标
总值=0
I=1 to 20
随机整数组（I）=int(rnd*整数范围)
总值=总值+随机整数组（I）
最大值=max(最大值,随机整数组（I))
if 最大值=随机整数组（I), then 最大值下标=I
循环结束后，平均值=总值/20
打印的东东你就自己设置吧，哈哈

Private Sub command1_click()
Dim a(19) As Integer
Dim n As Integer, m As Integer
Dim max As Integer, sum As Long

For i = 0 To 19
a(i) = Fix(90 * Rnd) + 10 '生成一个10到99之间的整数
Print a(i) & ",";
Next
Print

For i = 0 To 19
If a(i) > max Then '找出最大的数
max = a(i)
m = i
End If
sum = sum + a(i) '计算和值
Next
Print "总和： "; sum
Print "平均值："; sum / 20

Print "比均值大的数：";
For i = 0 To 19
If a(i) > sum / 20 Then
Print a(i) & ",";
End If
Next
Print
Print "最大值："; max & "(" & m + 1 & ")"
End Sub