作业帮 > 综合 > 作业

VB用数组保存随机产生的10个介于20到50之间的整数,编程求出最大值,最小值,和平均

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/04/28 12:17:43
VB用数组保存随机产生的10个介于20到50之间的整数,编程求出最大值,最小值,和平均
VB用数组保存随机产生的10个介于20到50之间的整数,编程求出最大值,最小值,和平均
Private Sub Command1_Click()
Randomize
Dim a(1 To 10)
Dim max,min,ave
min = 50:max = 20
For i = 1 To 10
a(i) = Int(Rnd * 21 + 30)
Print a(i);
If max < a(i) Then max = a(i)
If min > a(i) Then min = a(i)
ave = ave + a(i)
Next i
ave = ave / 10
Print
Print "max","min","ave"
Print max,min,ave
End Su