Question

关于visual basic的一个小问题

问题是: 用数组编程随机产生10个学生的成绩（要求学生成绩在60分以上），然后计算这10个学生的平均成绩，并统计低于平均分的人数。

请把具体语句写下,谢谢.

Answer 1

好久不写代码了，不过这个功能还是很简单的。各种统计判断都在For循环里做就可以了。代码如下

Dim student(9) As Integer
Dim Lowest As Integer
Dim Highest As Integer
Dim Avr As Integer
Lowest = 100

For i=0 To 9
student(9) = Rnd * 40 + 60
Next i

For i=0 To 9
If student(i) > lowest Then lowest = student(i)
If student(i) < highest Then highest = student(i)
Avr = Avr + student(i)
Next i
Avr = Avr/10

Debug.Print "平均成绩" & Avr
Debug.Print "最高成绩" & Highest
Debug.Print "最低成绩" & Lowest

Answer 2

一楼的答案是错误的