1、国家二级 VB机试（上机操作）模拟试卷 203及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画两个文本框，其名称分别为 Textl和 Text2，内容分别为 “文本框 1”和 “文本框 2”，编写适当的事件过程。程序运行后，如果单击窗体，则Text1隐藏， Text2显示，如图 2-6(a)所示；如果双击窗体，则 Textl显示， Text2隐藏，如图 2 6(b)所示。 注意：程序中不得使用变量。 存盘时必须存放在考生文件夹下， 工程文件名为 sjtl vbo，窗体文件名为 sit1
2、frm。(2)在名称为 Forml的窗体上画一个文本框，其名称为 Text1，初始内容为窄白；再画一个水平滚动条，其名称为HS1， SmallChange属性为 4， LargeChange属性为 10， Min属性为 0， Max属性为200，编写适当的事件过程。程序运行后，如果在文本框内输入一个数值 (0200)，然后单击窗体，则把滚动条的滚动框移到相应的位置，如图 2 7所示。 注意：程序中不要使用变量；存盘时必须存放在考生文件夹下，工程文件名为sit2 vbp，窗 体文件名为 sit2 frm。 二、简单应用题 2 (1)在考生目录下有一个工程文件 sit3 vbp，窗体上由一个单选按
3、钮数组，含三个单选按钮，均没有标题，请利用属性窗口，为单选按钮依次添加标题为 “北京 ”、 “上海 ”、 “广州 ”；再添加一个标题为 “显示 ”的命令按钮，如图 218所示。程序的功能是在运行时，如果选中一个单选按钮后，单击 “显示 ”按钮，则根据单选按钮的选中情况，在窗体上显示 “我的出生地是北京 ”、 “我的出生地是上海 ”或 “我的出生地是广州 ”。要求如下： 依次添加单选按钮标题为 “北京 ”、 “上海 ”、 “广州 ”；设初始选中的是 “上海 ”，添加命令按钮标题为 “显示 ”。 去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能
4、修改控件的其他属性。 最后把修改后的文件按原文件名存盘。 (2)。在考生目录下有一个工程文件 sit4 vbp，请在 Forml窗体中画三个标签，名称分别为B1、 B2、 L1，标题分别为 “字号 ”、 “字体 ”、 “计算机等级考试 ”，其中 L1的高为500，宽为 3000；再在 B1、 B2标签的下面画两个组合框，名称分别为 Cb1、Cb2，并为 Cbl添加项目： “10”、 “15”、 “20”，为 Cb2添加项目： “黑体 ”、 “隶书 ”、 “宋体 ”。请编写适当的事件过程，使得在运行时，当在 Cbl中选一种字号、Cb2中选一种字体时，标签 L1中的文字立即变为选定的字号和字体。如
5、图 2 19所示。 注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须选择一种字号和字体。必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，按原文件名存盘，程序中不得使用任何变量。 三、综合应用题 3 在考生文件夹中有一个工程文件 sjt5 vbp，如图 2 129所示。运行程序时，从文件 中读入矩阵数据并放入二维数组 a中。甲击 “计算 ”按钮时，将统计矩阵两个对角线的元素中能被 3整除的个数，统计结果显示在标签 lblFirst中；同时计算矩阵主对角线的元素之和，计算结果显示在标签 IblSecond中。已给出了部分程序，请编写“计算 ”命令按钮事件过程中的部分程序代
6、码，以便完成上述功能。 注意：不能修改程序的其他部分和摔件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须执行程序，并用 “计算 ”按钮进行计算，否则无成绩。 国家二级 VB机试（上机操作）模拟试卷 203答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，住窗体中加入两个文本框并设置它们的相关属性，属性及其值如表 33所示。步骤 2：打开代码编辑窗口，输入如下代码： 参考代码： Private Sub FormClick() Textl ViSible=False Text2 ViSible=True End Sub
7、Private Sub FormDblClick() Textl ViSible=True Text2 ViSible=False End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建 “标准 EXE”工程，往窗体 Forml中加入一个文本框和一个水平滚动条，分别设置它们的相关属性，属性及其值如表 3-4所示。步骤 2：打开代码编辑窗口，输入如下代码： 参考代码： Private Sub FormClick() HSl Value=Val(Texti Text) End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正
8、确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹中的本 题工程文件 sjt3 vbp，依次选中窗体中的各单选按钮和命令按钮，设置它们的相关属性，其属性及值如表 3 12所示。 步骤 2：双击 “显示 ”命令按钮，打开代码编辑窗口，去掉程序中的注释符 ” ，将问号 “?”改为正确的内容。参考代码： PriVate Sub C1一 Click() FOr 1=0 To 2 If Opl(i) Value=True Then Print“我的出生地是 ”+Opl(i).Caption End If Next End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步
9、 骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，如表 313画出三个标签和两个组合框并设置属性。 步骤 2：在代码编辑窗口，编写两个组合框的单击的单击事件过程。 参考代码： Private Sub CblClick() L1 FontSize=Cbl Text End Sub Private Sub Cb2一 Click() L1 Font=Cb2 Text End Sub 步骤 3：按键运行程序并选择一个字号和字体，然后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中 。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹
10、下的本题工程文件 sjt5 vbp，在代码编辑窗口的指定位置编写以下代码： 参考代码： For k=1 To N Sum=Sum+a(k， k) If a(k， k) 3=Int(a(k， k) 3)Then Counter=Counter+1 End If If kNk+1 Then If a(k， Nk+1) 3=Int(a(k， N k+1) 3)Then Counter=Counter+1 End If End If Next iblSecond Caption=Sum iblFirst Caption=Counter 步骤 2：按 键运行程序，然后单击 “计算 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。
