1、国家二级 VB机试（上机操作）模拟试卷 325及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加一个名称为 Frame1、标题为 “框架 ”的框架，在框架内添加两个名称分别为 Option1、 Option2的单选按钮，其标题分别为 “第一项 ”、 “第二项 ”。要求通过设置控件的属性将 “第二项 ”初始值设置为被选中，框架为不可用。运行程序后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。(2)在名称为 Form1的窗体上添加一个名 称为 Drivel的驱动器列表框，一个名称为 Dirl的目录
2、列表框，一个名称为 Filel的文件列表框，名称为 Labell、标题为 “文件名 ”的标签和名称为 Label2、BorderStyle为 1的标签。将窗体的标题设置为 “文件系统控件 ”，如图所示。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将在 Label2中显示选中的文件名。 注意：要求程序中不得使用变量，事件过程中只能写一条语句。 存盘时必须存放 在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。二、简单应用题 2 (1)在考生文件
3、夹下有一个工程文件 sjt3 vbp，窗体中有两个图片框，名称分别为 P1、 P2，其中的图片内容分别是一架航天飞机和一朵云彩，一个命令按钮，名称为 C1，标题为 “发射 ”，还有一个计时器，名称为 Timerl。并给出了两个事件过程，但并不完整，要求： 设置 Timer1的属性，使其在初始状态下不计时； 设置 Timerl的属性，使其每隔 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中。之后如果单击标题为 “计算 ”、名称为 Commandl的命令按钮，则计 算表达式的值 z，并将计算结果显示在名称为 Labell的标签中。 在给出的窗体文件中已经添加了全部控件和程序，但程序不完整。要求去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。程序中不得使用 运算符，而应使用函数 xn进行
5、幂运算。程序至少运行一次，按照下图输入数据，使 X=10， N=5，单击“计算 ”按钮，计算 Z的值，并将结果显示在标签 Label1中，否则没有成绩。最后，程序按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，包含了 所有控件和部分程序。当程序运行时，单击 “打开文件 ”按钮，则弹出 “打开 ”对话框，默认目录为考生目录，默认文件类型为 “文本文件 ”。选中 in5眦文件 (如图 1所示 )，单击 “打开 ”按钮，则把文件中的内容读入并显示在文本框 (Text1)中；单击 “修改内容 ”按钮，则将 Text1中的大写字母 “E”、 “N”、 “T”改为小写
6、，把小写字母 “e”、 “n”、 “t”改为大写；单击 “保存文件 ”按钮，则弹出 “另存为 ”对话框，默认文件类型为 “文本文件 ”，默认文件夹为考生文件夹，默认文件为 “out5 txt”(如图 2所示 )，单击 “保存 ”按钮 ，则将 Text1中修改后的内容存到 out5 txt文件中。 窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符，把程序中的 ?改为正确的内容，并编写 “修改内容 ”按钮的 Click事件过程。 注意：考生不得修改已经存在的程序。必须把 Text1中修改后的内容用 “保存文件 ”按钮存储结果，否则无成绩。最后，按照原文件名将程序存盘。 国家二级 V
7、B机试（上机操作）模拟试卷 325答案与解析 一、基本操作题 1 【正确答案】 (1) 【操作步骤】 步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中用 到的控件及属性见表 3 38。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立驱动器列表框、目录列表框和文件列表框控件并设置其属性，如图3 28所示。 程序中用到的控件及属性见表 3 39和表 3 40。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub Dir1_Change() File1 Path=Dir1 Path使目录列表框 Di
8、r1与文件列表框 File1同步 End Sub Private Sub Drivel_Change() Dirl Path=Drivel Drive使驱动列表框 Drive 1与目录列表框Dir1同步 End Sub Private Sub Filel Click() Label2=File1 FileName显示 Filel中的文件名 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1：按题目要求打开工程文件，设置计时器属性，如图 3 14所示。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改
9、为正确的内容。 Private Sub Cl_Click() Timerl Enabled=True单击 ”发射 ”按钮，则 Timer生效 End Sub Private Sub Timer1_Timer() Static a a=a+1 If P1 TopP2 Top+P2 HeightThen判定 P1是否接触到 P2 P1 Move P1 Left， P1 Top一5 一 a， P1 Width， P1 Height Else Timer1 Enabled=False当 P1接触到 P2时Timer事件停止 End If End Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘
10、。 (2) 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 Private Function xn(a As Single， m As Integer) Dim i As Integer tmp=1 For i=1 To m tmp=tmp*a求 a的结果 Next xn=tmp返回计算结果 End Funct ion 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)将数字字符转换为数值
11、 x=Val(Text2 Text)读取 n x m值 z=0 For i=2 To n t=x+i z=z+xn(t,i)调用 xn函数求 t Next Label1 Caption=z将结果显示在 Labell Call SaveResult End Sub Private Sub SaveResult() Open App Path ” out4 dat”ForOutput As #1 Print#1， Label1 Caption Close #1 End Sub 步骤3：按照题目要求调试并运行程序，如图 3 15所示。步骤 4：关闭程序后，按照题目要求保存工程和窗体。 三、综合应用题
12、 3 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 Private Sub Command1_Click() Dim s As String CommonDialogl Filter=”所有文件 |* *|文本文件 |* txt”设置过滤条件，过滤文件类型 CommonDialogl FilterIndex=2指定文件类型列表框中的值为所有文件 On Error GoTo openerr如果出错则转回 openerr CommonDialogl InitDir =App Path指定打开对话框中的初始目录
13、为 App Path CommonDialogl ShowOpen显示打开对话框 Open CommonDialogl.FileName ForInput As #1打开指定文件 Input #1， S读取文件到 S Close #1关闭文件 Text1 Text=ss中记录了读取内容 openerr： End Sub Private Sub Command2 Click() 考生需要编写的程序 Dim ch As StringDim s As String Dim n As Long s=Text1 Text Text1 Text=” For n=1 To Len(s)查找文本中的 “E”、
14、 “N”、 “T”、“e”、 “n”、 “t”并做相应的改变 ch=Mid(S， n， 1) If ch=”E”Or ch=”N”Or ch=”T”Then ch=LCase(ch)将大写字母转换为小写 ElseIf ch=”e”Or ch=”n”Or ch=”t”Then ch=UCase(ch)将小写字母转换为大写 End If Text1 Text=Text1 ch Next n End Sub Private Sub Command3_Click() CommonDialog1 Filter=”文本文件 |* txt|所有文件|* *” CommonDialog1 FilterIndex=1指定文件类型列表框中的值为文本文件 On Error GoTo openerr CommonDi alogl FileName=”out5.txt”所选文件默认名 CommonDialog1 InitDir=App Path CommonDialog1 Action=2显示另存为对话框 Open CommonDialogl FileName For Output As #1 Print #1， Text1 Close #1 openerr： End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘，如图3 30所示。
