1、国家二级 VB机试（上机操作）模拟试卷 104及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Combol的组合框，其宽度为 1200，其类型如图3 102所示 (即简单组合框 )。要求如下： 请按图中所示，通过属性窗口输入 “北京 ”、 “上海 ”、 “广州 ”、 “深圳 ”。 设置适当的属性，使得运行时，窗体的最大化按钮和最小化按钮消失。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sitl fm。 (2)在名称为 Forml的窗体上画
2、两个文本框，名称分别为 Text1、 Text2，再画两个命令按钮，名称分别为Command1、 Command2，标题分别为 “左 ”、 “右 ”，如图 3-103。要求：编写适当的事件过程，使得程序运行时，单击 “左 ”按钮，则焦点位于 Text1上；单击 “右 ”按钮，则焦点位于 Text2上。注意：程序巾不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2-Vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生目录下有 一个工程文件 sit3 vbp，包含了所有控件和部分程序，如图 3一 180所示。要求如下： 利用属性窗口设
3、置适当的属性，使 Text1、 Text2中数据右对齐； 请编写适当的程序完成以下功能：在 Text1中输入 40(度数 )，选择组合框中的一个项目，单击 “计算 ”按钮，则根据所选择的项目，计算出相应的正弦、余弦值 (保留 3位小数，第 4位截去， 取 3 14159)，并显示在 Text2中。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算；在 Text1中输入的必须是 40；必须用窗体右上角的关闭 按钮结束程序，否则无成绩。最后按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，窗体上已经画出所有控件。程序的作用是构成一个简单的时钟。刚
4、运行时，不计时，选择一个单选按钮后，再单击 “计时 ”按钮，则开始计时，并根据所选的单选按钮决定是每秒显示一次秒数，还是每 10秒显示一次秒数。 Text2用于显示秒，如图 3一 181所示。窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不得修改已经给出的程序。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sit5 vbp，在该工程文件中已经定义了一个学生记录类型数据 StudType。有三个标题分别为 “学号 ”、 “姓名 ”和 “平均分 ”的标签；三个初始内容为空，用于接收学号、姓名和平均分的文本框 T
5、ext1、 Text2和 Text3；一个用于显示排序结果的图片框。还有两个标题分别为 “添加 ”和 “排序 ”的命令按钮，如图 3192所示。程序功能如下： 在 Text1、 Text2和 Text3三个文本框中输入学号、姓名和平均分后，单击 “添加 ”按钮，则将输入内容存入自定义的学生记录类型数组 stud中 (注：最多只能输入 10个学生信息，且学号不能为窄 )； 单击“排序 ”按钮，则将学生记录类型数组 stud中存放的学生信息，按平均分降序排列的方式显示在图片框中，每个学生一行，且显示三项信息。请将 “添加 ”按钮、 “排序 ”按钮的 Click事件过程中的注释符去掉，把 ?改为正确
6、的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 104答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：双击 “左 ”命令按钮，打开代码编辑窗口，在按钮的 Click事件过程中输入代码。 步骤 3：从代码编辑窗口的 “对象 ”下拉列表中选择 Comma
7、nd2，从 “事件 ”下拉列表选择 Click，编写以下事件过程。 参考代码： Private Sub Commandl Click() Text1 SetFocus End Sub Private Sub Command2 Click() Text2 SetFocus End Sub 步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 l小题 【操作步骤】 步骤 1：打开考生文件夹中的工程文件 sjt3 vbp，依次选中窗体中的两个文本框，将其 Alignment属性值设置为 1-Right Justify。 步骤 2：双击窗体中的 “计算 ”命令按钮，在打开的
8、代码编辑窗口中编写其单击事件过程。 参考代码： Private Sub Commandl Click() Const PI=3 1 4 1 5 9 Select Case Comb01 Text Case ”sin”： a = Sin(CInt(Text1 Text) *PI 180) Case “Cos”： a = Cos(CInt(Textl Text) * PI 1 8 0) End Select Text2=Int(a* 1 0 0 0) 1 0 0 0 End Sub 步骤 3：按 键运行程序，在左侧文本框中输入 “40”，选择不同选项，单击 “计算 ”按钮。 步骤 4：单击窗体右上
9、角的关闭按钮以结束程序。 步骤 5：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： num=num+1 Text2 Text=Text2 Text + 10 Textl Text=Text1 Text+ 1 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： n=n一 1 stud(n) Num： Text1 For k=j + 1 To n If std(k) Averagestud(j) AVerage Then stud(k) =stud(j) 步骤 2：按要求将文件保存至考生文件夹中。
