1、国家二级 VB机试（上机操作）模拟试卷 443及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加一个名称为 L1的标签，标签上标题为 “请输入密码 ”，添加一个名称为 Text1的文本框，其宽、高分别为 2000和 300，设置适当的属性，使得在输入密码时，文本框中显示为 “*”字符，此外再把窗体的标题设置为 “密码窗口 ”，以上这些设置都必须在属性窗口中进行，程序运行时的窗体如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。 (2)在名称为 Form1的窗体上添加一个名称为 P1的图片框，清编写适当的事
2、件过程，使得程序在运行时，每单击一次图片框，就在图片框中输出 “单击图片框 ”，每单击图片框外的窗体一次，就在窗体中输出 “单击窗体 ”，运行时的窗体如图所示。要求在程序中不得使用变量，每个事件过程中只能写一条语句注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。二、简单应用题 2 (1)在考生文件夹下有一个上程文件 sjts vbp。窗体上有名称为 Timcr1的定时器，以及两条水平直线，名称分 别为 Line1和 Line2。 请用名称为 Shape1的形状控件，在两条直线之问画一个宽和高都相等的形状，设置其形状为网。并设置适当属性
3、使其满足以下要求： 圆的顶端距窗体 Form1顶端的距离为 360； 圆的颜色为红色 (红色对应的值为： &H000000FF&或 &IIFF&)，如图所示。程序运行时， Shape1将在 Line1和 Line2之间运行。当Shape1的底部到达 Line2时，会自动改变方向向上运动；当 Shape1的顶端到达Line1时，会自动改变方向下运动。 文件中给出的程序不完整，清上掉程序中的 注释符，把程序中的 ?改为正确内容，使其实现上述功能。 注意：不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，包含了所有控件
4、和部分程序，如图所示。其功能如下： 单击 “读数据 ”按钮，可将考生文件夹下 in4 dat文件中的 100个整数读到数组 a中。 单击 “计算 ”按钮，则根据从组合框 Combol中选中的项目对数组 a中的数据计算平均值并将计算结果四舍五入取整后显示在文本框 rexll中。 “读数据 ”按钮的 Click事件过程已经给 出，请为 “计算 ”按钮编写适当的事件过程实现上述功能。注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计箅，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，
5、包含了所有控件和部分程序。当程序运行时，单击 “打开文件 ”按钮，则弹出 “打开 ”对话框，默认目录为考生目录，默认文件类型为 “文本文件 ”。选中 in5 txt文件 (如图 1所示 )，单击 “打开 ”按钮，则把文件中的内容读入并显示在文本框 (Text1)中；单击 “修改内容 ”按钮，则将 Text1中的大写字母 “E”、 “N”、 “T”改为小写，把小写字母 “e”、 “n”、 “t”改为大写；单击 “保存文件 ”按钮，则弹出 “另存为 ”对话框，默认文件类型为 “文本文件 ”，默认文件夹为考生文件夹，默认文件为 “out5 txt”(如图 2所示 )，单击 “保存 ”按钮，则将 Te
6、xt1中修改后的内容存到 out5 txt文件中。窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符，把程序中的 ?改为正确的内容，并编写 “修改内容 ”按钮的 Click事件过程。 注意：考生不得修改已经存 在的程序。必须把 Text1中修改后的内容用 “保存文件 ”按钮存储结果，否则无成绩。最后，按照原文件名将程序存盘。 国家二级 VB机试（上机操作）模拟试卷 443答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 l：新建一个窗体，按照要求建立控件并设置其属性，如图3 11所示。 程序中用到的控件及属性如表 3 7所示。步骤 2：调试并运行程序，效果如图 3 12所
7、示。 步骤3：关闭程序后按题目要求保存工程和窗体文件。 (2)步骤 1：新建一个窗体，按照题目要求建立控件并设置其属性，如图 3 13所示。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 PriVate sub Form_Click() Form1 Print “单击窗体 “ End Sub Private Sub P1_Click() P1 Print“单击图片框 “ End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)通过标签的 Caption和 Name属性设置标题和名称；通过文本框Name、 Height、 PasswordChar
8、和 Width属性分别设置文本框的名称、高度、显示 “*”字符和 宽度；通过窗体 Caption属性设置窗体的标题 “密码窗口 ”。 (2)通过图片框 Name属性设置图片框的名称，运用图片框 Print方法，使图片框上显示字符，运用窗体 Print方法，使窗体上显示字符。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开本题工程文件，新建一个形状控件，并按表 3 51所示设置属性。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Dim s As Integer， h As Long Private Sub Form_Load() Timerl
9、Enabled=True s=40 End Sub Private Sub Timerl_Timer() Shape1 Move Shape1 Left， Shape1 Top+s If Shape1 Top=Line2 Y1 Then圆的底端坐标加上圆的自身高度与 Line2比较 s=s End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 参考答案 Dim k As Long Dim m As Long Dim q As Long Dim p As Long D
10、im r As Long Dim n As Long For k=1 To 100 If a(k)Mod 2=0 Then判断是否为偶数 m=m+a(k)偶数之和 q=q+1偶数个数加 1 Else n=n+a(k)奇数之和 p=p+1奇数个数加 1 EndIf Next k r=Int(m+n) (p+q)+0 5)平均值 m=Int(m q+0 5)偶数平均值 n=Int(n p+0 5)奇数平均值 Select Case Combol Text Case“所有偶数 “ Text1=m Case“所有奇数 “ Text1=n Case“所有数 “ Text1=r End Select 步骤
11、 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)通过形状控件的 Move方法，实现形状的移动，通过Shape1 Top的值和 Line1 Y1的值进行比较来判定圆形是否越过上界，通过比较 Shape1 Top+Shape1 Height的值和 Line2 Y1的值来判定圆形是否越过下界。 (2)通过文件操作，打开文件，把数值读入数组。通过循环语句遍历数组 a(k)，用 If语句和 Mod()函数判断是奇数还是偶数，先求出数组中元素的所有奇数和和所有偶数和，计 算出平均数，通过 Int()函数实现对结果的四舍五入取整，所有奇数和和所有偶数和的加和，求出所有数的和，用同样的方
12、法得出平均数。 Select Case语句判断组合框中选中的项目，实现函数的功能，在文本框中显示题目要求的平均值，并按题目要求存盘。 三、综合应用题 3 【正确答案】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “-”，将问号改为正确的内容。 参考答案 Private Sub Command1_Click() Dim S As String CommonDialogl Filter=“所有文件 |* *|文本文件 |* txt“设置过滤条件，过滤文件类型 CommonDialogl FilterIndex=2指定文件类型列表框中的值为所有文件 On Error
13、 GoTo openerr如果出错则转回 openerr CommonDialogl InitDir =App Path指定打开对话框中的初始目录为 App Path CommonDialogl ShowOpen显示打开对话框 Open CommonDialog1 FileName ForInput As #1打 开指定文件 Input #1， s读取文件到 s Close #1关闭文件 Text1 Text=ss中记录了读取内容 openerr： End Sub Private Sub Command2一C1ick() 考生需要编写的程序 Dim ch As String Dim S As
14、String Dim n As Long S=Text1 Text Text1 Text=“ For n=1 To Len(S)查找文本中的 “E”、 “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 C
15、lick() CommonDialogl Filter=“文本文件 |* txt|所有文件|* *| CommonDialogl FilterIndex=1指定文件类型列表框中的值为文本文件 On Error GoTo openerr CommonDialogl FileName=“out5 txt“所选文件默认名 CommonDialogl InitDir=Amp Path CommonDialogl Action=2显示另存为对话框 Open CommonDialogl FileName For Out put As #1 Print#1， Text1 Close #1 OPenerr：
16、End Sub 步骤 3：调试并运行程序，关闭程序后按 题目要求存盘，如图3 30所示。 【试题解析】 打开文件的命令是 Open，其常用形式为： Open“文件名 “For模式 As#文件号 Len=记录长度 模式有 Output(打开文件，对其进行写操作 )、 Input(打开文件，对其进行读操作 )以及 Append(打开文件，在文件末尾追加记录 )。 通过通用对话框的 InitDir、 Fiherlndex、 Filter、 Action属性设置对话框，并且通过 ShowOpen方法打开对话框。运用 For循环语句和 If判断选择语句寻找字母，并按 照要求使用大小写转换函数实现大小写的转换。
