提交作业方式为：将源代码粘贴到答题的文本编辑框中。 ...

提交作业方式为：将源代码粘贴到答题的文本编辑框中。 注意： 1.无需提交项目文件 2.如果未将源代码粘贴到文本框中，则本题不给分。 编写一个分数统计的程序。通过文本框TextBox1接受10个考试成绩的输入，单击“统计”命令按钮（Button1）后，统计优秀（90～100分）、良好（80～89分）、中等（70～79分）、及格（60～69分）、不及格（0～59分）的人数，统计结果显示在标签中Label1~Label5中。程序界面如下图所示。提示： 1）定义一个有10个数据元素的整型数组intScore来存放10个成绩。定义一个计数变量intNum来记录已输入的数据的个数。intScore和intNum需要定义为模块级的量，即需要定义在事件过程的上方。 2）编写文本框TextBox1的KeyPress事件过程来向数组中输入数据，用户输入回车表示一个数据输入完毕。（此段代码与9.3节的第2个视频的例子代码很相像，请看这个视频） If e.KeyChar = vbCr Then If intNum ＞ 9 Then MsgBox("数据个数已满！不能再输入") TextBox1.Text = "" Exit Sub End If intScore(intNum) = Val(TextBox1.Text) intNum = intNum + 1 TextBox1.Text = "" End If 3）编写命令按钮Button1的Click事件过程来进行数据统计。 第一步：定义5个整型变量作为各档次人数的计数变量（注意，不要为变量起名为：e，因为e是这个事件过程的参数）。 第二步：通过循环依次读取数组中的数据元素，判断它的取值范围，并将相应的计数变量的值加1。 For i = 0 To 9 判断Score(i)的取值范围，并将相应的计数变量的值加1 Next 第三步：将计数变量的值依次显示在标签Label1~Label5中。