2012年计算机二级VB上机试题及解题思路第41套

　　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文件并运行。

　　相关推荐：

　　2012年计算机等考四级数据库工程师备考笔记汇总

　　2012年计算机等级考试二级VB重点知识汇总

　　2012年下半年计算机等级考试报名时间及入口汇总