1、国家二级 VB机试（上机操作）模拟试卷 442及答案与解析 一、基本操作题 1 (1)请在名称为 Form1的窗体上添加一个名称为 H1的水平滚动条，并在属性窗口中设置它的属性值，使其满足下列要求：它的最小刻度值为 1。最大刻度值为100，在程序运行时，用鼠标单击滚动条上滚动框以外的区域 (不包括两边按钮 )，滚动框移动 10个刻度。再在滚动条下面画两个名称分别为 L1和 L2的标签并分别显示 1和 100，运行时的窗体如图所示。注意：存盘时必须存放在考生文件夹下，公程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。(2)在名称为 Form1的窗体上添加两个名称分别为 Text1和
2、 Text2的文本框，初始内容均为空；再建立一个下拉菜单，菜单标题为 “操作 ”，名称为 M1，此菜单下含有两个菜单项，名称分别为 Copy和 Clear，标题分别为 “复制 ”、 “清除 ”，请编写适当的事件过程，使得在程序运行时，单击“复制 ”选项菜单，则把 Text1中的内容复制到 Text2中，单击 “清除 ”选项菜单，则清除 Text2中的内容 (即在 Text2中填入空字符串 )。运行时的窗体如图所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。注意： 存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 2
3、(1)在考生文件夹下有一个工程文件 sjt3 vbp，窗体中有两个图片框，名称分别为 P1、 P2，其中的图片内容分别是一架航天飞机和一朵云彩，一个命令按钮，名称为 C1命题为 “发射 ”，还有一个计时器，名称为 Timerl。并给出了两个事件过程，但并不完整，试求： 设置 Timerl的属性，使其在初始状态下不计时； 设置 Tlmerl的属性，使其每隔 0 1秒调用 Timer事件过程一次； 去掉程序中 的注释符，把程序中的 ?改为正确的内容，使得在运行时单击 “发射 ”按钮，则航天飞机每隔 0 1秒向上移动一次，当到达 P2的下方时停止移动，如图所示。注意：不能修改程序中的其他部分。最后把
4、修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，运行情况如图所示。程序的功能是计算下列表达式的值： z=(x+2)2+(x+3)3+(x+4)4+(x+N)N 其中 N和 x的值通过键盘分别输入到文本框 Text1、 Text2中。之后如果单击标题为 “计算 ”、名称为 Command1的命令按 钮，则计算表达式的值 z，并将计箅结果显示在名称为 Label1的标签中。 在给出的窗体文件中已经添加了全部控件和程序，但程序不完整。要求去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。程序中小得使用 运算符，而应使用函
5、数 xn进行幂运算。程序至少运行一次，按照下图输入数据，使 X=10， N=5，单击“计算 ”按钮，计算 z的值，并将结果显示在标签 Label1中，否则没有成绩。最后，程序按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp 相应的窗体文件为 sjt5 frm，此外还有一个名为 datain txl的文本文件，其内容如下： 32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 程序运行后单击窗体，将把文件datain txt中的数据输入二维数组 Mat中，按 5行
6、5列的矩阵形式显示住窗体上，然后交换矩阵第二列和第四列的数据，将交换后的矩阵显示在窗体上，如图所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整请把它补充完整，并能正确运行 。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容 (可以是多行 )，使其实现上述功能，但不能修改程序中的其他部分，最后将修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 442答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：打开 Visual Basic开发环境，按照题目的要求新建窗体并添加一个水平滚动条控件，如图 3 1所示。步骤 2：在属性窗口中，按照题目的要求设置水
7、平滚动条的相关属性，如图 3 2所示。步骤 3：按照题目的要求，在窗体上添加两个标签控件，如图 3 3所示。步骤 4：按照题目的要求设置两个标签的相关属性，如图 3 4所示。程序中用到的控件及属性见表3 1。 步骤 5：按下键盘上的 F5键运行程序，程序运行后的窗体界面如图 3 5所示。步骤 6：按题目要求保存工程和窗体，如图3 6所示。 (2)步骤 1：新建窗体，按表 3 2建立菜单项并设置其属性，如图 3 7所示。步骤 2：同步骤 1，输入第 3项的标题和名称，单击确定即可。 步骤 3：添加文本框控件，按表 3 3设置文本框的属性。 步骤4：打开代码编写窗口，编写程序代码，如图 3 8所示
8、。参考答案 Private Sub Clear_Click() Text2 Text=“ End Sub PriVate sub Copy_Click() Text2 Text=Text1 Text End Sub 步骤 5：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)水平滚动条的最大刻度值和最小刻度值分别由 Max和 Min属性设置；单击滚动条上滚动框以外的区域移动刻度值大小由 LargeChange属性设置，而单击滚动条两边按钮移动刻度大小由 SmallChange属性设置，本题要求 “单击滚动条上滚动框 以外的区域移动刻度大小 ”，由 Large-Change属性设置
9、；标签标题显示由 Caption属性设置。 (2)在编辑窗体中单击鼠标右键选择 “菜单编辑器 ”来创建菜单，在菜单的 Click事件中，通过对 Text2 Text属性的设置来完成对内容的清除和复制。 二、简单应用题 2 【正确答案】 (1)步骤 l：按题目要求打开工程文件，设置计时器属性，如图3 14所示。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 PriVate sub C1_Click() Timerl Enabled=True单击 “发射 “按钮，则 Timer生效 End Sub PriVate sub Timerl_Timer() St
10、atic a a=a+1 If P1 Top P2 Top+P2 Height Then 判定 P1是否接触到 P2 P1 Move P1 Left， P1 Top 一 5 一 a，P1 Width， P1 Height Else Timerl Enabled=False 当 P1接触到 P2时 Timer事件停止 End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。小题来进行同类知识点的练习。 (2)步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 参考答案 Private Function xn(a As Single， m As Integer)
11、 Dim i As Integer tmp=1 For i=1 To m tmp=tmp* a求 ai的结果 Next xn=tmp返回计算结果 End Function Private Sub Command1_Click() Dim n As Integer Dim i As Integer Dim t As Single Dim s， x As Single n=Val(Text1 Text)将数字字符转换为数值 X=Val(Text2 Text)读取n x m值 z=0 For i=2 To n t=x+i z=z+xn(t,i)调用 xn函数求 ti Next Label1 Capt
12、ion=z将结果显示在 Label1 Call SaveResult End Sub Private Sub SaveResult() Open App Path &“ out4 dat“ For Output As #1 Print #1，Label1 Caption Close #1 End Sub 步骤 3：按照题目要求调试并运行程序，如图3 15所示。 步骤 4：关闭程序后，按照题目要求保存工程和窗体。 【试题解析】 (1)工程文件中已建立全部控件，只需编写事件过程即可。 Timerl控件的 Interval属性用来控制计时器事件发生的时间间隔，通过题意可知，该 属性设置为 100(I
13、nterval是以毫秒为单位 )。当单击 “发射 ”按钮时开始计时，将计时器控件的 Enabled属性设置为 True。如果使航天飞机即 P1停止移动，则将计时器控件的 Enabled属性设置为 False。 (2)通过 For循环语句实现 xn()的幂运算； Click事件过程中通过 Val()函数实现字符类型向数值型的转换，通过循环语句及调用 xn()函数，获得函数返回值，实现表达式的运算结果；运用 Call语句调用 SaveResuh函数对结果进行保存，涉及文件的 Open、 Close和 Output操作， 最后将结果保存在文件夹下的 out4 dat文件中。 三、综合应用题 3 【正
14、确答案】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Option Base 1 Private Sub Form_Click() Const N=5 ConSt M=5 Dim Mat(N,M) As Integer 定义二维数组 Dim i， j， t Open App Path &“ “&“datain txt“ For Input As #1 对文件进行读操作 For i=1 To N For j=1 To M Input #1， Mat(i， j) 将数据读入数组 Mat中 Next j Next i Clos
15、e粗 Print Print“初始矩阵为： “ Print For i=1 To N For j=1 To M Print Tab(5*j)； Mat(i， j)； Next j Print Next i For i=1 To N完成第二列和第四列的交换 t=Mat(i， 2) Mat(i， 2)=Mat(i， 4) Mat(i， 4)=t 将 t的内容赋给 Mat(i， 4)，完成交换 Next i Print Print“交换第二列和第四列后的矩阵为： “ Print For i=1 To N For j=1 To M Print Tab(5*j)； Mat(i， j)； 将转换后的结 果打印在窗体上 Next j Print Next i End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 本题代码先定义一个数组，然后以输入方式打开文件datain txt，并在一个嵌套的 For循环中用 Input#将数据文件中的数据读入并赋值给每个数组元素。然后再通过一个嵌套的 For循环将数组 Mat中的数据在窗体上按 5行、 5列的矩阵形式显示出来，接着再用一个 For循环将数组 Mat中第 1维下标分别为 2和 4的元素按第 2维下标一致的对应 交换值。最后将交换后的数组 Mat中的数据再按 5行、 5列的矩阵形式在窗体上显示出来。
