VB程序设计，编写代码求随机产生20名同学的身高,求最高、最低、平均身高,身高范围是1.55~1.80米。

答案：Private Sub Command1_Click()
Dim i, a(20), avg, max, min As Integer
Print "随机生成20位同学的身高:"
For i = 1 To 20
a(i) = Int(Rnd * 26) + 155
avg = avg + a(i)
If i = 1 Then max = a(i): min = a(i)
If max < a(i) Then max = a(i)
If min > a(i) Then min = a(i)
Print a(i) / 100 & "  ";
If i Mod 10 = 0 Then Print
Next
Print "20位同学平均身高=" & avg / 2000
Print "20位同学中身高最高=" & max / 100
Print "20位同学中身高最低=" & min / 100
End Sub

其他：2005年中国人平均身高统计 1 北京 174.17厘米 2 辽宁174.15厘米 3 黑龙江20 福建 168.90 厘米 21 三胡北 168.89 厘米 22 广东 168.83 厘米 

上一个：VB程序设计阶段试题（练习题） 题目：10秒定时器
下一个：帮帮忙---vb抽奖：怎样把电话号码中间几个数变成“*”号