1、国家二级 VB 机试（上机操作）-试卷 49 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画一个名称为 ShapeI 的圆角矩形，高、宽分别为 1000、2000。请利用属性窗口设置适当的属性满足以下要求：圆角矩形中填满绿色(颜色值为&HOOOOFFOO&或&HFF00&)；窗体的标题为“圆角矩形”。运行后的窗体如图 3153 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtlvbp，窗体文件名为 sjtlfr
2、m。 (2)在考生文件夹下有一个工程文件 sjt2vbp。窗体中已含有除计时器外的其他控件，还有一个过程 subl，其功能是按照 Textl 中的通话时间计算通话费，并将其显示在 Text2 中。程序运行时，单击“通话开始”按钮，则在 Text1 中累加通话时间(每秒加 1)，单击“通话结束”按钮，则停止通话时间的累加；单击“计算通话费”按钮，则调用过程 sub1。要求：在窗体上画一个计时器(如图 3154 所示)，并通过属性窗口设置适当属性。编写三个按钮的 Click 事件过程。编写计时器的事件过程。注意：要求程序中不得使用变量，每个事件过程中只能写一条语句，“计算通话费”按钮的事件过程中只
3、允许调用过程 subl。不得修改已经存在的内容和控件属性，最后把文件按原文件名存盘。（分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，在程序运行时，单击“输入整数”按钮，可以从键盘输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。如图 3-137(a)是输入 53 后的结果，如图 3137(b)是输入 100 的结果。已经给出了全部控件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中的?改为正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。 (2)在考生
4、文件夹下有一个工程文件 sit4vbp。在其窗体中“待选城市”下的 Listl 列表框中有若干个城市名称。程序运行时，选中 Listl 中若干个列表项，如图3138(a)所示，单击“选中”按钮则把选中的项目移到 List2 中；单击“显示”按钮，则在 Textl 文本框中显示这些选中的城市，如图 3138(b)所示。已经给出了所有控件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生目录下有一个工
5、程文件 sit5vbp，其窗体上有两个标签 L1 和 L2，标题分别为“口令”和“允许次数”；一个命令按钮 C1，标题为“确定”；两个文本框名称分别为 Tex1 和 Text2。其中 Text1 用来输入口令(输入时，显示“*”)，无初始内容；Text2 的初始内容为 3。并给出了 C1 的事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在运行时，在 Text1 中输入口令后，单击“确定”按钮，如果输入的是“123456”，则在 Textl 中显示“口令正确”；如果输入其他内容，单击“确定”按钮后，弹出如图 3-147 所示的错误提示对话框，并且 Text2 中的数
6、字减 1。最多可输入 3 次口令，若 3 次都输入错误，则禁止再次输入。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 49 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画一个名称为 ShapeI 的圆角矩形，高、宽分别为 1000、2000。请利用属性窗口设置适当的属性满足以下要求：圆角矩形中填满绿色(颜色值为&HOOOOFFOO&或&HFF00
7、&)；窗体的标题为“圆角矩形”。运行后的窗体如图 3153 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtlvbp，窗体文件名为 sjtlfrm。 (2)在考生文件夹下有一个工程文件 sjt2vbp。窗体中已含有除计时器外的其他控件，还有一个过程 subl，其功能是按照 Textl 中的通话时间计算通话费，并将其显示在 Text2 中。程序运行时，单击“通话开始”按钮，则在 Text1 中累加通话时间(每秒加 1)，单击“通话结束”按钮，则停止通话时间的累加；单击“计算通话费”按钮，则调用过程 sub1。要求：在窗体上画一个计时器(如图 3154 所示)，并通过属性窗口设置适当
8、属性。编写三个按钮的 Click 事件过程。编写计时器的事件过程。注意：要求程序中不得使用变量，每个事件过程中只能写一条语句，“计算通话费”按钮的事件过程中只允许调用过程 subl。不得修改已经存在的内容和控件属性，最后把文件按原文件名存盘。（分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：打开本题工程文件 sjt2vbp，在窗体中画一个名为 Timerl，Interval 属性为 1000，Enabled 属性为 False
9、 的计时器。 步骤 2：打开代码编辑窗口，编写三个命令按钮的 Click 事件过程以及计时器的 Timer 事件过程。 参考代码： Private Sub Commandl Click() TimerlEnabied：True End Sub Private Sub Command2 C1ick() TimerlEnabled=False End Sub Private Sub Command3 C1ick() sub1 End Sub Private Sub Timerl Timer() Text1=Text1+1 End Sub 步骤 3：按要求将文件保存至考生文件夹中。)解析：二、简单应
10、用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，在程序运行时，单击“输入整数”按钮，可以从键盘输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。如图 3-137(a)是输入 53 后的结果，如图 3137(b)是输入 100 的结果。已经给出了全部控件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中的?改为正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。 (2)在考生文件夹下有一个工程文件 sit4vbp。在其窗体中“待选城市”下的 Listl 列表框中有若干个城市名称。程序运行
11、时，选中 Listl 中若干个列表项，如图3138(a)所示，单击“选中”按钮则把选中的项目移到 List2 中；单击“显示”按钮，则在 Textl 文本框中显示这些选中的城市，如图 3138(b)所示。已经给出了所有控件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt3vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考
12、代码： n=InputBox(”请输入一个整数”) If m Mod k=0 Then fun=S 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： For k=ListlListCount 一 1 To 0 Step 一 1 List2AddItem ListlList(k) ListlRemoveItem k Text1=Textl“”List2List(k) 步骤 2：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题
13、数：1，分数：2.00)3.在考生目录下有一个工程文件 sit5vbp，其窗体上有两个标签 L1 和 L2，标题分别为“口令”和“允许次数”；一个命令按钮 C1，标题为“确定”；两个文本框名称分别为 Tex1 和 Text2。其中 Text1 用来输入口令(输入时，显示“*”)，无初始内容；Text2 的初始内容为 3。并给出了 C1 的事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在运行时，在 Text1 中输入口令后，单击“确定”按钮，如果输入的是“123456”，则在 Textl 中显示“口令正确”；如果输入其他内容，单击“确定”按钮后，弹出如图 3-147
14、 所示的错误提示对话框，并且 Text2 中的数字减 1。最多可输入 3 次口令，若 3 次都输入错误，则禁止再次输入。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit5vbp，将文本框Textl 的 PasswordChar 属性值设置为“”。 步骤 2：在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： If TextlText=“123456”Then TextlPasswordChar=” If Text2Text0 Then TextlEnabled=False 步骤 3：按要求将文件保存至考生文件夹中。)解析：
