作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/04/28 06:46:01
求一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 " 最大值"," 最小值"," 平均值"
Print max,min,ave
End Su