1、国家二级 VB机试（上机操作）模拟试卷 248及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个标签，名称为 L1，标题为 “业余爱好 ”，再画一个名称为 Chl的复选框数组，含三个复选框，它们的 Index属性分别为 0、 1、 2，标题依次为 “体育 ”、 “音乐 ”、 “美术 ”，请设置复选框的属性，使其初始状态见表 21。运行后的窗体如图 2 11所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文 件名为 sjtl frm。 (2)在名称为 Fo
2、rml的窗体上画一个文本框，名称为 Textl；再建立一个下拉菜单，菜单标题为 “操作 ”，名称为 M1，此菜单下含有两个菜单项，名称分别为 Show和Hide，标题分别为 “显示 ”、 “隐藏 ”，清编写适当的事件过程，使得在运行时，单击“隐藏 ”菜单项，则文本框消失；单击 “显示 ”菜单项，则文本框显示出来。运行后的窗体如图 2 12所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，翻陧文件名为 sit2 vbp，窗体文件名为 sit2 fhn。 二、简单应用题 2 (1)在考生目录下有一个工程文件 sjt3 vbp，包含了所有控件和部分程序
3、如图2 180所示。要求如下： 利用属性窗口设置适当的属性，使 Text1、 Text2中数据右对齐； 请编写适当的程序完成以下功能：在 Text1中输入 40(度数 )，选择组合框中的一个项目，单击 “计算 ”按钮，则根据所选择的项目，计算出相应的正弦、余弦值 (保留 3位小数，第 4位截去， 取 3 14159)，并显示在 Text2中。 注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种 计算；在 Text1中输入的必须是 40；必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，窗体上已
4、经画出所有控件。程序的作用是构成一个简单的时钟。刚运行时，不计时，选择一个单选按钮后，再单击 “计时 ”按钮，则开始计时，并根据所选的单选按钮决定是每秒显示一次秒数，还是每 10秒显示一次秒数。 Text2用于显示秒，如图 2 181所示。窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不得修改已经给出的程 序。最后把修改后的文件按原文件名存盘。三、综合应用题 3 在考生文件夹下有一个工程文件 sit5 vbp，其窗体上有三个标签、三个文本框和两个命令按钮，均使用默认名称。程序的功能是： 如果单击 “读数据 ”命令按钮，则把考生文件夹下 in5
5、dat文件中两组已按升序方式排列的数 (每组 30个数 )分别读入数组 A和 B，并分别将它们显示在 Text1、 Text2中： 如果单击 “合并 ”命令按钮，则将 A、 B两个数组合并为另一个按升序方式排列的数组 C，并将合并后数组 C中的数据依升序方式显示在 Text3中。 窗体中给出了 所有控件 (如图2 142所示 )以及 “读数据 ”命令按钮的 Click事件过程，请完善 “合并 ”命令按钮的Click事件过程，使其实现上述功能。注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行合并操作，且必须通过窗体右上角的 “关闭 ”按钮结束程序，否则无成绩。最后，程序按原文件名
6、存盘。 国家二级 VB机试（上机操作）模拟试卷 248答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”三程。 步骤2：在窗体 Form1中加入一个标签和一个复选框，并用 “复制 ”和 “粘贴 ”的方法，生成包含三个元素的复选框数组。 步骤 3：分别设置窗体和复选框数组中各元素的相关属性，其属性及值如表 3-5所示。步骤 4：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Fonnl中画一个文木框，在属性设置窗口中将其 Name属性值设置为 Text1。 步骤 2：选择【工具
7、 【菜单编辑器】命令，打开菜单设计器，如表 36中的设置建立菜单项。 步骤 3：打开代码编辑窗口，编写以下事件过程： 参考代码： Private Sub hideC1 ick() Textl Visible=False End Sub Private Sub showC1ick() Text1 ViSible=True End Sub 步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹中的工程文件 sjt3 vbp，依次选中窗体中的两个文本框，将其 Alignment属性值设置为 1-Right Justify。
8、步骤 2：双击窗体中的 “计算 ”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。 参考代码： Private Sub CommandlClick() Const PI=3 14159 Select Case Comb01 Text Case”sin”： a=SinfCInt (Textl Text)*PI 180) Case”COs”： a=CoS(cInt (Textl Text)*PI 180) End Select Text2=Int(a*1000) 1000 End Sub 步骤 3：按 键键运行程序，在左侧文奉框中输入 “40”，选择不同选项，单击“计算 ”按钮。 步骤 4：单
9、击窗体右上角的关闭按钮以结束程序。 步骤 5：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的奉题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： num=num+1 Text2 Text=Text2 Text+10 Textl Text=Textl Text+1 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 l：打开考生文件夹下的本题工程文件 sjt5 Vbp。 步骤 2：编写 “合并 ”按钮的单击事件过程。 参考代码： Private S
10、ub Command2一 Click() 考生编写程序开始 ia=1： ib=1： ic=1 Do While ia=30 And ib=30 If a(ia)b(ib)Then C(ic)=a(ia)： ia=ia+l E1Se c(ic)=b(ib)： ib=ib+1 End If iC=iC+1 Loop Do While ia(=30 C(iC)=a(ia)： ia=ia+1： ic； ic+1 Loop Do While ib=30 C(ic)=b(ib)： ib=ib+1： ic=ic+l Loop 考生编写程序结束 以下程序将合并后的数组 C显示在 Text3中 For k=1 TO 60 Text3=Text3+Str(C(k)+Space(2) Next k End Sub 步骤 3：运行程序，单击 “读数据 ”按钮，然后单击 “合并 ”按钮获得结果，然后通过窗体右上角的 “关闭 ”按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。
