1、国家二级 VB 机试（上机操作）-试卷 91 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在标题为“列表框”、名称为 Form1 的窗体上添加一个名称为 List1 的列表框，通过属性窗口输入4 个列表项：“数学”、“语文”、“历史”、“地理”，列表项形式采用复选框形式，如图所示。列表框的宽为 1100，高不限。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1frm。 (2)在名称为 Form1 的窗体上建立一个名称为“monu1”、标题为“文件”的弹出式菜单，其含有三个菜单项，它们的
2、标题分别为：“打开”、“关闭”、“保存”，名称分别为“m1”、“m2”、“m3”。再添加一个命令按钮，名称为“Command1”、标题为“弹出菜单”。要求：编写命令按钮的 Click 事件过程，使程序运行时，单击“弹出菜单”按钮可弹出“文件”菜单(如图所示)。 注意：程序中不得使用变量，事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2vbp，窗体文件名保存为 sjt2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，包含了所有控件和部分程序。程序运行时，在文本框中每输入一个字符，
3、则立即判断：若是小写字母，则将它的人写形式显示在标签 Label1 中；若是人写字母，则把它的小写形式显示在 Label1 中，若是其他字符，则将该字符亢接显示在 Label1 中。输入的字母总数则显示在标签 Label2 中，如图所示。 要求：去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不得修改已经存在的程序，最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个上程文件 sjt4vbp。窗体中有一个图片框，图片框中有一个蓝色圆，名称为 Shapel，如图所示。 当程序运行时，单击“开始”按钮，圆半径逐渐变大(圆心位置不变)，当圆充满图片框时则变为红色，并开始逐渐缩小，当
4、缩小到初始大小时又变为蓝色，并再次逐渐变大，如此往复。单击“停止”按钮，则停止变化。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，包含了所有控件和部分程序。当程序运行时，单击“打开文件”按钮，则弹出“打开”对话框，默认目录为考生目录，默认文件类型为“文本文件”。选中in5txt 文件(如图 1 所示)，单击“打开”按钮，则把文件中的内容读入并显示在文本框(Text1)中；单击“修改内容”按钮，则将 Text1 中的大写字母“E”、
5、“N”、“T，改为小写，把小写字母“e”、“n”、“t”改为大写；单击“保存文件”按钮，则弹出“另存为”对话框，默认文件类型为“文本文件”，默认文件夹为考生文件夹，默认文件为“out5txt”(如图 2 所示)，单击“保存”按钮，则将 Text1中修改后的内容存到 out5txt 文件中。 窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符，把程序中的?改为正确的内容，并编写“修改内容”按钮的 Click 事件过程。 注意：考生不得修改已经存在的程序。必须把 Text1 中修改后的内容用“保存文件”按钮存储结果，否则无成绩。最后，按照原文件名将程序存盘。 （分数：2.00）_国家
6、二级 VB 机试（上机操作）-试卷 91 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在标题为“列表框”、名称为 Form1 的窗体上添加一个名称为 List1 的列表框，通过属性窗口输入4 个列表项：“数学”、“语文”、“历史”、“地理”，列表项形式采用复选框形式，如图所示。列表框的宽为 1100，高不限。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1frm。 (2)在名称为 Form1 的窗体上建立一个名称为“monu1”、标题为“文件”的弹出式菜单，其含有三个菜单项，它们的标题分
7、别为：“打开”、“关闭”、“保存”，名称分别为“m1”、“m2”、“m3”。再添加一个命令按钮，名称为“Command1”、标题为“弹出菜单”。要求：编写命令按钮的 Click 事件过程，使程序运行时，单击“弹出菜单”按钮可弹出“文件”菜单(如图所示)。 注意：程序中不得使用变量，事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2vbp，窗体文件名保存为 sjt2frm。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：新建一个窗体，按照题目要求建市列表框控件并设置窗体及列表框属性，如图 329 所示。 程序中用到的控件及属性见表 34
8、1。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：建立界衙，添加一个命令按钮，设置其 Nmne 属性为 Command1，Caption 属件为“弹出菜单”。然后建立一个菜单，菜单的属性见表342。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，包含了所有控件和部分程序。程序运行时，在文本框中每输入一个字符，则立即判断：若是小写字母，则将它的人写形式显示在标签 Label1 中；若是人写字母，则把它的小写形式显示在 Label1 中，若是其他字符，则将该字符亢接显示在 Label1 中。输入的
9、字母总数则显示在标签 Label2 中，如图所示。 要求：去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不得修改已经存在的程序，最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个上程文件 sjt4vbp。窗体中有一个图片框，图片框中有一个蓝色圆，名称为 Shapel，如图所示。 当程序运行时，单击“开始”按钮，圆半径逐渐变大(圆心位置不变)，当圆充满图片框时则变为红色，并开始逐渐缩小，当缩小到初始大小时又变为蓝色，并再次逐渐变大，如此往复。单击“停止”按钮，则停止变化。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。 （分数
10、：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 参考答案 Dim n As Integer Pr ivate Sub Text1 Change() Dim ch As String chRight$(Text1)通过 Right 函数从 Text1 申取 1 位 If ch“A“And ch“Z“Then判断 ch 的范围是否在 Az 中 Label1CaptionLcase(ch)将大写的 ch 转换为小写 nn1累加大写字符个数 ElseIf ch“a“And ch“z“The
11、n 判断 ch 是否为小写字母 LabeiiCaptionUcase(ch) 将 ch 转换为大写 nn1累加小写字符个数 Else Label1Captionch当不在字母范围内，则直接赋值显示 End If Label2CaptionnLabel2 中显示满足条件的个数 End Sub 步骤 3：调试并运行程序，关闭程序后按题日要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 参考答案 Dim left0 As Integer Const blue color&HFF0000，red color&HFF
12、& Private Sub Command1 C1ick() Timer1EnabledTrue 单击“开始“按钮，Timer 生效 End Sub Private Sub Command2 C1 ick() Timer1EnabledFalse单击“结束”按缸，Timer 失效 End Sub Private Sub Form_Load() left0ShapelLeft加载窗体时，初始化圆心到窗体的距离 End Sub Private Sub Timer1 Timer() If ShapelFillColorblue color Then If ShapelLeft0 Then Shape
13、lHeightShapelHeight100圆的高扩大 100 ShapelWidthShapelWidth100 ShapelLeftShapelLeft50 圃心到图片框左边上边的距离 ShapelTopShapelTop50 Eise ShapelFillColorred_color当充满图片框时则变色 End If End If If ShapelFiIiCoiorred color Then If ShapelLeftleft0 Then ShapelHeightShapelHeight100 ShapelWidthShapelWidthi00 ShapelShapelLeft50
14、设置 Shapel 的左边位置 TShapelTopShapelTop50 设置 Shapel 的上界位置 Else ShapelFillColorblue_color 当缩小到原始大小时则变色 End If End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，包含了所有控件和部分程序。当程序运行时，单击“打开文件”按钮，则弹出“打开”对话框，默认目录为考生目录，默认文件类型为“文本文件”。选中in5txt 文件(如图 1 所示)，单击“打开”按钮，则把文件中的内
15、容读入并显示在文本框(Text1)中；单击“修改内容”按钮，则将 Text1 中的大写字母“E”、“N”、“T，改为小写，把小写字母“e”、“n”、“t”改为大写；单击“保存文件”按钮，则弹出“另存为”对话框，默认文件类型为“文本文件”，默认文件夹为考生文件夹，默认文件为“out5txt”(如图 2 所示)，单击“保存”按钮，则将 Text1中修改后的内容存到 out5txt 文件中。 窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符，把程序中的?改为正确的内容，并编写“修改内容”按钮的 Click 事件过程。 注意：考生不得修改已经存在的程序。必须把 Text1 中修改后的内
16、容用“保存文件”按钮存储结果，否则无成绩。最后，按照原文件名将程序存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”。将问号改为正确的内容。 参考答案 Private Sub Commandl C1ick() Dim s As String CommonDialoglFilter“所有文件*文本文件*txt“设置过滤条件，过滤文件类型 CommonDialoglFiIrerIndex2指定文件类型列表框中的值为所有文件 On Error GoTo openerr如果出错则转回 openerr Comm
17、onDialoglInJ tDirAppPath指定打开对话框中的初始目录为 AppPath CommonDialoglShowOpen显示打开对话框 Open CommonDialog1FileName For Input As #1打开指定文件 Input #1，s读取文件到 s Close #1关闭文件 Text1Textss 中记录了读取内容 openerr： End Sub Private Sub Command2 C1ick() 考生需要编写的程序 Dim ch As String Dim s As String Dim n As Long sText1Text Text1Text
18、“ For n1 To Len(s)查找文本中的“E“、“N“、“T“、“e“、“n“、“t“并做相应的改变 chMid(s，n，1) If ch“E“Or ch“N“Or ch“T“Then chLease(ch)将大写字母转换为小写 ElseIf ch“e“Or ch“nOr ch“t“Then chUCase(ch)将小写字母转换为大写 End If Text1TextText1&ch Next n End Sub Private Sub Command3 C1ick() CommonDialoglFilter“丈本文件*txt所有文件*“ CommonDialog1FilterIndex1。指定文件类型列表框中的值为文本文件 On Error GoTo openerr CommonDialog1FileName“out5txt“所选文件默认名 CommonDialog1InitDirAppPath CommonDialog1Action2显示另存为对话框 Open CommonDialog1FileName For OutputAs #1 Print #1，Text1 Close #1 OPenerr： End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘，如图330 所示。 )解析：
