1、国家二级 VB机试（上机操作）模拟试卷 131及答案与解析 一、基本操作题 1 在标题为 “列表框 ”、名称为 Form1的窗体上添加一个名称为 List1的列表框，通过属性窗口输入 4个列表项： “数学 ”、 “语文 ”、 “历史 ”、 “地理 ”，列表项形式采用复选框形式，如图所示。列表框的宽为 1100，高不限。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。2 在名称为 Form1的窗体上建立一个名称为 “menul”、标题为 “文件 ”的弹出式菜单，其含有三个菜单项，它们 的标题分别为： “打开 ”、 “关闭 ”、 “保存
2、”，名称分别为 “m1”、 “m2”、 “m3”。再添加一个命令按钮，名称为 “Command1”、标题为 “弹出菜单 ”。要求：编写命令按钮的 click事件过程，使程序运行时，单击 “弹出菜单 ”按钮可弹出 “文件 ”菜单 (如图所示 )。注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。 二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp，包含了所有控件和部分程序。程序 运行时，在文本框中每输入一个字符，则立即判断：若是小写字母，则将它的大写形式显示在标签 Label1
3、中；若是大写字母，则把它的小写形式显示在 Label1中，若是其他字符，则将该字符直接显示在 Label1中。输入的字母总数则显示在标签Label2中，如图所示。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不得修改已经存在的程序，最后将修改后的文件按原文件名存盘。 4 在考生文件夹下有一个工程文件 sjt4 vbpc窗体中有一个图片框，图片框中有一个蓝色圆，名称为 Shape1，如图所示。当程序运 行时，单击 “开始 ”按钮，圆半径逐渐变大 (圆心位置不变 )，当圆充满图片框时则变为红色，并开始逐渐缩小，当缩小到初始大小时又变为蓝色，并再次逐渐变大，如此往复。单击 “停止
4、”按钮，则停止变化。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。 提示：程序中的符号常量 blue_color表示蓝色的值， red_color表示红色的值。注意：不能修改程序的其他部分和各控件的属性。最后将修改后的文件按原文件名存盘。 三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，包含了所有控件和部分程序。当程序运行时，单击 “打开文件 ”按钮，则弹出 “打开 ”对话框，默认目录为考生目录，默认文件类型为 “文本文件 ”。选中 in5 txt文件 (如图 1所示 )，单击 “打开 ”按钮，则把文件中的内容读入并显示在
5、文本框 (Text1)中；单击 “修改内容 ”按钮，则将 Text1中的大写字母 “E”、 “N”、 “T”改为小写，把小写字母 “e”、 “n”、 “t”改为大写；单击 “保存文件 ”按钮，则弹出 “另存为 ”对话框，默认文件类型为 “文本文件 ”，默认文件夹为考生文件夹，默认文件为 “out5 txt”(如图 2所示 )，单击 “保存 ”按钮，则将 Text1中修改后的内容存到 out5 txt文件中。窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符，把程序中的 ?改为正确的内容，并编写 “修改内容 ”按钮的 Click事件过程。注意：考生不得修改已经存在的程序。必须把 T
6、ext1中修改后的内容用 “保存文件 ”按钮存储结果，否则无成绩。最后，按照原文件名将程序存盘。国家二级 VB机试（上机操作）模拟试卷 131答案与解析 一、基本操作题 1 【正确答案】 操作步骤 步骤 1：新建一个窗体，按照题目要求建立列表框控件并设 置窗体及列表框属性，如图 3 29所示。程序中用到的控件及属性见表 3 41。 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 2 【正确答案】 操作步骤 步骤 1：建立界面，添加一个命令按钮，设置其 Name属性为 Command1， Caption属性为 “弹出菜单 ”。然后建立一个菜单，菜单的属性见表 3 42。 步骤 2：打开代码编
7、辑窗口，在指定位置编写如下代码。参考代码 Private Sub Command1_Click()PopupMenu menul显示菜单 menu1End Sub步骤 3：调试并运行程 序，关闭程序后按题目要求存盘。 二、简单应用题 3 【正确答案】 操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考代码 (画下划线部分是需填入的内容 ) Dim n As Integer Private Sub Text1 Change() Dim ch As String ch=Right$(Text1 1)通过 Right函数从 Te
8、xt1中取 1位 If ch =“A“And ch =“2“Then判断 ch的范围是 否在 A Z中 Label1 Caption=Lcase(ch)将大写的 ch转换为小写 n=n+1累加大写字符个数 Else If ch =“a“And ch =“z“Then 判断 ch是否为小写字母 Label1 Caption=Ucase(ch) 将 ch转换为大写 n=n+1累加小写字符个数 Else Label1 Caption=ch当不在字母范围内， 则直接赋值显示 End If Label2 Caption=nLabel2中显示满足条件的个数 End Sub 步骤 3：调试并运行程序，关闭程
9、序后按题目要求存盘。 4 【正确答案】 操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考代码 (画下划线部分是需填入的内容 ) Dim left0 As Integer Const blue_color=&HFF0000， red_color=&HFF& Private Sub Command1_Click()Timer1 Enabled=True单击 “开始 “按钮，Timer生效 End Sub Private Sub Command2_Click() Timer1 Enabled=False单击 “结束 “按钮，
10、Timer失效 End Sub Private Sub Form_Load() left0=Shape1 Left加载窗体时，初始化圆心到窗体的距离 End Sub Private Sub Timer1_Timer() If Shape1 FillColor=blue_color Then If Shape1 Left 0 Then Shape1 Height=Shape1 Height+100圆的高扩大 100 Shape1 Width=Shape1 Width+100 Shape1 Left=Shape1 Left-50 圆心到图片框左边上边的距离 Shape1 Top=Shape1 To
11、p-50 Else Shape1 FillColor=red_color当充满图片框时则变色 End If End If If Shape1 FillColor=red_color Then If Shape1 Left left0 Then Shape1 Height=Shape1 Height-100 Shape1 Width=Shape1 Width-100 Shape1 Left=Shape1 Left+50 设置 Shape1的左边位置 Shape1 Top=Shape1 Top+50 设置 Shape1的上界位置 ElSe Shape1 FillColor=blue_color 当
12、缩小到原始大小时则变色 End If End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 5 【 正确答案】 操作步骤 步骤 1：打开本题工程文件。步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。参考代码 (画下划线部分是需填入的内容 )Private Sub Command1_Click()Dim s As StringCommonDialog1 Filter=“所有文件 |* *|文本文件 |* txt“设置过滤条件，过滤文件类型 CommonDialog1 FilterIndex=2指定文件类型列表框中的值为所有
13、文件On Error GoTo openerr如果出错则转回 openerrCommonDialog1 InitDir=App Path指定打开对话框中的初始目录为 App PathCommonDialog1 ShowOpen显示打开对话框 OpenCommonDialog1 FileNameFor InputAs#1打开指定文件 Input#1， s读取文件到 SClose#1关闭文件 Text1 Text=ss中记录了读取内容 OPenemr： End SubPrivate Sub Command2 Click()考生需要编写的程序 Dim ch As StringDim s As Str
14、ingDim n As LongS=Text1 TextText1 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“Thench=LCase(ch)将大写字母转换为小写 ElseIf ch=“e“Or ch=“n“Or ch=“t“Thench=UCase(ch)将小写字母转换为大写 End IfText1 Text=Text1&chNext nEnd SubPrivate Sub Command3 Click()CommonDi
15、alog1 Filter=“文本文件 |* txt|所有文件|* *“CommonDialog1 FilterIndex=1指定文件类型列表框中的值为文本文件 On Error GoTo openemrCommonDialog1 FileName=“out5 txt“所选文件默认名CommonDialog1 InitDir=App PathCommonDialog1 Action=2显示另存为对话框Open CommonDialog1 FileName For OutputAs#1Print#1， Text1Close#1OPenerr：End Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘，如图 3 30所示。
