《vb套题字母查找.doc》由会员分享，可在线阅读，更多相关《vb套题字母查找.doc（40页珍藏版）》请在课桌文档上搜索。
1、第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、标题为“文件的弹 出式菜单，含有三个菜单项，它们的标题分别为：“打开、“关闭、“保存，名称分别为“m1、“m2、“m3。再画一个命令按钮，名 称为“Command1、标题为“
3、弹出菜单。要求：编写命令按钮的 Click 事件过程，使程序运行时，单击“弹出菜单按钮可弹出“文件菜单 如下图。 注意： 程序中不得使用变量，事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名 为sjt2.frm。解题思路： 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“文件，名称处输入menu1，将“可见单项选择按钮设为不选状态。在“文件菜单下有三个子菜单，在菜单编辑器的标题处分别输入“打开、“关闭、“保存，名称处分别输入m1、m2、m3。画一个命令按钮控件，通过其
4、属性窗口将名称设为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.vbp文件并运行。2. 简单应用2小题，每题20分，计40分 注意：下面出现的“考生文件夹均为%USER%* 1在考
5、生目录下有一个工程文件sjt3.vbp， 包含了所有控件和局部程序。 程序运行时，在文本框中每输入一个字符，那么立即判断：假设是小写字母， 那么把它的大写形式显示在标签Label1中，假设是大写字母，那么把它的小写 形式显示在Label1中，假设是其他字符，那么把该字符直接显示在Label1中。 输入的字母总数那么显示在标签Label2中，如下图。 要求： 去掉程序中的注释符，把程序中的 ？改为正确的容。 注意： 不得修改已经存在的程序，最后把修改后的文件按原文件名存盘。解题思路： 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.
6、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参考文件：c:wexam26990001hlpsys参考答案sjt3.vbp、sjt3.frm、sjt3.vbw请把这些文件复
7、制到c:wexam26990001中，然后打开sjt3.vbp文件并运行。* 2在考生文件夹下有一个工程文件sjt4.vbp。 窗体中有一个图片框，图片 框中有一个名称为Shape1的蓝色圆，如下图。 程序运行时，单击“开始按钮， 圆逐渐变大圆心位置不变，当圆 充满图片框时那么变为红色，并开始逐渐缩小， 当缩小到初始大小时又变 为蓝色，并再次逐渐变大，如此往复。单击“停止按钮，那么停止变化。 文件中已经给出了所有控件和程序，但程序不完整， 请去掉程序中的注 释符，把程序中的 ？改为正确的容。 提示： 程序中的符号常量bule_color表示蓝色的值，red_color表示红色的值。 注意： 不
8、能修改程序的其他局部和各控件的属性。 最后把修改后的文件按原 文件名存盘。解题思路： 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。 由于所提供的窗体程序不完整，在“开始按钮的Private Sub Command1_Click()事件过程中，有一处地方需要修改。1) 将语句 Timer1.Enabled = ? 改为 Timer1.Enabled = True 在计时器的Private Sub Timer1_Timer()事件过程中，有四处地方需要修改。1) 将语句 Shape1.FillColor = ? 改为 Sh
9、ape1.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参考答案sjt4.vbp、sjt4.frm、sjt4.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt4.vbp文
10、件并运行。*3. 综合应用1小题，计30分 注意：下面出现的“考生文件夹均为%USER% 在考生目录下有一个工程文件sjt5.vbp，包含了所有控件和局部程序。程序 运行时，单击“打开文件按钮，那么弹出“打开对话框，默认文件类型为“文本文件，默认目录为考生目录。选中in5.txt文件如图1所示，单 击“打开按钮， 那么把文件中的容读入并显示在文本框Text1中；单 击“修改容按钮，那么可把Text1中的大写字母“E、“N、“T改为 小写，把小写字母“e、“n、“t改为大写；单击“保存文件按钮， 那么弹出“另存为对话框，默认文件类型为“文本文件，默认目录为考生 目录，默认文件为“out5.txt
11、如图 2所示，单击“保存按钮，那么把 Text1中修改后的容存到out5.txt文件中。 窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符， 把程序中的 ？ 改为正确的容，并编写“修改容按钮的Click 事件过 程。 注意： 考生不得修改已经存在的程序。必须把Text1 中修改后的容用“保存文 件按钮存储结果，否那么无成绩。最后，按原文件名把程序存盘。解题思路： 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。 由于所提供的窗体程序不完整，需添加事件过程。 单击“修改容按钮即运行Click事件过程，在该Cl
12、ick事件过程中参加语句：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 s = s & UCase(ch) Else s = s & ch End If Next k Text1 = sEnd Sub 在“打开文件按钮的Private Sub Command1_Cl
13、ick()事件过程中，有三处地方需要修改。1) 将语句 CommonDialog1.FilterIndex = ? 改为 CommonDialog1.FilterIndex = 22) 将语句 Open ? For Input As #1 改为 Open CommonDialog1.FileName For Input As #13) 将语句 Text1.Text = ? 改为 Text1.Text = s 在“打开文件按钮的Private Sub Command3_Click()事件过程中，有三处地方需要修改。1) 将语句 CommonDialog1.Action = ? 改为 Common
14、Dialog1.Action = 2参考文件：c:wexam26990001hlpsys参考答案sjt5.vbp、sjt5.frm、sjt5.vbw、out5.dat请把这些文件复制到c:wexam26990001中，然后打开sjt5.vbp文件并运行。第48套：1. 根本操作2小题，每题15分，共计30分 注意：下面出现的“考生文件夹均为%USER%* 请根据以下各小题的要求设计Visual Basic应用程序包括界面和代码。 1在名称为Form1，标题为“框架的窗体上画一个名称为Frame1，且没有 标题的框架。框架含有二个单项选择按钮，名称分别为Opt1 和Opt2、标题 分别为“字体、
15、“大小。 注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名 为sjt1.frm。解题思路： 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个框架控件，通过其属性窗口将名称设为Frame1。在框架画二个单项选择按钮控件，通过其属性窗口将名称分别为Opt1和Opt2、标题Caption属性分别设为“字体和“大小。激活Form1窗体，通过其属性窗口将标题Caption属性设为“框架。参考文件：c:wexam26990001hlpsys参考答案sjt1.vbp、sjt1.frm、sjt1.vbw请把这些文件复制到c:wexam26990001中
16、，然后打开sjt1.vbp文件并运行。* 2考生文件夹下的工程文件sjt2.vbp中有一个由直线Line1、Line2和Line3 组成的三角形，直线Line1、Line2和Line3的坐标值如下所示： 名称 X1 Y1 X2 Y2 Line1 600 1200 1600 300 Line2 600 1200 2600 1200 Line3 1600 300 2600 1200 要求画一条直线Line4以构成三角形的高，且该直线的初始状态为不可见。 再画二个命令按钮，名称分别是Cmd1、Cmd2，标题分别为“显示高、“ 隐藏高，如下图。 请编写适当的事件过程使得在运行时，单击“显示高按钮，那么
17、显示三角 形的高；单击“隐藏高按钮，那么隐藏三角形的高。 注意： 要求程序中不得使用变量，每个事件过程只能写一条语句。不得修改已 经存在的控件，最后将修改后的文件按原文件名存盘。解题思路： 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt2.vbp，相应的窗体文件名为sjt2.frm。 由于所提供的窗体控件不完整，需在该窗体上画一根直线控件，通过其属性窗口将名称设为Line4，点X1属性设为1600，点X2属性分别设为1600，点Y1属性设为300，点Y2属性设为1200，Visible属性设为False。画二个命令按钮控件，通过其属性窗口将名称分别设为Cmd1和Cmd
18、2，标题Caption属性分别设为“显示高和“隐藏高。 单击“显示高按钮即运行Click事件过程，在该Private Sub Cmd1_Click()事件过程中参加语句：Private Sub Cmd1_Click() Line4.Visible = TrueEnd Sub 单击“隐藏高按钮即运行Click事件过程，在该Private Sub Cmd2_Click()事件过程中参加语句：Private Sub Cmd2_Click() Line4.Visible = FalseEnd Sub参考文件：c:wexam26990001hlpsys参考答案sjt2.vbp、sjt2.frm、sjt2
19、.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt2.vbp文件并运行。2. 简单应用2小题，每题20分，计40分 注意：下面出现的“考生文件夹均为%USER%* 1在考生文件夹下有一个工程文件sjt3.vbp，在Form1的窗体中有一个文本 框，二个命令按钮和一个计时器。程序的功能是在运行时，单击“开始计 数按钮，就开始计数，每隔1秒，文本框中的数加1；单击“停止计数 按钮，那么停止计数如下图。要求：修改适当的控件的属性，并去掉 程序中的注释符，把程序中的？改为正确的容，使其实现上述功能，但 不能修改程序中的其他局部。最后把修改后的文件以原来的文件名存盘。解题思路：
20、启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。 由于所提供的窗体控件属性不完整，通过属性窗口将计时器的Enabled属性设为False，Interval属性设为1000。 由于所提供的窗体程序不完整，在命令按钮的Private Sub C1_Click(Index As Integer)事件过程中，有二处地方需要修改。1) 将语句 Select Case ? 改为 Select Case Index2) 将语句 Case ? 改为 Case 0由于所提供的窗体程序不完整，在计时器的Private Sub Timer1_T
21、imer()事件过程中，有一处地方需要修改。1) 将语句 Text1.Text = Text1.Text ? 改为 Text1.Text = Text1.Text + 1参考文件：c:wexam26990001hlpsys参考答案sjt3.vbp、sjt3.frm、sjt3.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt3.vbp文件并运行。* 2出租车行驶不超过4公里时一律收费10元。超过4公里时分段处理，具 体处理方式为：15公里以每公里加收 1.2元，15公里以上每公里收 1.8 元。 在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是：单击“输入 按钮
22、，将弹出一个输入对话框，接收出租车行驶的里程数；单击“计算 按钮，那么可根据输入的里程数计算应付的出租车费，并将计算结果显示在 名称为Text1的文本框。 在窗体文件中已经给出了全部控件如下图，但程序不完整，要求去 掉程序中的注释符，把程序中的 ？改为正确的容。 注意： 不得修改已经存在的容和控件属性，最后将修改后的文件按原文件名 存盘。解题思路： 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。 由于所提供的窗体程序不完整，在Private Sub Command2_Click()事件过程中，有五处地方需要修改。1) 将
23、语句 Select Case ? 改为 Select Case s2) 将语句 ? 改为 f = 103) 将语句 f = 10 + ? 改为 f = 10 + (s - 4) * 1.24) 将语句 ? 改为 Case Else5) 将语句 f = 10 + ? + (s - 15) * 1.8 改为 f = 10 + (15 - 4) * 1.2 + (s - 15) * 1.8参考文件：c:wexam26990001hlpsys参考答案sjt4.vbp、sjt4.frm、sjt4.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt4.vbp文件并运行。*3. 综合应
24、用1小题，计30分 注意：下面出现的“考生文件夹均为%USER% 在考生文件夹下有一个工程文件sjt5.vbp，窗体上有二个标题分别是“读数 据和“统计的命令按钮。请画二个标签，名称分别为Label1和Label2， 标题分别为“出现次数最多的字母是和“它出现的次数为；再画二个名 称分别为Text1和Text2，初始值为空的文本框，如下图。 程序功能如下： 1单击“读数据按钮，那么将考生文件夹下in5.dat文件的容读到变量s 中此过程已给出； 2单击“统计按钮，那么自动统计in5.dat文件中所含各字母不区分大小 写出现的次数，并将出现次数最多的字母显示在Text1文本框，它所 出现的次数显
25、示在Text2文本框。“读数据按钮的Click 事件过程已经给出，请为“统计按钮编写适当的 事件过程实现上述功能。 注意： 考生不得修改窗体文件中已经存在的控件和程序，在完毕程序运行之前， 必须进展统计，且必须用窗体右上角的关闭按钮完毕程序，否那么无成绩。 最后，程序按原文件名存盘。解题思路： 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。 由于所提供的窗体控件不完整，需画二个标签控件，通过其属性窗口将名称分别设为Label1和Label2，标题Caption属性分别设为“出现次数最多的字母是和“它出现的次数为。画二个文
26、本框控件，通过其属性窗口将名称分别设为Text1和Text2，初始容Text属性均设为空。 由于所提供的窗体程序不完整，需在“统计命令按钮的Click事件过程中参加语句：Private Sub Command2_Click() 考生编写 Dim a(26) As Integer n = Len(s) For i = 1 To n c = UCase(Mid(s, i, 1) If c = A And c Max Then Max = a(i) t = Chr(Asc(A) + i - 1) End If Next i Text1.Text = t Text2.Text = MaxEnd Sub
27、参考文件：c:wexam26990001hlpsys参考答案sjt5.vbp、sjt5.frm、sjt5.vbw、out5.dat请把这些文件复制到c:wexam26990001中，然后打开sjt5.vbp文件并运行。第51套：1. 根本操作2小题，每题15分，共计30分 注意：下面出现的“考生文件夹均为%USER%* 请根据以下各小题的要求设计Visual Basic应用程序包括界面和代码。 1在名称为Form1，标题为“测试的窗体上画一个名称为Frame1、标题为“字体的框架。在框架画二个单项选择按钮，其名称分别为Opt1和Opt2、 标题分别为“隶书和“宋体。程序运行后的窗体如下图。 注
28、意： 存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名 为sjt1.frm。解题思路： 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个框架控件，通过其属性窗口将名称设为Frame1，标题Caption属性设为“字体。在框架画二个单项选择按钮控件，通过其属性窗口将名称分别设为Opt1和Opt2，标题Caption属性分别设为“隶书和“宋体。激活Form1窗体，通过其属性窗口将标题Caption属性设为“测试。参考文件：c:wexam26990001hlpsys参考答案sjt1.vbp、sjt1.frm、sjt1.vbw请把这些文件复制到c:we
29、xam26990001中，然后打开sjt1.vbp文件并运行。* 2在名称为Form1的窗体上用名称为shape1的形状控件画一个圆，其直径为 1000高、宽均为1000 ；再画二个命令按钮，标题分别是“垂直线 和“水平线，名称分别为 Command1、Command2，如下图。然后编写 两个命令按钮的Click事件过程。程序运行后，如果单击“垂直线命令 按钮，那么圆的部用垂直线填充；如果单击“水平线 命令按钮，那么圆 的部用水平线填充。 注意： 程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存 放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。解题思
30、路： 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个形状控件，通过其属性窗口将名称设为Shape1，高Height属性设为1000、宽Width属性设为1000，Shape属性设为3。画二个命令按钮控件，通过其属性窗口将名称分别设为Command1、Command2，标题Caption属性分别设为“垂直线和“水平线。 单击“垂直线按钮即运行Click事件过程，在该Click事件过程中参加语句：Private Sub Command1_Click() Shape1.FillStyle = 3End Sub 单击“水平线按钮即运行Click事件过程，在该Click事件
31、过程中参加语句：Private Sub Command2_Click() Shape1.FillStyle = 2End Sub参考文件：c:wexam26990001hlpsys参考答案sjt2.vbp、sjt2.frm、sjt2.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt2.vbp文件并运行。2. 简单应用2小题，每题20分，计40分 注意：下面出现的“考生文件夹均为%USER%* 1在考生文件夹下有一个工程文件sjt3.vbp，请在名称为Form1的窗体上画 一个名称为 Text1的文本框和一个名称为 C1，标题为“转换的命令按 钮，如下图。在程序运行时，单
32、击“转换 按钮，可以把 Text1中的 大写字母转换为小写，把小写字母转换为大写。 窗体文件中已经给出了“转换按钮的Click事件过程，但不完整，请去掉程序中的注释符，把 程序中的 ？改为正确的容。 注意： 不能修改程序中的其他局部。最后把修改后的文件按原文件名存盘。解题思路： 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。 由于所提供的窗体控件不完整，需在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1。画一个命令按钮控件，通过其属性窗口将名称设为C1，标题Caption属性设为“转换。 由于所提供的窗体程
33、序不完整，在命令按钮的Private Sub C1_Click()事件过程中，有三处地方需要修改。1) 将语句 n% = Asc(a) - Asc( ? ) 改为 n% = Asc(a) - Asc(A)2) 将语句 b$ = String(1, Asc(b$) ? ) 改为 b$ = String(1, Asc(b$) + 32)3) 将语句 Text1.Text = ? 改为 Text1.Text = a参考文件：c:wexam26990001hlpsys参考答案sjt3.vbp、sjt3.frm、sjt3.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt3.vbp
34、文件并运行。* 2在考生文件夹下有一个工程文件sjt4.vbp，其功能是： 1单击“读数据命令按钮，把考生文件夹下in4.dat文件中已按升序方 式排列的60个数读入数组A，并显示在Text1中； 2单击“输入按钮，弹出一个输入对话框，接收用户输入的任意一个 整数； 3单击“插入按钮，将输入的数插入A数组中适宜的位置，使其仍保持 A数组的升序排列，最后将A数组的容重新显示在Text1中。 在窗体文件中已经给出了全部控件如下图和程序，但程序不完整， 要求去掉程序中的注释符，把程序中的 ？改为正确的容。 本程序只考 虑插入一个整数的情况。 注意： 不得修改已经存在的容和控件属性，最后将修改后的文件
35、按原文件名 存盘。解题思路： 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。 由于所提供的窗体程序不完整，在“插入按钮的Private Sub Command3_Click()事件过程中，有五处地方需要修改。1) 将语句 If num a(i) Then ? 改为 If num a(i) Then Exit For2) 将语句 For j = 60 To i ? 改为 For j = 60 To i Step -13) 将语句 a(j + 1) = ? 改为 a(j + 1) = a(j)4) 将语句 ? = num 改
36、为 a(i) = num5) 将语句 For k = 1 To ? 改为 For k = 1 To 61参考文件：c:wexam26990001hlpsys参考答案sjt4.vbp、sjt4.frm、sjt4.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt4.vbp文件并运行。*3. 综合应用1小题，计30分 注意：下面出现的“考生文件夹均为%USER% 在考生文件夹下有一个工程文件sjt5.vbp， 其窗体上有二个标题分别为“ 读数据和“统计的命令按钮。请画二个标签，其名称分别是 Label1和 Label2， 标题分别为“单词的平均长度为和“最长单词的长度为；再 画二个名称分别为 Text1和Text2，初始容为空的文本框，如下图。
