1、国家二级 VB机试（上机操作）模拟试卷 154及答案与解析 一、基本操作题 1 (1)在标题为 “列表框 ”、名称为 Form1的窗体上添加一个名称为 List1的列表框，通过属性窗口输入 4个列表项： “数学 ”、 “语文 ”、 “历史 ”、 “地理 ”，列表项形式采用复选框形式，如图所示。列表框的宽为 1100，高不限。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。(2)在名称为 Form1的窗体上建立一个名称为 “monu1”、标题为 “文件 ”的弹出式菜单，其含有三个菜单 项，它们的标题分别为： “打开 ”、 “关闭 ”、
2、 “保存 ”，名称分别为 “m1”、 “m2”、 “m3”。再添加一个命令按钮，名称为 “Command1”、标题为 “弹出菜单 ”。要求：编写命令按钮的 Click事件过程，使程序运行时，单击 “弹出菜单 ”按钮可弹出 “文件 ”菜单 (如图所示 )。 注意：程序中不得使用变量，事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，包含了所有控 件和部分程序。程序运行时，在文本框中每输入一个字符，则立即判断：若是小写字母，则将它的人写形式显示在
3、标签 Label1中；若是人写字母，则把它的小写形式显示在 Label1中，若是其他字符，则将该字符亢接显示在 Label1中。输入的字母总数则显示在标签 Label2中，如图所示。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不得修改已经存在的程序，最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个上程文件 sjt4 vbp。窗体中有一个图片框，图片框中有一个蓝色圆，名称为 Shapel，如图所示。 当程序运行时，单击 “开始 ”按钮，圆半径逐渐变大 (圆心位置不变 )，当圆充满图片框时则变为红色，并开始逐渐缩小，当缩小到初始大小时又变为蓝色，并再次逐渐变大，
4、如此往复。单击 “停止 ”按钮，则停止变化。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。提示：程序中的符号常量 bluc_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机试（上机操作）模拟试卷 154答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：新建 一个窗体，按照题目要求建市列表框控件并设置窗体及列表框属性，如图 3 29所示。程序中用到的控件及属性见表 3 41。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：建立界衙，添加一个命令按钮，设置其 Nmne属性为 Command1， Caption属件为 “弹出菜单 ”。然后建立一个菜单，菜单的属性见表 3 4
7、2。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub Commandl_Cick() PopupMenu menul显示菜单 menul End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Dim n As Integer Pr ivate Sub Text1 Change() Dim ch As String ch Right$(Text1)通过 Right函数从 T
8、ext1申取 1位 If ch “A“And ch “Z“Then判断 ch的范围是否在 A z中 Label1 Caption Lcase(ch)将大写的 ch转换为小写 n n 1累加大写字符个数 ElseIf ch “a“And ch “z“Then 判断 ch是否为小写字母 Labeii Caption Ucase(ch) 将 ch转换为大写 n n 1累加小写字符个数 Else Label1 Caption ch当不在字母范围内，则直接赋 值显示 End If Label2 Caption nLabel2中显示满足条件的个数 End Sub 步骤 3：调试并运行程序，关闭程序后按题日
9、要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Dim left0 As Integer Const blue color &HFF0000， red color &HFF& Private Sub Command1 C1ick() Timer1 Enabled True 单击 “开始 “按钮， Timer生效 End Sub Private Sub Command2 C1 ick() Timer1 Enabled False单击 “结束 ”按缸， Timer失效 End Sub Privat
10、e Sub Form_Load() left0 Shapel Left加载窗体时，初始化圆心到窗体的距离 End Sub Private Sub Timer1 Timer() If Shapel FillColor blue color Then If Shapel Left 0 Then Shapel Height Shapel Height 100圆的高扩大 100 Shapel Width Shapel Width 100 Shapel Left Shapel Left 50 圃心到图片框左边上边的距离 Shapel Top Shapel Top 50 Eise Shapel FillC
11、olor red_color当充满图片框时则变色 End If End If If Shapel FiIiCoior red color Then If Shapel Left left0 Then Shapel Height Shapel Height 100 Shapel Width Shapel Width i00 Shapel Shapel Left 50 设置 Shapel的左边位置 TShapel Top Shapel Top 50 设置 Shapel的上界位置 Else Shapel FillColor blue_color 当缩小到原始大小时则变色 End If End If
12、End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”。将问号改为正确的内容。 参考答案 Private Sub Commandl C1ick() Dim s As String CommonDialogl Filter “所有文件 * *文本文件 * txt“设置过滤条件，过滤文件类型 CommonDialogl FiIrerIndex 2指定文件类型列表框中的值为所有文件 On Error GoTo openerr如果出错则转回openerr C
13、ommonDialogl InJ tDir App Path指定打开对话框中的初始目录为App Path CommonDialogl ShowOpen显示打开对话框 Open CommonDialog1 FileName For Input 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 String Dim n As Long s Text1 Te
14、xt 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 Lease(ch)将大写字母转换为小写 ElseIf ch “e“Or ch “nOr ch“t“Then ch UCase(ch)将小写字母转换为大写 End If Text1 Text Text1&ch Next n End Sub Private Sub Command3 C1ick() CommonDialogl Filter “丈本文件
15、* txt所有文件 * *“ CommonDialog1 FilterIndex 1。指定文件类型列表框中的值为文本文件 On Error GoTo openerr CommonDialog1 FileName “out5 txt“所选文件默认名 CommonDialog1 InitDir App Path CommonDialog1 Action2显示另存为对话框 Open CommonDialog1 FileName For OutputAs #1 Print #1，Text1 Close #1 OPenerr： End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘，如图 3 30所示。
