随即产生30-100(包括30和100)的10个正整数,求最大值最小值平均值并显示整个组数的值和结果::随即产生30-100(包括30和100)的10个正整数,求最大值,最小值,平均值,并显示整个组数的值和结
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 15:44:11
![随即产生30-100(包括30和100)的10个正整数,求最大值最小值平均值并显示整个组数的值和结果::随即产生30-100(包括30和100)的10个正整数,求最大值,最小值,平均值,并显示整个组数的值和结](/uploads/image/z/1608302-38-2.jpg?t=%E9%9A%8F%E5%8D%B3%E4%BA%A7%E7%94%9F30-100%EF%BC%88%E5%8C%85%E6%8B%AC30%E5%92%8C100%EF%BC%89%E7%9A%8410%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0%2C%E6%B1%82%E6%9C%80%E5%A4%A7%E5%80%BC%E6%9C%80%E5%B0%8F%E5%80%BC%E5%B9%B3%E5%9D%87%E5%80%BC%E5%B9%B6%E6%98%BE%E7%A4%BA%E6%95%B4%E4%B8%AA%E7%BB%84%E6%95%B0%E7%9A%84%E5%80%BC%E5%92%8C%E7%BB%93%E6%9E%9C%EF%BC%9A%EF%BC%9A%E9%9A%8F%E5%8D%B3%E4%BA%A7%E7%94%9F30-100%EF%BC%88%E5%8C%85%E6%8B%AC30%E5%92%8C100%EF%BC%89%E7%9A%8410%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0%2C%E6%B1%82%E6%9C%80%E5%A4%A7%E5%80%BC%2C%E6%9C%80%E5%B0%8F%E5%80%BC%2C%E5%B9%B3%E5%9D%87%E5%80%BC%2C%E5%B9%B6%E6%98%BE%E7%A4%BA%E6%95%B4%E4%B8%AA%E7%BB%84%E6%95%B0%E7%9A%84%E5%80%BC%E5%92%8C%E7%BB%93)
随即产生30-100(包括30和100)的10个正整数,求最大值最小值平均值并显示整个组数的值和结果::随即产生30-100(包括30和100)的10个正整数,求最大值,最小值,平均值,并显示整个组数的值和结
随即产生30-100(包括30和100)的10个正整数,求最大值最小值平均值并显示整个组数的值和结果
::随即产生30-100(包括30和100)的10个正整数,求最大值,最小值,平均值,并显示整个组数的值和结果
随即产生30-100(包括30和100)的10个正整数,求最大值最小值平均值并显示整个组数的值和结果::随即产生30-100(包括30和100)的10个正整数,求最大值,最小值,平均值,并显示整个组数的值和结
我在电脑上试过的.在窗体上加一个command按钮,程序如下:
Private Sub Command1_Click()
Dim A(10) As Integer,i As Integer,Max As Integer,Min As Integer,s As Integer,Ave As Integer
For i = 1 To 10
A(i) = Int(((100 - 30) * Rnd) + 30) ' 生成 30 到 100 之间的随机数值.
Next i
Max = A(1):Min = A(1):s = A(1)
For i = 2 To 10
If A(i) > Max Then Max = A(i)
If A(i) < Min Then Min = A(i)
s = s + A(i)
Next i
Ave = s / 10
Print "最大值:" & Max
Print "最小值:" & Min
Print "平均值:" & Ave
Print "数组:"
For i = 1 To 10
Print A(i);
Next i
Print
End Sub