1、国家二级 VB 机试（上机操作）-试卷 99 及答案解析(总分：10.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.在标题为“列表框”、名称为 Form1 的窗体上添加一个名称为 List1 的列表框，通过属性窗口输入 4 个列表项：“数学”、“语文”、“历史”、“地理”，列表项形式采用复选框形式，如图所示。列表框的宽为 1100，高不限。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1frm。 （分数：2.00）_2.在名称为 Form1 的窗体上建立一个名称为“menul”、标题为“文件”的弹出式菜单，其含有三个
2、菜单项，它们的标题分别为：“打开”、“关闭”、“保存”，名称分别为“m1”、“m2”、“m3”。再添加一个命令按钮，名称为“Command1”、标题为“弹出菜单”。要求：编写命令按钮的 click 事件过程，使程序运行时，单击“弹出菜单”按钮可弹出“文件”菜单(如图所示)。注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2vbp，窗体文件名保存为 sjt2frm。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.在考生文件夹下有一个工程文件 sjt3vbp，包含了所有控件和部分程序。程序运行时，在文本框中每输入一个字
3、符，则立即判断：若是小写字母，则将它的大写形式显示在标签 Label1 中；若是大写字母，则把它的小写形式显示在 Label1 中，若是其他字符，则将该字符直接显示在 Label1 中。输入的字母总数则显示在标签 Label2 中，如图所示。 （分数：2.00）_4.在考生文件夹下有一个工程文件 sjt4vbpc窗体中有一个图片框，图片框中有一个蓝色圆，名称为Shape1，如图所示。当程序运行时，单击“开始”按钮，圆半径逐渐变大(圆心位置不变)，当圆充满图片框时则变为红色，并开始逐渐缩小，当缩小到初始大小时又变为蓝色，并再次逐渐变大，如此往复。单击“停止”按钮，则停止变化。文件中已经给出了所有
4、控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)5.在考生文件夹下有一个工程文件 sjt5vbp，包含了所有控件和部分程序。当程序运行时，单击“打开文件”按钮，则弹出“打开”对话框，默认目录为考生目录，默认文件类型为“文本文件”。选中in5txt 文件(如图 1 所示)，单击“打开”按钮，则把文件中的内容读入并显示在文本框(Text1)中；单击“修改内容”按钮，则将 Text1 中的大写字母“E”、“N”、“T”改为小写，把小写字母“e”、“n”、“t”改为大写；单击“保存文件”按钮，则弹出“另存为”
5、对话框，默认文件类型为“文本文件”，默认文件夹为考生文件夹，默认文件为“out5txt”(如图 2 所示)，单击“保存”按钮，则将 Text1中修改后的内容存到 out5txt 文件中。窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符，把程序中的?改为正确的内容，并编写“修改内容”按钮的 Click 事件过程。注意：考生不得修改已经存在的程序。必须把 Text1 中修改后的内容用“保存文件”按钮存储结果，否则无成绩。最后，按照原文件名将程序存盘。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 99 答案解析(总分：10.00，做题时间：90 分钟)一、基本操作题(
6、总题数：2，分数：4.00)1.在标题为“列表框”、名称为 Form1 的窗体上添加一个名称为 List1 的列表框，通过属性窗口输入 4 个列表项：“数学”、“语文”、“历史”、“地理”，列表项形式采用复选框形式，如图所示。列表框的宽为 1100，高不限。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1frm。 （分数：2.00）_正确答案：(正确答案：操作步骤 步骤 1：新建一个窗体，按照题目要求建立列表框控件并设置窗体及列表框属性，如图 329 所示。 程序中用到的控件及属性见表 341。 )解析：2.在名称为 Form1 的窗体上建立一个
7、名称为“menul”、标题为“文件”的弹出式菜单，其含有三个菜单项，它们的标题分别为：“打开”、“关闭”、“保存”，名称分别为“m1”、“m2”、“m3”。再添加一个命令按钮，名称为“Command1”、标题为“弹出菜单”。要求：编写命令按钮的 click 事件过程，使程序运行时，单击“弹出菜单”按钮可弹出“文件”菜单(如图所示)。注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2vbp，窗体文件名保存为 sjt2frm。 （分数：2.00）_正确答案：(正确答案：操作步骤 步骤 1：建立界面，添加一个命令按钮，设置其 Name 属性为
8、Command1，Caption 属性为“弹出菜单”。然后建立一个菜单，菜单的属性见表 342。 )解析：二、简单应用题(总题数：2，分数：4.00)3.在考生文件夹下有一个工程文件 sjt3vbp，包含了所有控件和部分程序。程序运行时，在文本框中每输入一个字符，则立即判断：若是小写字母，则将它的大写形式显示在标签 Label1 中；若是大写字母，则把它的小写形式显示在 Label1 中，若是其他字符，则将该字符直接显示在 Label1 中。输入的字母总数则显示在标签 Label2 中，如图所示。 （分数：2.00）_正确答案：(正确答案：操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开
9、代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 参考代码(画下划线部分是需填入的内容) Dim n As Integer Private Sub Text1 Change() Dim ch As String ch=Right$( Text11 )通过 Right 函数从Text1 中取 1 位 If ch=“A“And ch=“2“Then判断 ch 的范围是否在 AZ 中 Label1Caption=Lcase(ch)将大写的 ch 转换为小写 n=n+1累加大写字符个数 Else If ch=“a“And ch=“z“Then 判断 ch 是否为小写字母 Label1Cap
10、tion=Ucase(ch) 将 ch 转换为大写 n=n+1累加小写字符个数 Else Label1Caption= ch 当不在字母范围内， 则直接赋值显示 End If Label2Caption= n Label2 中显示满足条件的个数 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：4.在考生文件夹下有一个工程文件 sjt4vbpc窗体中有一个图片框，图片框中有一个蓝色圆，名称为Shape1，如图所示。当程序运行时，单击“开始”按钮，圆半径逐渐变大(圆心位置不变)，当圆充满图片框时则变为红色，并开始逐渐缩小，当缩小到初始大小时又变为蓝色，并再次逐渐变大，如
11、此往复。单击“停止”按钮，则停止变化。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。 （分数：2.00）_正确答案：(正确答案：操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 参考代码(画下划线部分是需填入的内容) Dim left0 As Integer Const blue_color=&HFF0000，red_color=&HFF& Private Sub Command1_Click()Timer1Enabled= True 单击“开始“按钮，Timer 生效 End
12、Sub Private Sub Command2_Click() Timer1Enabled=False单击“结束“按钮，Timer 失效 End Sub Private Sub Form_Load() left0=Shape1Left加载窗体时，初始化圆心到窗体的距离 End Sub Private Sub Timer1_Timer() If Shape1FillColor=blue_color Then If Shape1Left0 Then Shape1Height=Shape1Height+100圆的高扩大 100 Shape1Width=Shape1Width+100 Shape1L
13、eft=Shape1Left-50 圆心到图片框左边上边的距离 Shape1Top=Shape1Top-50 Else Shape1FillColor= red_color 当充满图片框时则变色 End If End If If Shape1FillColor=red_color Then If Shape1Leftleft0 Then Shape1Height=Shape1Height-100 Shape1Width=Shape1Width-100 Shape1Left =Shape1Left+50 设置 Shape1 的左边位置 Shape1Top =Shape1Top+50 设置 Sha
14、pe1 的上界位置 ElSe Shape1FillColor= blue_color 当缩小到原始大小时则变色 End If End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：三、综合应用题(总题数：1，分数：2.00)5.在考生文件夹下有一个工程文件 sjt5vbp，包含了所有控件和部分程序。当程序运行时，单击“打开文件”按钮，则弹出“打开”对话框，默认目录为考生目录，默认文件类型为“文本文件”。选中in5txt 文件(如图 1 所示)，单击“打开”按钮，则把文件中的内容读入并显示在文本框(Text1)中；单击“修改内容”按钮，则将 Text1 中的大
15、写字母“E”、“N”、“T”改为小写，把小写字母“e”、“n”、“t”改为大写；单击“保存文件”按钮，则弹出“另存为”对话框，默认文件类型为“文本文件”，默认文件夹为考生文件夹，默认文件为“out5txt”(如图 2 所示)，单击“保存”按钮，则将 Text1中修改后的内容存到 out5txt 文件中。窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符，把程序中的?改为正确的内容，并编写“修改内容”按钮的 Click 事件过程。注意：考生不得修改已经存在的程序。必须把 Text1 中修改后的内容用“保存文件”按钮存储结果，否则无成绩。最后，按照原文件名将程序存盘。 （分数：2.0
16、0）_正确答案：(正确答案：操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 参考代码(画下划线部分是需填入的内容) Private Sub Command1_Click() Dim s As String CommonDialog1Filter=“所有文件|*|文本文件|*txt“设置过滤条件，过滤文件类型 CommonDialog1FilterIndex= 2 指定文件类型列表框中的值为所有文件 On Error GoTo openerr如果出错则转回 openerr CommonDialog1InitDir=AppPath
17、指定打开对话框中的初始目录为 AppPath CommonDialog1ShowOpen显示打开对话框 Open CommonDialog1FileName For InputAs#1打开指定文件 Input#1，s读取文件到 S Close#1关闭文件 Text1Text= s s 中记录了读取内容 OPenemr： End Sub Private Sub Command2 Click() 考生需要编写的程序 Dim ch As String Dim s As String Dim n As Long S=Text1Text Text1Text=“ For n=1 To Len(s)查找文本
18、中的“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 Text1Text=Text1&ch Next n End Sub Private Sub Command3 Click() CommonDialog1Filter=“文本文件|*txt|所有文件|*“ CommonDialog1FilterIndex=1指定文件类型列表框中的值为文本文件 On Error GoTo openemr CommonDialog1FileName=“out5txt“所选文件默认名 CommonDialog1InitDir=AppPath CommonDialog1Action= 2 显示另存为对话框 Open CommonDialog1FileName For OutputAs#1 Print#1，Text1 Close#1 OPenerr： End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘，如图 330 所示。 )解析：
