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

　　注意：下面出现的“考生文件夹”均为%USER%

　　(1)在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm，包含了所有控件和部分程序，如图所示。

　　要求：

　　1)利用属性窗口向列表框添加四个项目： Visual Basic，Turbo C，C++，Java;

　　2)请编写适当的程序完成以下功能：当选择列表框中的一项和单选按钮Option1，然后单击“确定”命令按钮，则文本框中显示“XXX笔试”; 当选择列表框中的一项和单选按钮Option2，然后单击“确定”命令按钮，则文本框中显示“XXX上机”。其中“XXX”是在列表框中所选择的项目。

　　注意：

　　考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须至少要进行一次选择操作(包括列表框和单选按钮)，否则不得分。最后把修改后的文件按原文件名存盘。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。由于所提供的窗体控件不完整，向列表框控件添加项目(List属性)，添加的项目分别为Visual Basic，Turbo C，C++，Java，每个项目为一行。

　　由于所提供的窗体程序不完整，单击“确定”命令按钮(即运行Click事件过程)，在该Click事件过程中

　　加入语句：

　　Private Sub Command1_Click()

　　If Option1.Value And List1.Text <> "" Then

　　Text1.Text = List1.Text & Option1.Caption

　　Else

　　If Option2.Value And List1.Text <> "" Then

　　Text1.Text = List1.Text & Option2.Caption

　　End If

　　End If

　　End Sub

　　另外需注意：在结束程序运行之前，必须至少要进行一次选择操作(包括列表框和单选按钮)，退出程序时需单击窗体右上角的关闭按钮，这样就运行了Private Sub Form_Unload(Cancel As Integer)事件过程。

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt3.vbp、sjt3.frm、sjt3.frx、sjt3.vbw、out3.txt

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt3.vbp文件并运行。

　　**********************************************************************

　　(2)在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。

　　在窗体上有一个命令按钮，其名称为Command1，标题为“计算并输出”。程序运行后，如果单击命令按钮，程序将计算500以内两个数之间(包括开头和结尾的数)所有连续数的和为1250的正整数， 并在窗体上显示出来。这样的数有多组， 程序输出每组开头和结尾的正整数，并用“～”连接起来，如图所示。该程序不完整，请把它补充完整。

　　要求：

　　去掉程序中的注释符，把程序中的 ?改为正确的内容， 使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。由于所提供的窗体程序不完整，在窗体的Private Sub Command1_Click()事件过程中，有三处地方需要修改。

　　1) 将语句

　　'iSum = ?

　　改为

　　iSum = 0

　　2) 将语句

　　'iSum = ?

　　改为

　　iSum = iSum + j

　　3) 将语句

　　'If iSum = ? Then

　　改为

　　If iSum = 1250 Then

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt4.vbp、sjt4.frm、sjt4.vbw

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt4.vbp文件并运行。

　　相关推荐：

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

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

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