1、国家二级 VB机试（上机操作）模拟试卷 325及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上添加一个名称为 Frame1、标题为“框架”的框架，在框架内添加两个名称分别为 Option1、Option2 的单选按钮，其标题分别为“第一项”、“第二项”。要求通过设置控件的属性将“第二项”初始值设置为被选中，框架为不可用。运行程序后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1frm。 (2)在名称为Form1的窗体上添加一个名称为 Drivel
2、的驱动器列表框，一个名称为 Dirl的目录列表框，一个名称为Filel的文件列表框，名称为 Labell、标题为“文件名”的标签和名称为 Label2、BorderStyle 为 1的标签。将窗体的标题设置为“文件系统控件”，如图所示。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将在 Label2中显示选中的文件名。 注意：要求程序中不得使用变量，事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2vbp，窗体文件名保存为 sjt2frm。 （分数
3、：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，窗体中有两个图片框，名称分别为 P1、P2，其中的图片内容分别是一架航天飞机和一朵云彩，一个命令按钮，名称为 C1，标题为“发射”，还有一个计时器，名称为 Timerl。并给出了两个事件过程，但并不完整，要求： 设置 Timer1的属性，使其在初始状态下不计时； 设置 Timerl的属性，使其每隔 01 秒调用 Timer事件过程一次； 去掉程序中的注释符，把程序中的?改为正确的内容，使得在运行时单击“发射”按钮，则航天飞机每隔 01 秒向上移动一次，当到达 P2的下方时停止移动，
4、如图所示。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp，运行情况如图所示。程序的功能是计算下列表达式的值： z=(x+2)2+(x+3)3+(x+4)4+(x+N)N 其中 N和 x的值通过键盘分别输入到文本框 Text1、Text2 中。之后如果单击标题为“计算”、名称为 Commandl的命令按钮，则计算表达式的值z，并将计算结果显示在名称为 Labell的标签中。 在给出的窗体文件中已经添加了全部控件和程序，但程序不完整。要求去掉程序中的注释符，把程序中的?改为正确的内容。 注意：考生不得修改窗体文件中已经存在的
5、程序。程序中不得使用运算符，而应使用函数 xn进行幂运算。程序至少运行一次，按照下图输入数据，使 X=10，N=5，单击“计算”按钮，计算 Z的值，并将结果显示在标签 Label1中，否则没有成绩。最后，程序按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，包含了所有控件和部分程序。当程序运行时，单击“打开文件”按钮，则弹出“打开”对话框，默认目录为考生目录，默认文件类型为“文本文件”。选中in5眦文件(如图 1所示)，单击“打开”按钮，则把文件中的内容读入并显示在文本框(Text1)中；单击“修改内容”按钮，则
6、将 Text1中的大写字母“E”、“N”、“T”改为小写，把小写字母“e”、“n”、“t”改为大写；单击“保存文件”按钮，则弹出“另存为”对话框，默认文件类型为“文本文件”，默认文件夹为考生文件夹，默认文件为“out5txt”(如图 2所示)，单击“保存”按钮，则将 Text1中修改后的内容存到 out5txt 文件中。 窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符，把程序中的?改为正确的内容，并编写“修改内容”按钮的 Click事件过程。 注意：考生不得修改已经存在的程序。必须把 Text1中修改后的内容用“保存文件”按钮存储结果，否则无成绩。最后，按照原文件名将程序存盘
7、。 （分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 325答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上添加一个名称为 Frame1、标题为“框架”的框架，在框架内添加两个名称分别为 Option1、Option2 的单选按钮，其标题分别为“第一项”、“第二项”。要求通过设置控件的属性将“第二项”初始值设置为被选中，框架为不可用。运行程序后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1frm。 (2)在名称为Form1的窗体上添加一
8、个名称为 Drivel的驱动器列表框，一个名称为 Dirl的目录列表框，一个名称为Filel的文件列表框，名称为 Labell、标题为“文件名”的标签和名称为 Label2、BorderStyle 为 1的标签。将窗体的标题设置为“文件系统控件”，如图所示。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将在 Label2中显示选中的文件名。 注意：要求程序中不得使用变量，事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2vbp，窗体文件名保存为 s
9、jt2frm。 （分数：2.00）_正确答案：(正确答案：(1) 【操作步骤】 步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中用到的控件及属性见表 338。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立驱动器列表框、目录列表框和文件列表框控件并设置其属性，如图 328 所示。 程序中用到的控件及属性见表 339 和表 340。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，窗体中有两个图片框，名称分别为 P1、P2，其中的图片内容分别是一架航天飞机和
10、一朵云彩，一个命令按钮，名称为 C1，标题为“发射”，还有一个计时器，名称为 Timerl。并给出了两个事件过程，但并不完整，要求： 设置 Timer1的属性，使其在初始状态下不计时； 设置 Timerl的属性，使其每隔 01 秒调用 Timer事件过程一次； 去掉程序中的注释符，把程序中的?改为正确的内容，使得在运行时单击“发射”按钮，则航天飞机每隔 01 秒向上移动一次，当到达 P2的下方时停止移动，如图所示。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp，运行情况如图所示。程序的功能是计算下列表达式的值： z=(x
11、+2)2+(x+3)3+(x+4)4+(x+N)N 其中 N和 x的值通过键盘分别输入到文本框 Text1、Text2 中。之后如果单击标题为“计算”、名称为 Commandl的命令按钮，则计算表达式的值z，并将计算结果显示在名称为 Labell的标签中。 在给出的窗体文件中已经添加了全部控件和程序，但程序不完整。要求去掉程序中的注释符，把程序中的?改为正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。程序中不得使用运算符，而应使用函数 xn进行幂运算。程序至少运行一次，按照下图输入数据，使 X=10，N=5，单击“计算”按钮，计算 Z的值，并将结果显示在标签 Label1中，否则没有
12、成绩。最后，程序按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：按题目要求打开工程文件，设置计时器属性，如图314 所示。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 Private Sub Cl_Click() TimerlEnabled=True单击”发射”按钮，则 Timer生效 End Sub Private Sub Timer1_Timer() Static a a=a+1 If P1TopP2Top+P2Height Then判定 P1是否接触到P2 P1Move P1Left，P1Top 一 5 一 a，P
13、1Width，P1Height Else Timer1Enabled=False当P1接触到 P2时 Timer事件停止 End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。(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
14、() Dim n As Integer Dim i As Integer Dim t As Single Dim s，x As Single n=Val(Text1Text)将数字字符转换为数值 x=Val(Text2Text)读取 nx m 值 z=0 For i=2 To n t=x+i z=z+xn(t,i)调用 xn函数求 t Next Label1Caption=z将结果显示在 Labell Call SaveResult End Sub Private Sub SaveResult() Open AppPath”out4dat”For Output As #1 Print#1，La
15、bel1Caption Close #1 End Sub 步骤3：按照题目要求调试并运行程序，如图 315 所示。 )解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，包含了所有控件和部分程序。当程序运行时，单击“打开文件”按钮，则弹出“打开”对话框，默认目录为考生目录，默认文件类型为“文本文件”。选中in5眦文件(如图 1所示)，单击“打开”按钮，则把文件中的内容读入并显示在文本框(Text1)中；单击“修改内容”按钮，则将 Text1中的大写字母“E”、“N”、“T”改为小写，把小写字母“e”、“n”、“t”改为大写；单击“保存文件”按钮，
16、则弹出“另存为”对话框，默认文件类型为“文本文件”，默认文件夹为考生文件夹，默认文件为“out5txt”(如图 2所示)，单击“保存”按钮，则将 Text1中修改后的内容存到 out5txt 文件中。 窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符，把程序中的?改为正确的内容，并编写“修改内容”按钮的 Click事件过程。 注意：考生不得修改已经存在的程序。必须把 Text1中修改后的内容用“保存文件”按钮存储结果，否则无成绩。最后，按照原文件名将程序存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉
17、程序中的注释符“”，将问号改为正确的内容。 Private Sub Command1_Click() Dim s As String CommonDialoglFilter=”所有文件| *|文本文件|*txt”设置过滤条件，过滤文件类型 CommonDialoglFilterIndex=2指定文件类型列表框中的值为所有文件 On Error GoTo openerr如果出错则转回 openerr CommonDialoglInitDir =App Path指定打开对话框中的初始目录为 AppPath CommonDialoglShowOpen显示打开对话框 Open CommonDialog
18、l.FileName For Input As #1打开指定文件 Input #1，S读取文件到 S Close #1关闭文件 Text1Text=ss 中记录了读取内容 openerr： End Sub Private Sub Command2 Click() 考生需要编写的程序 Dim ch As String Dim s As String Dim n As Long s=Text1Text Text1Text=” For n=1 To Len(s)查找文本中的“E”、“N”、“T”、“e”、“n”、“t”并做相应的改变 ch=Mid(S，n，1) If ch=”E”Or ch=”N”O
19、r ch=” T”Then ch=LCase(ch)将大写字母转换为小写 ElseIf ch=”e”Or ch=”n”Or ch =”t”Then ch=UCase(ch)将小写字母转换为大写 End If Text1Text=Text1ch Next n End Sub Private Sub Command3_Click() CommonDialog1Filter=”文本文件|*txt|所有文件|*” CommonDialog1FilterIndex=1指定文件类型列表框中的值为文本文件 On Error GoTo openerr CommonDi aloglFileName=”out5. txt”所选文件默认名 CommonDialog1InitDir=AppPath CommonDialog1Action=2显示另存为对话框 Open CommonDialoglFileName For Output As #1 Print #1，Text1 Close #1 openerr： End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘，如图 330 所示。 )解析：
