vb套题字母查找.docx

1、vb套题字母查找第44套：1. 基本操作（2小题，每小题15分，共计30分） 注意：下面出现的“考生文件夹”均为%USER%* 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在标题为“列表框”、名称为Form1的窗体上画一个名称为List1列表框， 通过属性窗口输入四个列表项：“数学”、“语文”、“历史”、“地理 ”，列表项采用“复选框形式”，如图所示。列表框的宽为1100，高不限。 注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名 为sjt1.frm。解题思路： 启动Visual Basic系统，创建一个Form1窗体。

2、在该窗体上画一个列表框控件，通过其属性窗口将名称设为List1，向列表框中添加项目（List属性），添加的项目分别为“数学”、“语文”、“历史”、“地理”，每个项目为一行，宽（Width属性）设为1100，Style属性设为1。参考文件：c:wexam26990001hlpsys参考答案sjt1.vbp、sjt1.frm、sjt1.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt1.vbp文件并运行。* （2）在名称为Form1的窗体上建立一个名称为“menu1”、标题为“文件”的弹 出式菜单，含有三个菜单项，它们的标题分别为：“打开”、“关闭”、 “保存”，名称分别为

3、“m1”、“m2”、“m3”。再画一个命令按钮，名 称为“Command1”、标题为“弹出菜单”。要求：编写命令按钮的 Click 事件过程，使程序运行时，单击“弹出菜单”按钮可弹出“文件”菜单（ 如图所示）。 注意： 程序中不得使用变量，事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名 为sjt2.frm。解题思路： 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“文件”，名称处输入menu1，将“可见”单选按钮设为不选状态。在“文件”菜单下有三个子菜单，在菜单编辑

4、器的标题处分别输入“打开”、“关闭”、“保存”，名称处分别输入m1、m2、m3。画一个命令按钮控件，通过其属性窗口将名称设为Command1，标题（Caption属性）设为“弹出菜单”。 单击“弹出菜单”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click() Form1.PopupMenu menu1或 PopupMenu menu1End Sub参考文件：c:wexam26990001hlpsys参考答案sjt2.vbp、sjt2.frm、sjt2.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt2

5、.vbp文件并运行。2. 简单应用（2小题，每题20分，计40分） 注意：下面出现的“考生文件夹”均为%USER%* （1）在考生目录下有一个工程文件sjt3.vbp， 包含了所有控件和部分程序。 程序运行时，在文本框中每输入一个字符，则立即判断：若是小写字母， 则把它的大写形式显示在标签Label1中，若是大写字母，则把它的小写 形式显示在Label1中，若是其他字符，则把该字符直接显示在Label1中。 输入的字母总数则显示在标签Label2中，如图所示。 要求： 去掉程序中的注释符，把程序中的 ？改为正确的内容。 注意： 不得修改已经存在的程序，最后把修改后的文件按原文件名存盘。解题思路

6、： 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。 由于所提供的窗体程序不完整，在文本框输入字符，即运行Private Sub Text1_Change()事件过程，在该事件过程中，有三处地方需要修改。1) 将语句 ch = Right$( ? ) 改为 ch = Right$(Text1, 1)2) 将语句 Label1.Caption = ? 改为 Label1.Caption = Right$(Text1, 1)3) 将语句 Label2.Caption = ? 改为 Label2.Caption = n参考文件：

7、c:wexam26990001hlpsys参考答案sjt3.vbp、sjt3.frm、sjt3.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt3.vbp文件并运行。* （2）在考生文件夹下有一个工程文件sjt4.vbp。 窗体中有一个图片框，图片 框中有一个名称为Shape1的蓝色圆，如图所示。 程序运行时，单击“开始”按钮， 圆逐渐变大（圆心位置不变），当圆 充满图片框时则变为红色，并开始逐渐缩小， 当缩小到初始大小时又变 为蓝色，并再次逐渐变大，如此往复。单击“停止”按钮，则停止变化。 文件中已经给出了所有控件和程序，但程序不完整， 请去掉程序中的注 释符，把程序

8、中的 ？改为正确的内容。 提示： 程序中的符号常量bule_color表示蓝色的值，red_color表示红色的值。 注意： 不能修改程序的其他部分和各控件的属性。 最后把修改后的文件按原 文件名存盘。解题思路： 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。 由于所提供的窗体程序不完整，在“开始”按钮的Private Sub Command1_Click()事件过程中，有一处地方需要修改。1) 将语句 Timer1.Enabled = ? 改为 Timer1.Enabled = True 在计时器的Private Su

9、b Timer1_Timer()事件过程中，有四处地方需要修改。1) 将语句 Shape1.FillColor = ? 改为 Shape1.FillColor = red_color2) 将语句 ? = Shape1.Left + 50 改为 Shape1.Left = Shape1.Left + 503) 将语句 ? = Shape1.Top + 50 改为 Shape1.Top = Shape1.Top + 504) 将语句 Shape1.FillColor = ? 改为 Shape1.FillColor = blue_color参考文件：c:wexam26990001hlpsys参考答案

10、sjt4.vbp、sjt4.frm、sjt4.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt4.vbp文件并运行。*3. 综合应用（1小题，计30分） 注意：下面出现的“考生文件夹”均为%USER% 在考生目录下有一个工程文件sjt5.vbp，包含了所有控件和部分程序。程序 运行时，单击“打开文件”按钮，则弹出“打开”对话框，默认文件类型为 “文本文件”，默认目录为考生目录。选中in5.txt文件（如图1所示），单 击“打开”按钮， 则把文件中的内容读入并显示在文本框（Text1）中；单 击“修改内容”按钮，则可把Text1中的大写字母“E”、“N”、“T”改为 小写

11、，把小写字母“e”、“n”、“t”改为大写；单击“保存文件”按钮， 则弹出“另存为”对话框，默认文件类型为“文本文件”，默认目录为考生 目录，默认文件为“out5.txt”（如图 2所示），单击“保存”按钮，则把 Text1中修改后的内容存到out5.txt文件中。 窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符， 把程序中的 ？ 改为正确的内容，并编写“修改内容”按钮的Click 事件过 程。 注意： 考生不得修改已经存在的程序。必须把Text1 中修改后的内容用“保存文 件”按钮存储结果，否则无成绩。最后，按原文件名把程序存盘。解题思路： 启动Visual Basic系统

12、，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。 由于所提供的窗体程序不完整，需添加事件过程。 单击“修改内容”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command2_Click() s = str_len = Len(Text1) For k = 1 To str_len ch = Mid$(Text1, k, 1) If ch = E Or ch = N Or ch = T Then s = s & LCase(ch) ElseIf ch = e Or ch = n Or ch = t Then

13、s = s & UCase(ch) Else s = s & ch End If Next k Text1 = sEnd Sub 在“打开文件”按钮的Private Sub Command1_Click()事件过程中，有三处地方需要修改。1) 将语句 CommonDialog1.FilterIndex = ? 改为 CommonDialog1.FilterIndex = 22) 将语句 Open ? For Input As #1 改为 Open CommonDialog1. For Input As #13) 将语句 Text1.Text = ? 改为 Text1.Text = s 在“打开文件”按钮的Private Sub Command3_Click()事件过程中，有三处地方需要修改。1) 将语句 CommonDialog1.Action = ? 改为 CommonDialog1.Action = 2参考文件：c:wexam26990001hlpsys参考答案sjt5.vbp、sjt5.frm、sjt5.vbw、out5.dat请把这些文件复制到c:wexam26990001中，然后打开sjt5.vbp文件并运行。第48套：1. 基本操作（2小题，每小题15分，共计30分） 注意：下面