随机产生20个学生的成绩0~100（包括0、100)，统计各分数...

随机产生20个学生的成绩0~100(包括0、100)，统计各分数段人数，即0～59、60～69、70～79、80～89、90～100，显示统计结果。产生的数据在Picture1显示，统计结果在Picture2显示，运行效果如下图所示。保存工程和窗体，窗体文件名为：昵称-7-2.frm;工程名为：昵称-7-2.vbp。将工程文件和窗体文件压缩成：昵称-7-2.rar，以附件形式提交。 提示： ①本程序有两个事件过程，都要用到存放20个学生的数组，因此在通用声明段声明一个数组，例：Dim mark% (19)；在Command2事件过程中声明一个数组s(9)，分别存放分数段的人数。 ②在统计时关键确定每个人的分数mark(i)与s数组的下标关系，即： For i=0 To 19 k=mark (i)\ 10 Select Case k Case 0 To 5 ‘ 0～59分不及格的人数 s(5)=s(5)+1 Case 9 To 10 ‘90～100分的人数 s(9)=s(9)+1 Case 6 To 8 ‘ 存放其他三个分数段的下标有规律，根据K获得 s(k)=s(k)+1 End Select Next i