应用题
1. 在考生文件夹下有一个工程文件sjt3.vbp。其窗体文件上有一个标题为“得分”的框架，在框架中有一个名称为Text1的文本框数组，含6个文本框控件；文本框Text2用来输入难度系数。程序运行时，在左边的6个文本框中输入6个得分，输入难度系数后，单击“计算分数”按钮，则可计算出最后得分并显示在文本框Text3中(如图所示)。
计算方法：
去掉1个最高得分和1个最低得分，求剩下得分的平均分，再乘以3，再乘以难度系数。最后结果保留到第2位小数，不四舍五入。
注意：文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，考生不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
计算方法：
去掉1个最高得分和1个最低得分，求剩下得分的平均分，再乘以3，再乘以难度系数。最后结果保留到第2位小数，不四舍五入。
注意：文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，考生不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
【正确答案】【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“'”，将问号改为正确的内容。
参考答案(字体加粗部分是需考生填入的内容)
Private Sub Command1_Click()
Dim k As Integer,s As Single,a As Single,b As Single
a=Val(Text1(0).Text) '将第一个文本框的值作为最大值赋予a
s=a
b=a '将第一个数作为最小值赋予b
For k=1 To 5 '剩余文本框作为循环次数的条件
s=s+Val(Text1(k).Text)
If a＜Val(Text1(k).Text)Then
'取出每个文本框的值与最大值比较，求最大值
a=Val(Text1(k).Text)
End If
If b＞Val(Text1(k).Text)Then
b=Val(Text1(k).Text)
End If
Next k
s=(s-a-b)/4
'根据要求去掉一个最高分和一个最低分后求四科的平均分
s=s*3*Val(Text2.Text)
'根据题意此处应填平均分
Text3=Int(s*100)/100
'Int(N)是求小于或等于N的最大整数，同时将最后结果显示在Text3上
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“'”，将问号改为正确的内容。
参考答案(字体加粗部分是需考生填入的内容)
Private Sub Command1_Click()
Dim k As Integer,s As Single,a As Single,b As Single
a=Val(Text1(0).Text) '将第一个文本框的值作为最大值赋予a
s=a
b=a '将第一个数作为最小值赋予b
For k=1 To 5 '剩余文本框作为循环次数的条件
s=s+Val(Text1(k).Text)
If a＜Val(Text1(k).Text)Then
'取出每个文本框的值与最大值比较，求最大值
a=Val(Text1(k).Text)
End If
If b＞Val(Text1(k).Text)Then
b=Val(Text1(k).Text)
End If
Next k
s=(s-a-b)/4
'根据要求去掉一个最高分和一个最低分后求四科的平均分
s=s*3*Val(Text2.Text)
'根据题意此处应填平均分
Text3=Int(s*100)/100
'Int(N)是求小于或等于N的最大整数，同时将最后结果显示在Text3上
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【答案解析】[考点] 本题考点有：INT()函数、Val()函数、文本框数组的Text属性、If判断语句以及For循环语句。
通过Val()函数获取文本框数组的值，并把它转换为数值型，通过循环语句和判断语句，找出最大值和最小值赋值给变量a和b，同时累加所有数值的和赋值给s，那么最终的和为s-a-b，根据算法求剩下得分的平均分，乘以3，再乘以Text2中输入的难度系数，得出最终的得分。
通过Val()函数获取文本框数组的值，并把它转换为数值型，通过循环语句和判断语句，找出最大值和最小值赋值给变量a和b，同时累加所有数值的和赋值给s，那么最终的和为s-a-b，根据算法求剩下得分的平均分，乘以3，再乘以Text2中输入的难度系数，得出最终的得分。