2. 简单应用(2小题,每题20分,计40分)
注意:下面出现的“考生文件夹”均为%USER%
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有一个标题为“得分”的框架,在框架中有一个名称为Text1的文本框数组,含六个元素; 文本框Text2用来输入难度系数。程序运行时,在左边的六个文本框中输入6个得分,输入难度系数后,单击“计算分数”按钮,则可计算出最后得分并在文本框Text3中显示(如图所示)。
计算方法:
去掉1个最高得分和1个最低得分,求剩下得分的平均分,再乘以3, 再乘以难度系数。最后结果保留到第2位小数,不四舍五入。
注意:
文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的 ? 改为正确的内容。考生不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
解题思路:
启动Visual Basic系统,打开考生文件夹下需编辑的工程文件sjt3.vbp,相应的窗体文件名为sjt3.frm。
由于所提供的窗体程序不完整,在“计算分数”按钮的Private Sub Command1_Click()事件过程中,有四处地方需要修改。
1) 将语句
'For k = 1 To ?
改为
For k = 1 To 5
2) 将语句
☆国家教育部考试中心题库☆ 172
'If ? < Val(Text1(k).Text) Then
改为
If a < Val(Text1(k).Text) Then
3) 将语句
's = (s - a - b) / ?
改为
s = (s - a - b) / 4
4) 将语句
's = ? * 3 * Val(Text2.Text)
改为
s = s * 3 * Val(Text2.Text)
5) 将语句
'? = Int(s * 100) / 100
改为
Text3 = Int(s * 100) / 100
参考文件:c:/wexam/26990001/hlpsys/参考答案/sjt3.vbp、sjt3.frm、sjt3.vbw
请把这些文件复制到c:/wexam/26990001中,然后打开sjt3.vbp文件并运行。
(2)在考生目录下有一个工程文件sjt4.vbp。 窗体上的控件如图所示。程序运行时,若选中“阶乘”单选按钮,则“1000”、“2000”菜单项不可用(如图所示),若选中“累加”单选按钮,则“10”、“12”菜单项不可用。选中菜单中的一个菜单项后,单击“计算”按钮,则相应的计算结果显示在文本框中(例如:选中“阶乘”和“10”,则计算10!,选中“累加”和“2000”,则计算1+2+3+ … +2000)。 单击“存盘”按钮则把文本框中的结果保存到考生目录下的out4.dat文件中。
要求:
编写“计算”按钮的Click事件过程。
注意:
不得修改已经存在的程序,在结束程序运行之前,必须用“存盘”按钮存储计算结果,否则无成绩。最后,程序按原文件名存盘。
解题思路:
启动Visual Basic系统,打开考生文件夹下需编辑的工程文件sjt4.vbp,相应的窗体文件名为sjt4.frm。
由于所提供的窗体程序不完整,需添加事件过程。
单击“计算”按钮(即运行Click事件过程),在该Click事件过程中加入语句:
Private Sub Command1_Click()
If Option1.Value = True Then
s = 1
For k = 1 To n
s = s * k
Next
End If
If Option2.Value = True Then
s = 0
For k = 1 To n
s = s + k
Next
End If
Text1 = s
End Sub
参考文件:c:/wexam/26990001/hlpsys/参考答案/sjt4.vbp、sjt4.frm、sjt4.vbw、out4.txt
请把这些文件复制到c:/wexam/26990001中,然后打开sjt4.vbp文件并运行。
① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;
② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。