应用题
1. 在考生文件夹下有一个工程文件sjt5.vbp，窗体如图所示。运行程序时，从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序，统计总人数，同时统计不及格、60～69、70～79、80～89及90～100各分数段的人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击“保存”按钮，保存统计结果。
注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中，再按“保存”按钮，否则将没有成绩，最后将修改后的文件按原文件名进行存盘。
注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中，再按“保存”按钮，否则将没有成绩，最后将修改后的文件按原文件名进行存盘。
【正确答案】【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。
参考答案
For i=1 To n '循环判断分数的范围，当满足某个条件时则分别统计
If arr(i)＜60 Then
Text2=Val(Text2)+1
ElseIf arr(i)＞=60 And arr(i)＜70 Then
Text3=Val(Text3)+1
ElseIf arr(i)＞=70 And arr(i)＜80 Then
Text4=Val(Text4)+1
ElseIf arr(i)＞=80 And arr(i)＜90 Then
Text5=Val(Text5)+1
ElseIf arr(i)＞=90 And arr(i)＜=100 Then
Text6=Val(Text6)+1
End If
Text1=Val(Text1)+1 '显示统计人数
Next
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。
参考答案
For i=1 To n '循环判断分数的范围，当满足某个条件时则分别统计
If arr(i)＜60 Then
Text2=Val(Text2)+1
ElseIf arr(i)＞=60 And arr(i)＜70 Then
Text3=Val(Text3)+1
ElseIf arr(i)＞=70 And arr(i)＜80 Then
Text4=Val(Text4)+1
ElseIf arr(i)＞=80 And arr(i)＜90 Then
Text5=Val(Text5)+1
ElseIf arr(i)＞=90 And arr(i)＜=100 Then
Text6=Val(Text6)+1
End If
Text1=Val(Text1)+1 '显示统计人数
Next
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【答案解析】[考点] 本题考点有：App.Path相对路径、Do While语句、文件编辑、Print方法、If选择判断语句、MsgBox对话框以及Val()函数。
在窗体装入时，通过文件操作和Do While语句从数据文件中读取学生的成绩，并把成绩的值装入数组arr(n)。单击“统计”按钮通过For循环语句遍历数组，并用If语句对数组中存储的数值进行判断，使用Val()函数完成字符向数值类型的转换，通过累加统计不及格、60～69、70～79、80～89及90～100各分数段的人数，并将各分数段的人数统计结果和总人数显示在相应的文本框中。单击“保存”按钮，将统计结果使用Print方法，并通过文件操作保存在文本文件中，弹出MsgBox对话框，提示“保存成功!”。
在窗体装入时，通过文件操作和Do While语句从数据文件中读取学生的成绩，并把成绩的值装入数组arr(n)。单击“统计”按钮通过For循环语句遍历数组，并用If语句对数组中存储的数值进行判断，使用Val()函数完成字符向数值类型的转换，通过累加统计不及格、60～69、70～79、80～89及90～100各分数段的人数，并将各分数段的人数统计结果和总人数显示在相应的文本框中。单击“保存”按钮，将统计结果使用Print方法，并通过文件操作保存在文本文件中，弹出MsgBox对话框，提示“保存成功!”。