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