VB设计：随机产生20个学生的成绩,并显示.统计各分数段人数,即50~59 60~69 70~79 80-89，90-100。
VB设计：随机产生20个学生的成绩,并显示.统计各分数段人数,即50~59 60~69 70~79 80-89，90-100。
日期：2021-02-09 01:44:41 人气：1
Randomize
Dim a(20)
Dim s1, s2, s3, s4, s5, s6
s1 = 0: s2 = 0: s3 = 0: s4 = 0: s5 = 0: s6 = 0
For i = 0 To 19
a(i) = Round(100 * Rnd(1))
Print a(i);
Next
Print
For i = 0 To 19
If a(i) >= 50 And a(i) <= 59 Then s1 = s1 + 1
If a(i) >=