以5分为以段，统计全班45人某一门课程成绩分布其中100分自成一段，共计21段

来源：百度知道 编辑：UC知道 时间：2024/07/16 03:56:00
要求数据由随机函数产生，按从高到低的顺序输出，程序不得使用If语句。
重要的是这个是通过“VB”来实现的。不是用C语言。是高手的，帮我解决下。

建Command1,代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Option Explicit

Private Sub Command1_Click()
Randomize
Dim a(44) As Integer, b(20) As Integer, i As Integer
For i = 0 To 44
a(i) = Int(Rnd * 100)
If a(i) = 100 Then
b(20) = b(20) + 1
Else
b((a(i) - 1) \ 5) = b((a(i) - 1) \ 5) + 1
End If
Next
Print "分数为100的人数为：" & b(20)
For i = 19 To 0 Step -1
Print "分数为" & i * 5 & "~" & i * 5 + 4 & "的人数为：" & b(i)
Next
End Sub

switch(num/5)
{
case 1:
/////
break;
case 2:
/////
break;
case 3:
/////
break;
.
.
.

};
这是C语言的.
VB里应该有类似的功能;