1、国家二级 VB机试（上机操作）模拟试卷 74及答案与解析 一、基本操作题 0 清根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 1 在名称为 Form1的窗体上画一个文本框，名称为 Text1，字体为 “黑体 ”，文本框中的初始内容为 “程序设计 ”；再画一个命令按钮，名称为 C1，标题为 “改变字体 ”(如图 3-168所示 )。请编写适当事件过程，使得在运行时，单击命令按钮，则把文本框中文字的字体改为 “宋体 ”。程序中不得使用任何变量。 注意：保存时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为sjt1 frm。 2 在名称为 F
2、orm1的窗体上画一个图片框，名称为 P1，高为 1800，宽为 1600，并放入文件名为 pic1 bmp的图片 (如图 3-169所示 )。请编写适当的事件过程，使得在运行时，如果双击窗体，则图片框中的图片消失。程序中不得使用任何变量。 注意：保存时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 3 在名称为 Form1的窗体中画一个名称为 L1的标签，其标题为 “0”， BorderStyle属性为 1；再 添加一个名称为 Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，每隔一秒钟标签中的数字加 1
3、。如图 3-170所示的是程序刚启动时的情况。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt3 vbp，窗体文件名为 sjt3 frm。 4 在考生文件夹下有一个工程文件 sjt4 vbp，要求程序运行后，如果多次单击列表框中的项，则可同时选择这些项。而如果单击 “显示 ”按钮，则在窗体上输出所有选中的列表项 (如图 3-171所示 )。 要求：修改列表框的适当属性 ，使得运行时可以多选，并去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。最后把修改后的程序以原来的文件名存盘。 三、综合应用题 5 在考生文件夹下
4、有一个工程文件 sjt5 vbp，在该工程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为 Text1的文本框；画一个名称为C1、标题为 “计算 ”的命令按钮；再画两个单选按钮，名称分别为 Op1、 Op2，标题分别为 “求 500到 600之间能被 7整除的数之和 ”、 “求 500到 600之间能被 3整除的数之和 ”(如 图 3-172所示 )。请编写适当的事件过程，使得在运行时，选中一个单选按钮，再单击 “计算 ”按钮，就可以按照单选按钮后的文字要求计算，并把计算结果放入文本框中，最后把已经修改的工程文件和窗体文件以原来的文件名存盘。 注意：考生不得修改窗体文件中已
5、经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须至少要进行一种计算，甭则不得分。 国家二级 VB机试（上机操作）模拟试卷 74答案与解析 一、基本操作题 1 【正确答案】 审题分析 本题需在命令按钮的单击事件过程中，通过修 改文本框的 FontName属性值为“宋体 ”来改变文本框中文本的字体。 操作步骤 步骤 1：新建一个 “标准。 EXE”工程，按要求画出控件并设置相应属性。 步骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。 参考代码： Private Sub C1_Click() Me trext1 Font Name=“宋体 “ End Sub
6、 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 字体与字形。 2 【正确答案】 审题分析 本题需在窗体的的 DblClick事件过程中，用 LoadPicture()函数为图片框清除图片。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：打开代码编辑窗口，编写窗体的双击事件过程。 参考代码： Private Sub Form_DblClick() P1 Picture=LoadPicture(“ “) End Sub 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 图形控件。 二、简单应用题 3 【正确答案】 审题分析 可借助计时器来完成
7、有规律性时间间隔执行的任务。本题计时器工作时，为使标签中的数每隔 1秒加 1，需将计时器的 Interval属性值设置为 1000毫秒，在命令按钮的单击事件过程中通过语句 Timer1 Enabled=True启动计时器，在计时器的Timer事件过程中通过语句 L1=L1+1实现加 1。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：在代码编辑窗口编写计时器的事件过程。 参考代码： Private Sub Timer1 Timer() L1=L1+1 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 计时器。 4 【正确答案】 审
8、题分析 本题源程序设计思路：在 “显示 ”按钮的单击事件过程中，使用 For循环语句逐一判断列表框中的各项是否被选中， If语句的条件表达式为： L1 Selected(i)= True，用 Print方法将选中的列表项显示在窗体上。为与列表框的项目索引号保持一致，循环变量的初始值应为 0，终值 应为 L1 ListCount-1。为使列表框在运行时可以多选，应将其 MultiSelect属性值设置为 1-simple。 操作步骤 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，将列表框的 MultiSelect属性值设置为 1-simple。 步骤 2：在代码编辑窗口，去掉程序中
9、的注释符 “”，将问号 “?”改为正确的内容。 参考代码： For i=0 To 11 ListCount-1 If 11 Selected(i)=True Then 步骤 3：按要 求将文件保存至考生文件夹中。 考点链接 选择控件。 三、综合应用题 5 【正确答案】 审题分析 本题源程序中已包含一个能计算 “500 600之间能被整数 a整除的数之和 ”的自定义函数，其中 a为函数的形参，还需编写 “计算 ”按钮的单击事件过程。在该事件过程中根据单选按钮的选择情况，来确定除数的值：如果 Op1被选中，则除数应为7，通过执行语句 Text1 Text=fun(7)可调用自定义函数求出 500
10、600之间能被 7整除的数之和，并显示在文本框中；如果 Op2被选中，则除数应为 3，通过 执行语句 Text1 Text=fun(3)可调用自定义函数求出 500 600之间能被 3整除的数之和，并显示在文本框中。 操作步骤 步骤 1：打开考生文件夹下的工程文件 sjt5 vbp，按要求画出控件并设置属性。 步骤 2：打开代码编辑窗口，编写 “计算 ”按钮的单击事件过程。 参考代码： Private Sub C1_Click() If Op1 Value Then Text1 Text=fun(7) End If If Op2 Value Then Text1 Text=fun(3) End If End Sub 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 Sub过程和函数过程、参数调用。
