1、国家二级 VB机试（上机操作）模拟试卷 213及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Text1的文本框，其高、宽分别为 400、 2000。运行后的窗体如图 2 78所示。请在属性框中设置适当的属性满足以下要求： Text1的字体为 “黑体 ”字号为 “四号 ”； 窗体的标题为 “输入 ”，不显示最大化按钮和最小化按钮。 注意：存盘时必须存放在考生文件夹下，工程文件名为sitl vbp，窗体文件名为 sit1 frm。 (2)在名称为 Forml的窗体上画一个名称为
2、Imagel的图像椎，利用属性窗口装入考生目录下的图像文件 picl bmp，并设置适当属性使其中的图像可以适应图像框大小：再画两个命令按钮，名称分别为command1、 Command2，标题分别为 “向右移动 ”、 “向下移动 ”。请编写适当的事件过程，使得在运行时，每单击 “向右移动 ”按钮一次，图像框向右移动 100：每单击“向下移动 ”按钮一次，图像框向下移动 100。运行时的窗体如图 2 79所示。要求程序中不得使用变量，事件过程中只能写一条爵句。 注意 ：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考
3、生目录下有一个工程文件 sjt3 vbp，窗体上有一个命令按钮Commandl(标题为 “下一个 ”)。 要求：在窗体上建立一个单选按钮数组 Optionl，含4个单选按钮，标题分别为 “选项 1”、 “选项 2”、 “选项 3”、 “选项 4”，初始状态下， “选择 1”为选中状态。如图 2 104所示。窗体文件中已经给出了命令按钮的Click事件过程，但不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容，使得每单击命令按钮一次，就选中下一个单选按钮，如果已经选中最后一个单选按钮，再单击命令按钮，则选中第一个单选按钮。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘
4、。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，窗体上已经画出所有控件，如图2 105所示。在 Text1文奉框中输入一个任意的字符串 (要求串的长度 10)，然后选择组合框中的三个截取运算选项之一。单击 “计算 ”按钮，将截取运算后的结果显示在 Text2中。窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中 的 ?改为正确的内容。 注意：不得修改已经给出的程序。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 vbsj5 vbp，已给出了部分控件和部分程序。请在窗体上画三个标签，其名称分别为 lblName、 11blTel和
5、lblPost，标题分别为 “姓名 ”、 “电话号码 ”和 “邮政编码 ”。再画三个文本框，其名称分别为 txtName、 txtTel和 txtPost，初始内容均为空白，如图 2 36所示。程序运行后，如果单击 “显示第三个记录 ”命令按钮，则读取考生文件夹下 in5 txt文 件中的第三个记录，将该记录的三个字段分别显示在三个文本框中 (该文件是一个用随机存取方式建立的文件，共有 5个记录 )。单击 “保存 ”按钮，则把该记录 (三个字段 )保存到考生文件夹下的顺序文件 out5 txt中。请编写 “显示第三个记录 ”按钮的 Click事件过程，以实现上述功能。 注意：考生不得修改已经存
6、在的程序，必须用 “保存 ”按钮存储结果，否则无成绩。最后，按原文件名把程序存盘。 国家二级 VB机试（上机操作）模拟试卷 213答案与解析 一、基本操作题 1 【正确答案】 第 l小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程。 步骤2：按要求画出控件，并在属性窗口中设置其相天属性，属性及值如表 3 45所示。 步骤 4：在文本框的属性窗口中单击 “Font”属性右侧的按钮，打开 “字体 ”对话框，在其中设置 “字体 ”为 “黑体 ”， “字号 ”为 “四号 ”。 步骤 5：单击窗体无控件区域，在属性窗口中设置窗体相关属性。 步骤 6：按要求将文件保存至考生文件夹中。 第 2小
7、题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml中画一个图像框和两个命令按钮，分别设置其相关属性，属性及值如表 3 46所示。步骤 2：双击 “向右移动 ”命令按钮，打开代码编辑窗口，在按钮的 Click事件过程中输入如图 32所示代码。步骤 3：双击 “向下移动 ”命令按钮，打开代码编辑窗口，在按钮的 Click事件过程中输入如图 33所示代码。步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件sjt3 vbp，如表 3 59在窗体中用 “复制 ”和 “粘贴 ”命令画出包
8、含 4个元素的单选数组并设置属性。步骤 2： 打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为止确的内容。 参考代码： Private Sub CommandlClick() For k=0 To 3 If Optionl(k) Value Then n=k End If Next k Optionl(n) Value=FalSe n=n+1 If n=4 Then n=0 End If Optionl(n) Value=True End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤1：打开考生文件中的本题 工程文件 sit4 vbp在代码编
9、辑窗口，去掉程序中的注释符 “”，将问号 “?改为正确的内容。 参考代码： Select case Comb01 ListIndex tmpStr=Mid(Trim(Textl Text)， 3， 4 Text2 Text； tmpStr 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件vbsj5 vbp，按表 322在窗体中画出摔什并设置其相关属性。步骤 2：住代码编辑窗口中，编写 cmdDisplay_Click事件过程。 参考代码： Private Sub cmdDisplayClick() Dim pers As PalType Open”in5 txt”For Random As#1 Len= Len(pers) Get#1， 3， pers txtName Text=pers Name txtTel Text=pers Tel txtPost Text=pers PoSt Close#1 End Sub 步骤 3：按键运行程序，先单击 “显示第三个记录 ”按钮，再单击“保存 ”按钮。 步骤 4：按要求将文 件保存至考生文件夹中。
