UC知道vb编程问题,急
来源：百度知道 编辑：UC知道 时间：2024/05/24 17:02:51
设计一个程序,生成20到200到800之间(包括200和300)的随机整数,单击窗体,求其平均数,并将平均值和最小平均值的数在窗体上输出!
你的问题中最小平均数是啥意思？
要把窗体的AutoReraw的属性改为true
Dim a%(1 To 20), sum%, av%
Private Sub Form_Click()
Print "平均数："; av
Print "小于平均数的数有："
Dim i%
For i = 1 To 20
If a(i) <= av Then
Print a(i)
End If
Next i
End Sub
Private Sub Form_Load()
Dim i%
For i = 1 To 20
a(i) = Int(Rnd * 601 + 200)
sum = sum + a(i)
Print a(i)
Next i
av = sum / 20
End Sub