1、国家二级 VB机试（上机操作）模拟试卷 314及答案与解析 一、基本操作题 1 (1)在名称为 Form1，标题为 “框架 ”的窗体上添加一个名称为 Frame1，且标题为空的框架。框架内含有两个单选按钮，名称分别为 Opt1和 Opt2，其标题分别为“字体 ”、 “大小 ”。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1 vbp，窗体文件名保存为 sjt1 frm。(2)考生文件夹下的工程文件 sjf2 vbp中有一个由直线 Linel、 Line2和 Line3组成的三角形，直线 Linel、 Line2和 Line3的坐标值如下所示： 名称 X1 Y1 X2 Y2 Lin
2、e1 600 1200 1600 300 Line2 600 1200 2600 1200 Line3 1600 300 2600 1200 要求添加一条直线 Line4以构成三角形的高，且该直线的初始状态为不可见。再添加两个命令按钮，名称分别为 Cmd1、 Cmd2，标题分别为 “显示高 ”、 “隐藏高 ”，如图所示。 请编写适当的事件过程使得在程序运行时，单击 “显示高 ”按钮，则显示三角形的高；单击“隐藏高 ”按钮，则隐藏三角形的高。 注意：要求程序中不得使用变量 ，每个事件过程只能写一条语句。不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。 二、简单应用题 2 (1)考生文件
3、夹中有工程文件 sjt3 vbp。窗体上有一个名称为 Label1、标题为 “标签控件 ”的标签；有一个名称为 Command1、标题为 “命令按钮 ”的命令按钮。单击上述两控件中的任一控件，则在标签 Label2中显示所单击控件的标题内容 (标题内容前添加 “单击 ”二字 )，下图是单击命令按钮后的窗体外观。请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：考生不得修改窗体文件中已经存在的控件 和程序，最后程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，其窗体上有一个由八个图片框控件组成的控件数组、两个命令按钮及一个计时器控件，如图 1所示。 程序功能：
4、 将计时器控件设置为每隔 0 5秒触发一次 Timer事件。运行程序时，只显示下标为 0的图片框控件数组元素，其他图片框均不可见。单击 “开始 ”按钮，数组中的每个图片框自左至右依次显示，时间间隔为 0 5秒，产生 “月亮 ”从左向右移动的效果，如图 2所示。月亮移到右端后再从左端重新开始。单击 “停止 ”按钮， “月亮 ”停止移动。 要求：按照题目 要求设置控件属性，去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 三、综合应用题 3 在窗体上建立三个菜单 (名称分别为 Read、 Calc和 Save，标题分别
5、为 “读入数据 ”、 “计算并输出 ”和 “存盘 ”)，然后再添加一个文本框，名称为 Text1， MultiLine属性设置为 True， ScrollBars属性设置为 2(如图所示 )。程序运行后，如果执行 “读人数据 ”命令，则读入考生文件夹下 datainl txt文件中的 100个整数，放 入一个数组中，数组的下界为 1；如果单击 “计算并输出 ”按钮，则把该数组中下标为偶数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击 “存盘 ”按钮，则把所求得的和存入考生文件夹下的 dataout txt文件中。在考生文件夹下有一个工程文件 sjt5 vbp，
6、窗体文件中的 ReadData过程可以把 datainl txt文件中的 100个整数读入 Arr数组中；而 WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中 (整数值通过计算求得，文件名为 dataout txt)。 注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍保存为 sjt5 vbp，窗体文件名仍保存为 sjt5 frm。 国家二级 VB机试（上机操作）模拟试卷 314答案与解析 一、基本操作题 1 【正确答案】 (1) 【操作步骤】 步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表 3 56。步骤 2：调试并运行程序，
7、关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：打开 sjt2工程，按照题目要求建立 Line控件并设置其属性，如图 3 33所示。 步骤 2：按照步骤 1建立其他控件并设置相关属性，程序中涉及的控件及属性见表 3 57。步骤 3：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub Cmdl_Click() Line4 Visible=True将Line4显示 End Sub Private Sub Cmd2_Click() Line4 Visible=False将 Line4隐藏 End Sub 步骤 4：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题
8、 2 【正确答案】 (1) 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “ ”，将问号改为正确的内容。 Private Sub Command1_Click() Call ShowName(Command1)将 Commandl控件传入 ShowName End Sub Private Sub Label1_Click() Call ShowName(Lahel1)将 Label控件传入 ShowName End Sub Private Sub ShowName(c As Conteol)两者类型都为控件 If TypeOf C Is Comma
9、ndButton Then Label2 Caption=”单击 ” Command1 Caption End If If TypeOf C Is Label Then Label2.Caption=“单击 “ Labell Caption End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：打开本题工程文件，将 Timer1的 Interval属性设置为 500。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 Private Sub Form_Load() Picturel(0) Left=0 P
10、icturel(0) Top=100 For k=1 To 7 Picturel(k) Visible=False 当窗体装载时，下标为 17的图片都不显示 Next End Sub Private Sub Commandl Click() Timer1 Enabled=True单击 Command1按钮， Timer事件触发 End Sub Private Sub Command2 Click() Timer1 Enabled=False End Sub Private Sub Timer1 Timer() Static i As Integer Picturel(i) Visible=Fa
11、lse i=i+1 If i=8 Then判断图片是否执行到最后一张 i=0重置 i值 End If Picturel(i) Visible=True End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件，利用菜单设计器，按表中的设置建立菜单项，在窗体 Form1中绘制一个文本框，其相关属性及其值见表3 19和表 3 20。 步骤2：打开代码编辑窗口，在代码编辑窗口指定位置 编写以下代码。 需要考生编写的内容 Dim sum As integer 考生编写程序结束 需要考生编写的内容 Private S
12、ub Calc_Click() Text1 Text=” For i=2 To 100 Step 2从 2开始循环，以 2为步长的下标都是偶数 Text1 Text=Text1 Text Arr(i) Space(5) sum=sum+Arr(i)对下标为偶数的值求和 Next i Print sum End Sub Private Sub Read C1ick() ReadData调用ReadData子过程 End Sub Private Sub Save Click()调用 SaveCliCk函数 WriteData”dataout txt”， sum End Sub 考生编写程序结束 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
