1、国家二级 VB机试（上机操作）模拟试卷 249及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称 checkl的复选框数组 (Index属性从 0开始 )，含三个复选框，其标题分别为 “语文 ”、 “数学 ”、 “体育 ”，利用属性窗口设置适当的属性，使 “语文 ”未选， “数学 ”被选中， “体育 ”为灰色，再把窗体的标题设置为 “选课 ”，如图 2 178所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl vbp，窗体文件 名为 sjtl frm。 (2)在名称为
2、 Forml的窗体上画两个文本框，名称分别为 Text1、 Text2再画两个命令按钮，名称分别为 Command1、Command2，标题分别为 “复制 ”、 “删除 ”。程序运行时，在 Text1中输入一串字符，并用鼠标拖拽的方法选择几个字符，然后单击 “复制 ”按钮，则被选中的字符被复制到 Text2中 (如图 2 179所示 )。若单击 “删除 ”按钮则被选择的字符从 Textl中被删除。请编写两个命令按钮的 Click过程完成上述功能。注意：要求程序中不得使用变量，事件过程中只能写一条语句。存 盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm
3、。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，窗体上有一个矩形和一个圆，还有垂直和水甲滚动条各一个。程序运行时，移动某个滚动条的滚动块，可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例，滚动块在最左边时，圆靠在矩形的左边线上，如图 2 140(a)所示；滚动块在最右边时，圆靠在矩形的右边线上，如图 2 140(b)所示。垂直滚动条的情况与此类似。 文件中 已经给出了全部控件和稗序，但程序不完整，请去掉程序中的汴释符，把程序中的 ?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)
4、在考生文件夹下有一个工程文件 sit4 vbp。窗体中已经给出了所有控件，如图 2 141所示。运行时，单击 “发射 ”按钮，航天飞机图标将向上运动，速度逐渐加快，全部进入云中后则停止，并把飞行距离 (用坐标值表示 )、所用时问 (单位为秒 )分别显示在标签Label1和 Label2中；单击 “保存 ”按钮，则把飞行距离、所用时间存入考生文件夹下的 out4 txt文件中。 文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在窗体上画一个文本框，其名称为 Tex
5、t1，初始内容为空白，并设置成多行显示格式；然后再画两个命令按钮，其名称分别为 Command1和 Command2，标题分别为 “显示 ”和 “保存 ”，如图 2 92所示，编写适当的事件过程。程序运行后，如果单击 “显示 ”按钮，则读取考生文件夹下的 inS txt文件，并在文奉框中显示出 来，该文件是一个用随机存取方式建立的文件，共有 5个记录，要求按记录号顺序显示全部记录，每个记录一行；如果单击 “保存 ”按钮，则把所有记录保存到考生文件夹下的顺序文件 out5 txt中。随机文件 in5 txt中的每个记录包括三个字段，分别为姓名、性别和年龄，其名称和长度分别为：其类型定义为： Pr
6、ivate Type StudInfo Name As String*8 Sex As String*4 Age As IntegerEnd Type 要求：文件 out5 txt以顺序存取方式建立和保存。存盘时必须存 放在考生文件夹下，工程文件名为 sjt5 vbp，窗体文件名为sit5 frm。 国家二级 VB机试（上机操作）模拟试卷 249答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程。 步骤2：在窗体 Forml中加入一个复选框，并用 “复制 ”和 “粘贴 ”的方法，生成包含三个元素的复选框数组。 步骤 3：分别设置窗体
7、和复选框数组中各元素的相关属性，其属性及值如表 3 95所示。 步骤 4：按要求将文件保存至考生文件夹中。第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml中画两个文本框和两个命令按钮，其相关属性设置如表 3 96所示。 步骤 2：在代码编辑窗口， 分别编写 “复制 ”和“删除 ”按钮的单击事件过程。 参考代码： Private Sub CommandlClick() Text2=Textl SelText End Sub Private Sub Command2_Click() Forml Textl SeiText=” End Sub 步骤 3：按要求将
8、文件保存至考生文件夹中。二、 简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： HScrolll Max=Shape2 Width+Shape2 LeftShapel Width VScrolll Max； Shape2 Height+Shape2 TopShapel Height Shapel Left=HScr0111 Value Shapel.Top=VScr0111 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步
9、骤 1：打开考生文件中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： TimeR1 Enabled： True Timerl Enabled=False d=dImagel Top t=t+1 步骤 2：按要求将文件保存至考生文件夹中。 步骤 3：按 键运行程序，先单击 “发射 ”按钮，计算完毕后单击 “存盘 ”按钮，最后单击窗体右上角的关闭按钮结束程序。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 3-51在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编
10、写相应事件过程。 参考代码： Private Type Studlnfo Name As String*8 Sex As String*4 Age As Integer End Type Dim Stud As StudInfo Dim RecNum As Long Private Sub Commandl C1ick() Open App Path ” in5 txt”ForRandom As#1 Len=Len(Stud) RecNum=1 Do While Not EOF(1) Get #1， RecNum， Stud Textl Text=Textl Text Stud Name Textl Text=Textl Text Stud Sex Textl Text=Textl Text Str(Stud Age) Textl Text=Textl Text+vbCrLf RecNum=RecNum+1 Loop Close 1 End Sub Private Sub Command2 Click() Open App Path ” out5 txt”ForOutput As#1 Print#1， Textl Text Close 1 End Sub 步骤 3：按要求将文件保存至考生文件夹中。
