1、国家二级 VB机试（上机操作）模拟试卷 372及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上画一个名称为 Text1的文本框，其高、宽分别为400、 2000。运行后的窗体如图 3 112所示。请在属性框中设置适当的属性满足以下要求： Text1的字体为 “黑体 ”，字号为 “四号 ”； 窗体的标题为 “输入 ”，不显示最大化按钮和最小化按钮。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Form1的窗体上画一个名称为 Imagel的图 像框，利用属性窗口装入考生目录下的图像文件 picl bmp，
2、并设置适当属性使其中的图像可以适应图像框大小；再画两个命令按钮，名称分别为Command1、 Command2，标题分别为 “向右移动 ”、 “向下移动 ”。请编写适当的事件过程，使得在运行时，每单击 “向右移动 ”按钮一次，图像框向右移动 100；每单击 “向下移动 ”按钮一次，图像框向下移动 100。运行时的窗体如图 3 113所示。要求程序中不得使用变量，事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 2 (1)考生文件夹下的工程文件 sjt3 vbp中有 1个名称为 Label1的标签数组。
3、程序运行时，单击 “产生随机数 ”按钮，则在标签数组中显示随机数，如图 3-21(a)所示。单击 “数据反序 ”按钮，则把数组中的数据反序，如图 3 21(b)所示。命令按钮的 Click事件过程已经给出，但程序不完整，请将其中的注释符去掉，把 “?”改为正确的内容，以实现上述功能。 注意：不得修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。(2)考生文件夹下有工程文件 sjt4 vbp。程序刚运行时，飞机图标位于圆的顶端，如图 3 22所示。单击“开始 ”按钮后，飞机的中心开始沿圆轨迹顺时针运动。事件过程已经给出，但不完整，请将其中的注释符去掉，把 ?改为正确的内容，以
4、实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 Vbsj5 vbp，已给出了部分控件和部分程序。请在窗体上画三个标签，其名称分别为 lblName、 lblTel和 lblPost，标题分别为 “姓名 ”、 “电话号码 ”和 “邮政编码 ”。再画三个文本框，其名称分别为 txtName、 txtTel和 txtPost，初始内容均为空白，如图 3 72所示。程序运行后，如果单击 “显示第三个记录 ”命令按钮，则读取考生文件夹下 in5 txt文件中的第三个记录，将该记录的三个字段分别显示在三个文本框
5、中 (该文件是一个用随机存取方式建立的文件，共有 5个记录 )。单击 “保存 ”按钮，则把该记录 (三个字段 )保存到考生文件夹下的顺序文件 out5 txt中。请编写 “显示第三个记录 ”按钮的 Click事件过程，以实现上述功能。 注意：考生不得修改已经存在的程序，必须用 “保 存 ”按钮存储结果，否则无成绩。最后，按原文件名把程序存盘。 程序源码： Private Type PalType Name As String*8 Tel As String*10 Post As Long End Type考生编写如下事件过程的程序 (cmdDisplay_Click)Private Sub c
6、mdDisplay_Click()End Sub Private Sub cmdSave_Click()Open“out5 txt“For Output As #1 Print #1， txtName Text， txtTel Text， txtPost Text Close 1 End Sub 国家二级 VB机试（上机操作）模拟试卷 372答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：新建一个 “标准 EXE”工程。 步骤 2：按要求画出控件，并在属性窗口中设置其相关属性，属性及值如表 4 68所示。步骤 4：在文本框的属性窗口中单击“Font”属性右侧的按钮，打开 “字体
7、”对话框，在其中设置 “字体 ”为 “黑体 ”， “字号 ”为 “四号 ”。 步骤 5：单击窗体无控件区域，在属性窗口中设置窗体相关属性。 步骤 6：按要求将文件保存至考生文件夹中。 (2)步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中画一个图像框和两个命令按钮，分别设置其相关属性，属性及值如表 4 69所示。 步骤2：双击 “向右移动 ”命令按钮，打开代码编辑窗口，在按钮的 Click事件过程中输入如图 4 2所示代码。 步骤 3：双击“向下移动 ”命令按钮，打开代码编辑窗口，在按钮的 Click事件过程中输入如图4 3所示代码。 步骤 4：按要求将文件保存至考生文件夹中。
8、【试题解析】 (1)本题只需按要求建立程序界面并设置窗体和文本框相关属性即可。 (2)本题需要按照要求建立相关控件并设置相应属性，然后在相应事件代码中改变图像框的 Left属性值和 Top属性值。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： For k=0 To 9 Label1(k) Caption=Int(Rnd*90+10) For k=0 To 4 Label1(9-k) Caption=temp 步骤 2：按要求将文件保存至考生文件夹中。 (2
9、)步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp， 在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： x0=Shape1 Left+r Imagel Left=x0-Imagel Width 2 Imagel Left=x-Imagel Width 2 Imagel Top=y-Imagel Height 2 步骤 2：按要求将文件保存至考生文 件夹中。 【试题解析】 (1)题目要求在两个命令按钮的点击 Click事件处理过程中，分别产生 10个随机数和数组数据反序，都需要通过循环来实现。 第一个 “?”处是补充循环的起始条件，窗体上 10个标签
10、，需要产生 lO个随机数，而循环变量 k的结束值是 9，因此 k的初始值应为 0；第二个 “?”处是把生成的随机数赋值给控件数组；第三个 “?”处是补充循环的结束条件，在循环体内每次交换一组数据，因此循环只需要执行 5次，因此循环变量 k的终值应为 4；最后一个 “?”是在循环体内部，用于完成一组数据的交互，这组数据是 Label1(k)和Label1(9-k)，而 Label1(k)已经赋值为 Label1(9-k)，因此 Label1(9-k)的值是保存在临时变量 temp值。 (2)题目要求实现一个绕圆飞行的飞机动画，通过定时器来控制飞机的飞行轨迹。 分析程序可知，在窗体的 Load事件
11、过程中，变量 r保存了圆的半径，变量 xO和 y0分别保存圆心位置的坐标，在定时器的 Timer事件过程中可以很方便的根据圆心的位置计算飞机的位置，因此 x0的值应为 Shape1 Left+r；题目要求飞机从圆的正上方开始，飞机 Imagel的 中心点在圆上，因此 Imagel的 Left属性值应为x0 Imagel Width 2；在定时器的 Timer事件过程中，变量 x和 y计算得到了飞机中心点在圆上的坐标值，因此飞机的 Left和 Top需要在 x、 y的基础上减去Imagel Width 2、 Imagel Height 2。 三、综合应用题 3 【正确答案】 步骤 1：打开考生文
12、件夹中的本题工程文件 vbsj5 vbp，按表 4-44在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口中，编写 cmdDisplay_Click事件过程。参考代码： PriVate Sub cmdDisplay_Click()Dim pers As PalTypeOpen“in5 txt“For Random As #1 Len=Len(pers)Get #1， 3，perstxtName Text=pers NametxtTel Text=pers TeltxtPost Text=pers PostClose #1End Sub 步骤 3：按键运行程序，先单击 “显示第三个记录 ”按钮，再单击 “保存 ”按钮。 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 本题需在 “显 示第三个记录 ”按钮的单击事件过程中，先声明一个自定义数据类型 PalType的变量，然后用 Open语句打开文件 in5 txt，接着用 Get#语句读出记录号为 3的记录并赋值给自定义类型变量，最后将该变量各元素的值显示在对应文本框中。
