(1)在考生文件夹下有一个工程文件vbsj3.vbp。窗体上有一个标题为“得分”的框架,在框架中有一个名称为Txt1的文本框数组,含六个元素;文本框Txt2用来输入难度系数。程序运行时,在左边的六个文本框中输入6个得分,输入难度系数后,单击“计算分数”按钮,则可计算出最后得分并在文本框Txt3中显示(如图1-335所示)。

计算方法:去掉1个最高得分和1个最低得分,求剩下得分的平均分,再乘以3,再乘以难度系数。最后结果保留到第2 位小数,不四舍五入。
注意:文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的“?”改为正确的内容。考生不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
程序源码:
Private Sub Cmd1_Click()
Dim k As Integer, s As Single,
a As _
Single, b As Single
a =Val(Txt1(0).Text)
s= a
b = a
' For k = 1 To ?
s = s +Val(Txt1(k).Text)
' If ? < Val(Txt1(k).Text)
Then
a = Val(Txt1(k).Text)
End If
If b  > Val(Txt1(k).Text)
Then
b= Val(Txt1(k).Text)
End If
Next k
' s = (s -a - b) / ?
' s = ? * 3 * Val(Txt2.Text)
' ? = Int(s * 100) / 100
End Sub
(2)在名称为Form1的窗体上画一个名称为picOpen 的图片框,并利用属性窗口把考生目录中的图标文件Open.ico放到图片框中;再画一个通用对话框控件,名称为cdlOpen,利用属性窗口设置相应属性,即打开对话框时:标题为“打开文件”,文件类型为“Word文档”,初始目录为C盘根目录。再编写适当的事件过程,使得在运行时,单击P1图片框,可以打开上述对话框。运行后的窗体如图1-336所示。
【正确答案】第1小题
【操作步骤】
步骤1:打开考生文件中的本题工程文件vbsj3.vbp,在代码编辑窗口,去掉程序中的注释符“'”,将问号“?”改为正确的内容。
参考代码:
For k = 1 To 5
If a <  Val(Txt1(k).Text) Then
s = (s - a - b)/4
s = s * 3 * Val(Txt2.Text)
Txt3.Text = Int(s * 100)/100
步骤2:按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1:新建一个“标准EXE”工程,按表2-177在窗体中画出控件并设置其相关属性。
【答案解析】