vb作业 不会写程序代码 帮忙

来源：百度知道 编辑：UC知道 时间：2024/06/14 15:37:16
随机产生10个30~100（包括30，100）的正整数，求最大值、最小值和平均值，并显示整个数组的值和结果。程序代码怎么写？
请帮忙解决！谢谢~

Private Sub Command1_Click()
Dim a(9) As Integer
Dim temp As Integer, s As Integer

Randomize

For i = 0 To 9
a(i) = Fix(Rnd * 71) + 30
Print a(i);
Next
Print

temp = a(0)
For i = 1 To 9
If a(i) > temp Then temp = a(i)
Next
Print "最大值"; temp

temp = a(0)
For i = 1 To 9
If a(i) < temp Then temp = a(i)
Next
Print "最小值"; temp

For i = 0 To 9
s = s + a(i)
Next
Print "平均值"; s / 10

End Sub

找找其他高手看看

不屑于帮你

书上没有吗？

太简单了吧，用随机函数不就可以吗