启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画一个图象框控件, 通过其属性窗口将名称设为 Image1, 通过其 Picture 属性将 pic1.jpg 装入图片框,Stretch 属性设为 True 画二个命令按钮控件, 通过其属性窗口将名称分别设为 Comma

Transcription

1 二级 VB 上机试题汇编 第 01 套 : 1. 基本操作 (2 小题, 每小题 15 分, 共计 30 分 ) 请根据以下各小题的要求设计 Visual Basic 应用程序 ( 包括界面和代码 ) (1) 在名称为 Form1 的窗体上画一个名称为 Text1 的文本框, 其高 宽分别为 请在属性框中设置适当的属性满足以下要求 : 1)Text1 的字体为 黑体, 字号为 四号 ; 2) 窗体的标题为 输入, 不显示最大化按钮和最小化按钮 运行后的窗体如图所示 注意 : 存盘时必须存放在考生文件夹下, 工程文件名为 sjt1.vbp, 窗体文件名为 sjt1.frm 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画一个文本框控件, 通过其属性窗口将名称设为 Text1, 高 (Height 属性 ) 设为 400, 宽 (Width 属性 ) 设为 2000, 点击 Font 属性在弹出的字体对话框中将字体设为 黑体, 大小设为 四号 激活 Form1 窗体, 通过其属性窗口将标题 (Caption 属性 ) 设为 输入, 最大化按钮 (MaxButton 属性 ) 设为 False, 最小化按钮 (MinButton 属性 ) 设为 False 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt1.vbp sjt1.frm sjt1.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt1.vbp 文件并运行 (2) 在名称为 Form1 的窗体上画一个名称为 Image1 的图象框, 利用属性窗口装入考生目录下的图象文件 pic1.bmp, 并设置适当属性使其中的图象可以适应图象框大小 ; 再画两个命令按钮, 名称分别为 Command1 Command2, 标题分别为 向右移动 向下移动 请编写适当的事件过程, 使得在运行时, 每单击 向右移动 按钮一次, 图象框向右移动 100; 每单击 向下移动 按钮一次, 图象框向下移动 100 运行时的窗体如图所示 要求程序中不得使用变量, 事件过程中只能写一条语句 注意 : 存盘时必须存放在考生文件夹下, 工程文件名为 sjt2.vbp, 窗体文件名为 sjt2.frm 国家教育部考试中心题库 2 解题思路 :

2 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画一个图象框控件, 通过其属性窗口将名称设为 Image1, 通过其 Picture 属性将 pic1.jpg 装入图片框,Stretch 属性设为 True 画二个命令按钮控件, 通过其属性窗口将名称分别设为 Command1 Command2, 标题 (Caption 属性 ) 设为 向右移动 向下移动 单击 向右移动 按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Command1_Click() Image1.Left = Image1.Left 单击 向下移动 按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Command2_Click() Image1.Top = Image1.Top 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt2.vbp sjt2.frm sjt2.frx sjt2.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt2.vbp 文件并运行 2. 简单应用 (2 小题, 每题 20 分, 计 40 分 ) * (1) 在考生目录下有一个工程文件 sjt3.vbp, 窗体上有一个圆和一条直线 ( 直线的名称为 Line1) 构成一个钟表的图案 ; 有两个命令按钮, 名称分别为 Command1 Command2, 标题分别为 开始 停止 ; 还有一个名为 Timer1 的计时器 程序运行时, 钟表指针不动, 单击 开始 按钮, 则钟表上的指针 ( 即 Line1) 开始顺时针旋转 ( 每秒转 6, 一分钟转一圈 ); 单击 停止 按钮, 则指针停止旋转 运行时的窗体如图所示 请设置计时器的适当属性, 使得每秒激活计时器的 Timer 事件一次 ; 并编写两个按钮的 Click 事件过程 文件中已经给出了所有控件和部分程序, 不得修改已有程序和其它控件的属性 ; 编写的事件过程中不得使用变量, 且只能写一条语句 最后把修改后的文件按原文件名存盘 国家教育部考试中心题库 3 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt3.vbp, 相应的窗体文件名为 sjt3.frm 由于所提供的窗体控件不完整, 通过其属性窗口将计时器的 Enabled 属性设为 False,Interval 属性设为 1000 单击 开始 按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Command1_Click() Timer1.Enabled = True

3 单击 停止 按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Command2_Click() Timer1.Enabled = False 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt3.vbp sjt3.frm sjt3.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt3.vbp 文件并运行 (2) 在考生文件夹下有一个工程文件 sjt4.vbp, 窗体上有两个文本框 三个单选按钮和一个命令按钮 运行时, 在 Text1 中输入若干个大写和小写字母, 并选中一个单选按钮, 再单击 转换 按钮, 则按选中的单选按钮的标题进行转换, 结果放入 Text2( 如图所示 ) 在给出的窗体文件中已经给出了全部控件, 但程序不完整, 要求 : 去掉程序中的注释符, 把程序中的? 正确的内容 注意 : 不能修改程序中的其他部分 最后把修改后的文件按原文件名存盘 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt4.vbp, 相应的窗体文件名为 sjt4.frm 由于所提供的窗体程序不完整, 在命令按钮的 Private Sub Command1_Click() 事件过程中, 有三处地方需要修改 'a = Mid$(Text1.Text,?, 1) a = Mid$(Text1.Text, k, 1) 国家教育部考试中心题库 4 2) 将语句 'ch = ch +? ch = ch + LCase(a) 3) 将语句 'Text2 =? Text2 = ch 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt4.vbp sjt4.frm sjt4.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt4.vbp 文件并运行 3. 综合应用 (1 小题, 计 30 分 ) 在考生目录下有一个工程文件 sjt5.vbp 窗体中已经给出了所有控件 ( 如图所示 ) 请编写适当的事件过程完成以下功能 : 单击 读数 按钮, 则把考

4 生目录下的 in5.txt 文件中的一个整数放入 Text1; 单击 计算 按钮, 则计算出大于该数的第 1 个素数, 并显示在 Text2 中 ; 单击 存盘 按钮, 则把找到的素数存到考生目录下的 out5.txt 文件中 注意 : 在结束程序运行之前, 必须单击 存盘 按钮, 把结果存入 out5.txt 文件, 否则无成绩 最后把修改后的文件按原文件名存盘 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt5.vbp, 相应的窗体文件名为 sjt5.frm 由于所提供的窗体程序不完整, 需添加事件过程 单击 计算 按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Command2_Click() a% = CInt(Text1.Text) Do a% = a% + 1 Loop Until isprime(a%) Text2.Text = a% isprime 函数是判断参数是否为素数的, 函数中语句为 : Function isprime(a As Integer) Dim flag As Boolean k% = 2 flag = True While k% <= Int(a / 2) And flag If a / k% = Int(a / k%) Then flag = False End If 国家教育部考试中心题库 5 k% = k% + 1 Wend isprime = flag End Function 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt5.vbp sjt5.frm sjt5.vbw out5.txt 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt5.vbp 文件并运行 第 02 套 : 1. 基本操作 (2 小题, 每小题 15 分, 共计 30 分 ) 请根据以下各小题的要求设计 Visual Basic 应用程序 ( 包括界面和代码 ) (1) 在名称为 Form1 的窗体上用名称为 Shape1 的控件画一个圆, 其直径为 1500 ( 即宽 高均为 1500 ), 并设置适当属性, 使窗口标题为 圆, 窗体

5 标题栏上不显示最大化和最小化按钮 ( 如图所示 ) 注意 : 存盘时必须存放在考生文件夹下, 工程文件名为 sjt1.vbp, 窗体文件名为 sjt1.frm 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上用 Shape 图形控件画一个园, 通过其属性窗口将名称设为 Shape1, 高 (Height 属性 ) 设为 1500, 宽 (Width 属性 ) 设为 1500,Shape 属性设为 3 激活 Form1 窗体, 通过其属性窗口将标题 (Caption 属性 ) 设为 圆, 最大化按钮 (MaxButton 属性 ) 设为 False, 最小化按钮 (MinButton 属性 ) 设为 False 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt1.vbp sjt1.frm sjt1.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt1.vbp 文件并运行 (2) 在名称为 Form1 的窗体中建立一个弹出式菜单 ( 程序运行时不显示 ), 名称为 file, 含两个菜单项, 其名称分别为 open save, 标题分别为 打开 存盘 编写适当的事件过程 程序运行后, 如果用鼠标右键单击窗体, 则弹出此菜单 ( 如图所示 ) 注意 : 程序中不能使用变量 保存时必须存放在考生文件夹下, 工程文件名为 sjt2.vbp, 窗体文件名为 sjt2.frm 国家教育部考试中心题库 6 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上通过菜单编辑器建立一个主菜单, 在菜单编辑器的标题处为空, 名称处输入 file, 将 可见 单选按钮设为不选状态 在该菜单下有二个子菜单, 在菜单编辑器的标题处分别输入 打开 存盘, 名称处分别输入 open save 鼠标右键单击窗体 ( 即运行 MouseDown 事件过程 ), 在该 MouseDown 事件过程中加入语句 : Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu file End If 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt2.vbp sjt2.frm sjt2.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt2.vbp 文件并运行 2. 简单应用 (2 小题, 每题 20 分, 计 40 分 )

6 * (1) 在考生目录下有一个工程文件 sjt3.vbp, 窗体上有一个组合框 Combo1, 其中已经预设了内容 ; 还有一个文本框 Text1 和三个命令按钮, 名称分别为 Command1 Command2 Command3, 标题分别为 修改 确定 添加 程序运行时, 确定 按钮不可用, 如图所示 程序的功能是 : 在运行时, 如果选中组合框中的一个列表项, 单击 修改 按钮, 则把该项复制到 Text1 中 ( 可在 Text1 中修改 ), 并使 确定 按钮可用 ; 若单击 确定 按钮, 则把修改后的 Text1 中的内容替换组合框中该列表项的原有内容, 同时使 确定 按钮不可用 ; 若单击 添加 按钮, 则把在 Text1 中的内容添加到组合框中 所提供的窗体文件已经给出了所有控件和程序, 但程序不完整, 请去掉程序中的注释符, 把程序中的? 正确的内容 但不能修改程序中的其他部分, 也不能修改控件的属性 最后把修改后的文件按原文件名存盘 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt3.vbp, 相应的窗体文件名为 sjt3.frm 由于所提供的窗体控件不完整, 通过属性窗口将 确定 按钮的 Enabled 属性设为 False 由于所提供的窗体程序不完整, 在 修改 按钮的 Private Sub Command1_Click() 事件过程中, 有一处地方需要修改 'Command2.? = True 国家教育部考试中心题库 7 Command2.Enabled = True 在 确定 按钮的 Private Sub Command2_Click() 事件过程中, 有一处地方需要修改 'Combo1.List(? ) = Text1 Combo1.List(Combo1.ListIndex) = Text1 在 添加 按钮的 Private Sub Command3_Click() 事件过程中, 有一处地方需要修改 '? Text1 Combo1.AddItem Text1 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt3.vbp sjt3.frm sjt3.frx sjt3.vbw

7 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt3.vbp 文件并运行 (2) 在考生目录下有一个工程文件 sjt4.vbp, 窗体中的两个滚动条分别表示红灯亮和绿灯亮的时间 ( 秒 ), 移动滚动框可以调节时间, 调节范围为 1-10 秒 刚运行时, 红灯亮 单击 开始 按钮则开始切换 : 红灯到时后自动变为黄灯,1 秒后变为绿灯 ; 绿灯到时后自动变为黄灯,1 秒后变为红灯, 如此切换 ( 如图所示 ) 所提供的窗体文件已经给出了所有控件和程序, 但程序不完整, 请去掉程序中的注释符, 把程序中的? 正确的内容 提示 : 在三个图片框 picture1 picture2 picture3 中分别放置了红灯亮 绿灯亮 黄灯亮的图标, 并重叠在一起, 当要使某个灯亮时, 就使相应的图片框可见, 而其他图片框不可见, 并保持规定的时间, 时间到就切换为另一个图片框可见, 其他图片框不可见 注意 : 考生不得修改工程中已经存在的内容和控件属性, 最后把修改后的文件按原文件名存盘 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt4.vbp, 相应的窗体文件名为 sjt4.frm 由于所提供的窗体程序不完整, 在命令按钮的 Private Sub Command1_Click() 中, 有二处地方需要修改 '? = HScroll1.Value red = HScroll1.Value 2) 将语句 'Timer1.Enabled =? Timer1.Enabled = True 由于所提供的窗体程序不完整, 在计时器的 Private Sub Timer1_Timer() 中, 有二处地方需要修改 国家教育部考试中心题库 8 '?.Visible = False Picture1.Visible = False 2) 将语句 'green =? green = green - 1

8 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt4.vbp sjt4.frm sjt4.frx sjt4.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt4.vbp 文件并运行 3. 综合应用 (1 小题, 计 30 分 ) 在考生文件夹下有一个工程文件 sjt5.vbp, 相应的窗体文件是 sjt5.frm( 如图所示 ) 该程序的功能是 : 单击 读数 按钮, 读入考生文件夹下 in5.txt 文件中的一个整数, 并放入 Text1 中 ; 单击 计算 按钮, 则计算小于该数的最大素数, 并显示在 Text2 中 ; 单击 存盘 按钮, 则把该素数保存到考生文件夹下的 out5.txt 文件中 要求 : 1) 程序已给出 存盘 按钮的事件过程代码 读数 按钮的事件过程和判断 x 是否是素数的函数 prime(x) 不完整, 请去掉注释, 并在? 处填上正确的内容, 使程序完整 2) 编写 计算 按钮的事件过程 计算小于 Text1 中数据的最大素数 3) 请不要改动窗体上所有控件属性设置及相应的过程代码 最后将改动后的程序用原文件名保存 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt5.vbp, 相应的窗体文件名为 sjt5.frm 由于所提供的窗体程序不完整, 需添加事件过程 执行 计算 命令 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Command2_Click() n = Val(Text1.Text) For i = n To 2 Step -1 l = prime(i) If l = True Then Exit For End If Next Text2.Text = i 在 读数 按钮的 Private Sub Command1_Click() 中, 有一处地方需要修改 'Input #1,? 国家教育部考试中心题库 9 Input #1, a% 在函数 Function prime(x) As Boolean 中, 有一处地方需要修改 'prime =?

9 prime = flag 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt5.vbp sjt5.frm sjt5.vbw out5.txt 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt5.vbp 文件并运行 第 03 套 : 1. 基本操作 (2 小题, 每小题 15 分, 共计 30 分 ) 请根据以下各小题的要求设计 Visual Basic 应用程序 ( 包括界面和代码 ) (1) 在名称为 Form1 的窗体上画一个名称为 Frame1, 标题为 目的地 的框架, 在框架中添加三个复选框, 名称分别为 Check1 Check2 Check3, 其标题分别是 上海 广州 巴黎, 其中 上海 为选中状态, 广州 为未选状态, 巴黎 为灰色状态, 如图所示 请画控件并设置相应属性 注意 : 存盘时必须存放在考生文件夹下, 工程文件名为 sjt1.vbp, 窗体文件名为 sjt1.frm 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画一个框架控件, 通过其属性窗口将名称设为 Frame1, 标题 (Caption 属性 ) 设为 目的地 在 F1 框架中画三个复选框控件, 通过其属性窗口将名称分别设为 Check1 Check2 Check3, 标题 (Caption 属性 ) 分别设为 上海 广州 巴黎, 上海 的 Value 属性设为 1, 巴黎 的 Value 属性设为 2 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt1.vbp sjt1.frm sjt1.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt1.vbp 文件并运行 (2) 在名称为 Form1 的窗体上画一个名称为 Picture1 的图片框, 其宽和高分别为 请编写适当事件过程, 使得在运行时, 单击图片框, 则装入考生目录下的图形文件 pic1.bmp, 如图所示 单击窗体则图片框中的图形消失 要求程序中不得使用变量, 每个事件过程中只能写一条语句 注意 : 存盘时必须存放在考生文件夹下, 工程文件名为 sjt2.vbp, 窗体文件名 国家教育部考试中心题库 10 为 sjt2.frm 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画一个图片框, 通过其属性窗口将名称设为 Picture1, 宽度 (Width 属

10 性 ) 设为 1700, 高度 (Height 属性 ) 设为 1900 单击图片框 ( 即运行 Click 事件过程 ), 在 Click 事件过程中加入语句 :Picture1.Picture = LoadPicture("pic1.bmp"), 即将考生目录下的图形文件 pic1.bmp 装入图片框中 单击窗体 ( 即运行 Click 事件过程 ), 在 Click 事件过程中加入语句 :Picture1.Picture = LoadPicture(""), 即图片框中的图形消失 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt2.vbp sjt2.frm sjt2.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt2.vbp 文件并运行 2. 简单应用 (2 小题, 每题 20 分, 计 40 分 ) * (1) 在考生目录下有一个工程文件 sjt3.vbp, 窗体文件中已给出所有控件和部分程序, 如图所示 要求 : 1) 利用属性窗口设置适当的属性, 使 text1 text2 中数据右对齐 ; 2) 请编写适当的程序完成以下功能 : 在 Text1 中输入 40( 度数 ), 选择一个单选按钮, 单击 计算 按钮, 则根据所选择的单选按钮, 计算出相应的正弦 余弦值 ( 保留 3 位小数, 第 4 位截去,π 取 ), 并显示在 Text2 中 注意 : 考生不得修改窗体文件中已经存在的程序, 在结束程序运行之前, 必须进行一种计算, 在 Text1 中输入的必须是 40, 必须用窗体右上角的关闭按钮结束程序, 否则无成绩 最后, 程序按原文件名存盘 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt3.vbp, 相应的窗体文件名为 sjt3.frm 由于所提供的窗体控件不完整, 通过属性窗口将文本框的对齐格式 (Alignment 属性 ) 均设为 1 国家教育部考试中心题库 11 由于所提供的窗体程序不完整, 需添加事件过程 单击 计算 按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Command1_Click() If Option1.Item(0) = True Then Text2.Text = Format(Sin(Val(Text1.Text) * / 180), "0.000") End If If Option1.Item(1) = True Then Text2.Text = Format(Cos(Val(Text1.Text) * / 180), "0.000") End If

11 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt3.vbp sjt3.frm sjt3.vbw out3.txt 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt3.vbp 文件并运行 (2) 在考生文件夹下有一个工程文件 sjt4.vbp, 窗体上已经给出所有控件 程序运行时, 单击 开始 按钮, 则汽车图标向右运动 ; 单击 停止 按钮则汽车停止运动 ; 移动滚动条上的滚动框, 可以改变汽车的运动速度 ( 滚动框向右移动, 速度减慢 ) 如图所示 要求 : 去掉程序中的注释符, 把程序中的? 正确的内容 提示 : 窗体上有一个计时器, 计时器的事件过程每执行一次, 汽车向右移动 10, 程序通过改变计时器控件的 Interval 属性来改变汽车的运动速度 注意 : 不得修改控件的属性 最后, 按原文件名存盘 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt4.vbp, 相应的窗体文件名为 sjt4.frm 由于所提供的窗体程序不完整, 在 开始 按钮的 Private Sub Command1_Click() 事件过程中, 有一处地方需要修改 'Timer1.Enabled =? Timer1.Enabled = True 在滚动框的 Private Sub HScroll1_Change() 事件过程中, 有一处地方需要修改 '?.Interval = HScroll1.Value Timer1.Interval = HScroll1.Value 在计时器的 Private Sub Timer1_Timer() 事件过程中, 有一处地方需要修改 'Picture1.Left =? + 10 国家教育部考试中心题库 12 Picture1.Left = Picture1.Left + 10 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt4.vbp sjt4.frm sjt4.frx sjt4.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt4.vbp 文件并运行 3. 综合应用 (1 小题, 计 30 分 )

12 以下数列 :1,1,2,3,5,8,13,21,, 的规律是从第 3 个数开始, 每个数是它前面两个数之和 在考生目录下有一个工程文件 sjt5.vbp 窗体中已经给出了所有控件, 如图所示 请编写适当的事件过程实现以下功能 : 在 Text1 中输入整数 40, 单击 计算 按钮, 则在 Text2 中显示该数列第 40 项的值 ; 如果单击 存盘 按钮, 则将计算的第 40 项的值存到考生目录下的 out5.txt 文件中 ( 提示 : 因数据较大, 应使用 Long 型变量 ) 注意 : 在结束程序运行之前必须单击 存盘 按钮, 把结果存入 out5.txt 文件, 否则无成绩 最后把修改后的文件按原文件名存盘 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt5.vbp, 相应的窗体文件名为 sjt5.frm 由于所提供的窗体程序不完整, 需添加事件过程 单击 计算 按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Command1_Click() Dim f1, f2, f As Long Dim a(40) As Long f1 = 1 f2 = 1 a(1) = f1 a(2) = f2 For i = 3 To Val(Text1.Text) f = f1 + f2 a(i) = f f1 = f2 f2 = f Next Text2.Text = a(40) 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt5.vbp sjt5.frm sjt5.vbw out5.txt 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt5.vbp 文件并运行 第 04 套 : 1. 基本操作 (2 小题, 每小题 15 分, 共计 30 分 ) 国家教育部考试中心题库 13 请根据以下各小题的要求设计 Visual Basic 应用程序 ( 包括界面和代码 ) (1) 在名称为 Form1 的窗体上画一个名称为 Combo1 的组合框, 其宽度为 1200, 其类型如图所示 ( 即简单组合框 )

13 要求 : 1) 请按图中所示, 通过属性窗口输入 北京 上海 广州 深圳 2) 设置适当的属性, 使得运行时, 窗体的最大化按钮和最小化按钮消失 注意 : 存盘时必须存放在考生文件夹下, 工程文件名为 sjt1.vbp, 窗体文件名为 sjt1.frm 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画一个组合框控件, 通过其属性窗口将名称设为 Combo1, 宽 (Width 属性 ) 设为 1200,Style 属性设为 1, 向组合框中添加项目 (List 属性 ), 添加的项目分别为 北京 上海 广州 深圳, 每个项目为一行 激活 Form1 窗体, 通过其属性窗口将最大化按钮 (MaxButton 属性 ) 设为 False, 最小化按钮 (MinButton 属性 ) 设为 False 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt1.vbp sjt1.frm sjt1.frx sjt1.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt1.vbp 文件并运行 (2) 在名称为 Form1 的窗体上画两个文本框, 名称分别为 Text1 Text2, 再画两个命令按钮, 名称分别为 Command1 Command2, 标题分别为 左 右, 见图 2 要求 : 编写适当的事件过程, 使得程序运行时, 单击 左 按钮, 则焦点位于 Text1 上 ; 单击 右 按钮, 则焦点位于 Text2 上 注意 : 程序中不得使用变量, 事件过程中只能写一条语句 存盘时必须存放在考生文件夹下, 工程文件名为 sjt2.vbp, 窗体文件名为 sjt2.frm 国家教育部考试中心题库 14 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画二个文本框控件, 通过其属性窗口将名称分别设为 Text1 和 Text2 画二个命令按钮控件, 通过其属性窗口将名称分别设为 Command1 Command2, 标题 (Caption 属性 ) 分别设为 左 右 单击 左 按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Command1_Click() Text1.SetFocus

14 单击 右 按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Command2_Click() Text2.SetFocus 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt2.vbp sjt2.frm sjt2.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt2.vbp 文件并运行 2. 简单应用 (2 小题, 每题 20 分, 计 40 分 ) * (1) 在考生目录下有一个工程文件 sjt3.vbp, 窗体上有一个命令按钮 Command1 ( 标题为 下一个 ) 要求 : 在窗体上建立一个单选按钮数组 Option1, 含 4 个单选按钮, 标题分别为 选项 1 选项 2 选项 3 选项 4, 初始状态下, 选择 1 为选中状态 如图所示 窗体文件中已经给出了命令按钮的 Click 事件过程, 但不完整, 请去掉程序中的注释符, 把程序中的? 正确的内容, 使得每单击命令按钮一次, 就选中下一个单选按钮, 如果已经选中最后一个单选按钮, 再单击命令按钮, 则选中第 1 个单选按钮 注意 : 不能修改程序中的其他部分 最后把修改后的文件按原文件名存盘 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt3.vbp, 相应的窗体文件名为 sjt3.frm 由于所提供的窗体控件不完整, 需在该窗体上画一个单选按钮控件, 通过对单选按钮控件的复制产生单选按钮控件数组, 共有四个单选按钮, 标题 (Caption 属性 ) 分别设为 选项 1 选项 2 选项 3 选项 4, 选项 的 Value 属性设为 True 由于所提供的窗体程序不完整, 在 下一个 按钮的 Private Sub Command1_Click() 事件过程中, 有三处地方需要修改 'For k = 0 To? For k = 0 To 3 2) 将语句 'n =? 国家教育部考试中心题库 15 n = k

15 3) 将语句 'n =? n = 0 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt3.vbp sjt3.frm sjt3.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt3.vbp 文件并运行 (2) 在考生文件夹下有一个工程文件 sjt4.vbp, 窗体上已经画出所有控件 如图所示 在 Text1 文本框中输入一个任意的字符串 ( 要求串的长度 10), 然后选择组合框中的 3 个截取运算选项之一 单击 计算 按钮, 将截取运算后的结果显示在 Text2 中 窗体文件中已经给出了程序, 但不完整, 请去掉程序中的注释符, 把程序中的? 正确的内容 注意 : 不得修改已经给出的程序 最后把修改后的文件按原文件名存盘 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt4.vbp, 相应的窗体文件名为 sjt4.frm 由于所提供的窗体程序不完整, 在命令按钮的 Private Sub Command1_Click() 事件过程中, 有三处地方需要修改 'Select Case? Select Case Combo1.ListIndex 2) 将语句 'tmpstr = Mid(Trim(Text1.Text),? ) tmpstr = Mid(Trim(Text1.Text), 3, 4) 3) 将语句 'Text2.Text =? Text2.Text = tmpstr 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt4.vbp sjt4.frm sjt4.frx sjt4.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt4.vbp 文件并运行 3. 综合应用 (1 小题, 计 30 分 ) 以下数列 :1,1,3,5,9,15,25,41,, 的规律是从第 3 个数开始, 每个数是它前面两个数的和加 1 在考生目录下有一个工程文件 sjt5.vbp 窗体中已经给出了所有控件, 如图所示 请编写适当的事件过程实现以下功能 : 在 Text1 中输入整数 40, 单击

16 国家教育部考试中心题库 16 计算 按钮, 则在 Text2 中显示该数列第 40 项的值 如果单击 存盘 按钮, 则将计算的第 40 项的值存到考生目录下的 out5.txt 文件中 ( 提示 : 因数据较大, 应使用 Long 型变量 ) 注意 : 在结束程序运行之前, 必须单击 存盘 按钮, 把结果存入 out5.txt 文件, 否则无成绩 最后把修改后的文件按原文件名存盘 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt5.vbp, 相应的窗体文件名为 sjt5.frm 由于所提供的窗体程序不完整, 需添加事件过程 单击 计算 按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Command1_Click() Dim f As Long a(1) = 1 a(2) = 1 For i = 3 To Val(Text1.Text) f = a(i - 2) + a(i - 1) + 1 a(i) = f Next Text2.Text = f 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt5.vbp sjt5.frm sjt5.vbw out5.txt 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt5.vbp 文件并运行 第 05 套 : 1. 基本操作 (2 小题, 每小题 15 分, 共计 30 分 ) 请根据以下各小题的要求设计 Visual Basic 应用程序 ( 包括界面和代码 ) (1) 在名称为 Form1 的窗体上画一个名称 check1 的复选框数组 (Index 属性从 0 开始 ), 含三个复选框, 其标题分别为 语文 数学 体育, 利用属性窗口设置适当的属性, 使 语文 未选, 数学 被选中, 体育 为灰色, 再把窗体的标题设置为 选课, 如图所示 注意 : 存盘时必须存放在考生文件夹下, 工程文件名为 sjt1.vbp, 窗体文件名为 sjt1.frm 国家教育部考试中心题库 17 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体

17 在该窗体上画一个复选框控件, 通过对复选框控件的复制产生复选框控件数组, 共有三个复选框, 标题 (Caption 属性 ) 分别设为 语文 数学 体育, 数学 的 Value 属性设为 1, 体育 的 Value 属性设为 2 激活 Form1 窗体, 通过其属性窗口将标题 (Caption 属性 ) 设为 选课 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt1.vbp sjt1.frm sjt1.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt1.vbp 文件并运行 (2) 在名称为 Form1 的窗体上画两个文本框, 名称分别为 Text1 Text2, 再画两个命令按钮, 名称分别为 Command1 Command2, 标题分别为 复制 删除 程序运行时, 在 Text1 中输入一串字符, 并用鼠标拖拽的方法选择几个字符, 然后单击 复制 按钮, 则被选中的字符被复制到 Text2 中 ( 如图所示 ) 若单击 删除 按钮, 则被选择的字符从 Text1 中被删除 请编写两个命令按钮的 Click 过程完成上述功能 注意 : 要求程序中不得使用变量, 事件过程中只能写一条语句 存盘时必须存放在考生文件夹下, 工程文件名为 sjt2.vbp, 窗体文件名为 sjt2.frm 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画二个文本框控件, 通过其属性窗口将名称分别设为 Text1 Text2 画二个命令按钮控件, 通过其属性窗口将名称分别设为 Command1 Command2, 标题 (Caption 属性 ) 分别设为 复制 删除 单击 复制 按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Command1_Click() Text2 = Text1.SelText 单击 删除 按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Command2_Click() Text1.SelText = "" 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt2.vbp sjt2.frm sjt2.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt2.vbp 文件并运行 2. 简单应用 (2 小题, 每题 20 分, 计 40 分 ) 国家教育部考试中心题库 18 * (1) 在考生目录下有一个工程文件 sjt3.vbp, 包含了所有控件和部分程序, 如图所示

18 要求 : 1) 利用属性窗口设置适当的属性, 使 Text1 Text2 中数据右对齐 ; 2) 请编写适当的程序完成以下功能 : 在 Text1 中输入 40( 度数 ), 选择组合框中的一个项目, 单击 计算 按钮, 则根据所选择的项目, 计算出相应的正弦 余弦值 ( 保留 3 位小数, 第 4 位截去,π 取 ), 并显示在 Text2 中 注意 : 考生不得修改窗体文件中已经存在的程序, 在结束程序运行之前, 必须进行一种计算 ; 在 Text1 中输入的必须是 40; 必须用窗体右上角的关闭按钮结束程序, 否则无成绩 最后, 按原文件名存盘 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt3.vbp, 相应的窗体文件名为 sjt3.frm 对该窗体上的二个文本框, 通过其属性窗口将 Alignment 属性都设为 1 单击 计算 按钮 ( 即运行其 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Command1_Click() Const PI = Select Case Combo1.Text Case "sin": a = Sin(CInt(Text1.Text) * PI / 180) Case "cos": a = Cos(CInt(Text1.Text) * PI / 180) Case "tg": a = Tan(CInt(Text1.Text) * PI / 180) Case "ctg": a = 1 / Tan(CInt(Text1.Text) * PI / 180) End Select Text2 = Int(a * 1000) / 1000 另外特别注意需在 Text1 中输入的值必须是 40, 而且结束程序时必须用窗体右上角的关闭按钮来结束程序, 否则该部分将没有成绩 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt3.vbp sjt3.frm sjt3.frx sjt3.vbw out3.txt 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt3.vbp 文件并运行 (2) 在考生文件夹下有一个工程文件 sjt4.vbp, 窗体上已经画出所有控件 程序的作用是构成一个简单的时钟 刚运行时, 不计时, 选择一个单选按钮后, 再单击 计时 按钮, 则开始计时, 并根据所选的单选按钮决定是每秒显示一次秒数, 还是每 10 秒显示一次秒数 Text2 用于显示秒, 如图所示 窗体文件中已经给出了程序, 但不完整, 请去掉程序中的注释符, 把程序中的? 正确的内容 注意 : 不得修改已经给出的程序 最后把修改后的文件按原文件名存盘 国家教育部考试中心题库 19

19 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt4.vbp, 相应的窗体文件名为 sjt4.frm 由于所提供的窗体程序不完整, 在窗体的 Private Sub Timer1_Timer 事件过程中, 有三处地方需要修改 'num =? num = num + 1 2) 将语句 'Text2.Text = Text2.Text +? Text2.Text = Text2.Text ) 将语句 'Text1.Text = Text1.Text +? Text1.Text = Text1.Text + 1 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt4.vbp sjt4.frm sjt4.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt4.vbp 文件并运行 3. 综合应用 (1 小题, 计 30 分 ) 在考生文件夹下有一个工程文件 sjt5.vbp, 窗体上有两个图片框, 名称为 P1 P2, 分别用来表示信号灯和汽车, 其中在 P1 中轮流装入 黄灯.ico 红灯.ico 绿灯.ico 文件来实现信号灯的切换 ; 还有两个计时器 Timer1 和 Timer2,Timer1 用于变换信号灯, 黄灯 1 秒, 红灯 2 秒, 绿灯 3 秒 ;Timer2 用于控制汽车向左移动 运行时, 信号灯不断变换, 单击 开车 按钮后 汽车开始移动, 如果移动到信号灯前或信号灯下, 遇到红灯或黄灯, 则停止移动, 当变为绿灯后再继续移动 在窗体中已经给出了全部控件和程序, 但程序不完整, 要求阅读程序并去掉程序中的注释符, 把程序中的? 正确的内容, 使其实现上述功能, 但不能修改程序中的其他部分, 也不能修改控件的属性 最后把修改后的文件以原文件名存盘 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt5.vbp, 相应的窗体文件名为 sjt5.frm 由于所提供的窗体程序不完整, 在窗体的 Private Sub C1_Click() 事件过程中, 有一处地方需要修改 国家教育部考试中心题库 20

20 'Timer2.Enabled =? Timer2.Enabled = True 在窗体的 Private Sub Timer1_Timer() 事件过程中, 有一处地方需要修改 'P1.Picture = LoadPicture("?") P1.Picture = LoadPicture(" 绿灯.ico") 在窗体的 Private Sub Timer2_Timer() 事件过程中, 有二处地方需要修改 'Timer2.Enabled =? Timer2.Enabled = False 2) 将语句 'P2.Move? - 10, P2.Top, P2.Width, P2.Height P2.Move P2.Left - 10, P2.Top, P2.Width, P2.Height 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt5.vbp sjt5.frm sjt5.frx sjt5.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt5.vbp 文件并运行 第 06 套 : 1. 基本操作 (2 小题, 每小题 15 分, 共计 30 分 ) 请根据以下各小题的要求设计 Visual Basic 应用程序 ( 包括界面和代码 ) (1) 在名称为 Form1 的窗体上画两个命令按钮, 其名称分别为 C1 和 C2, 标题分别为 命令按钮 1 和 命令按钮 2, 通过属性窗口设计适当的属性, 使得程序运行后, 命令按钮 2 隐藏 编写适当的事件过程, 使得单击 命令按钮 1, 则 命令按钮 2 出现, 命令按钮 1 隐藏 ; 而如果单击 命令按钮 2, 则 命令按钮 1 出现, 命令按钮 2 隐藏 程序的运行情况如图所示 注意 : 程序中不得使用变量 存盘时必须存放在考生文件夹下, 工程文件名为 sjt1.vbp, 窗体文件名为 sjt1.frm 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画二个命令按钮控件, 通过其属性窗口将名称分别设为 C1 和 C2, 标题 (Caption 属性 ) 分别设为 命令按钮 1 和 命令按钮 2, 将 C2 的 Visible 属性为 False

21 单击命令按钮 1( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub C1_Clickk() C2.Visible = True C1.Visible = False 国家教育部考试中心题库 21 单击命令按钮 2( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub C2_Clickk() C1.Visible = True C2.Visible = False 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt1.vbp sjt1.frm sjt1.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt1.vbp 文件并运行 (2) 在名称为 Form1 的窗体上画一个列表框, 其名称为 L1; 一个水平滚动条, 其名称为 HS1,SmallChange 属性为 2, LargeChange 属性为 10,Min 属性为 0, Max 属性为 100, 编写适当的事件过程 程序运行后, 如果把滚动框移到某个位置, 然后单击窗体, 则在列表框中添加一个项目, 其内容是 xx, 其中 xx 是滚动框所在的位置, 如图所示 注意 : 程序中不要使用变量 ; 存盘时必须存放在考生文件夹下, 工程文件名为 sjt2.vbp, 窗体文件名为 sjt2.frm 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画一个列表框控件, 通过其属性窗口将名称设为 L1 画一个水平滚动条控件, 通过其属性窗口将名称设为 HS1,Min 属性设为 0,Max 属性设为 100,SmallChange 属性设为 2, LargeChange 属性设为 10 单击窗体 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Form_Click() L1.AddItem Str$(Form1.HS1) 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt2.vbp sjt2.frm sjt2.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt2.vbp 文件并运行 2. 简单应用 (2 小题, 每题 20 分, 计 40 分 ) * (1) 在考生文件夹下有一个工程文件 sjt3.vbp, 相应的窗体文件为 sjt3.frm, 在窗体上有一个命令按钮和一个文本框 程序运行后, 单击命令按钮, 即可计算出数组 arr 中每个元素与其下标相除所得的和, 并在文本框中显示出来 在窗体的代码窗口中, 已给出了部分程序, 其中计算数组 arr 中每个元

22 素与其下标相除所得的和的操作在通用过程 Fun 中实现, 请编写该过程的代码 要求 : 请勿改动程序中的其他部分, 只在 Function Fun() 和 End Function 之间 国家教育部考试中心题库 22 填入你编写的若干语句并运行程序 最后把修改后的文件按原文件名存盘 说明 : 数组 arr 中共有 40 个元素, 所谓 数组 arr 中每个元素与其下标相除所得的和, 指的是 : arr(1)/1 + arr(2)/2 + arr(3)/ arr(40)/40 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt3.vbp, 相应的窗体文件名为 sjt3.frm 由于提供的 Fun() 函数不完整, 需添加语句, 具体内容 : Function Fun(a() As Single) As Single Sum = 0 For i = 1 To UBound(a) Sum = Sum + a(i) / i Next i Fun = Sum End Function 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt3.vbp sjt3.frm sjt3.vbw out3.txt 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt3.vbp 文件并运行 (2) 在考生文件夹下有一个工程文件 sjt4.vbp, 相应的窗体文件为 sjt4.frm 在窗体上有两个命令按钮, 其名称分别为 Command1 Command2, 一个标签控件, 其名称为 Label1, 一个计时器控件, 其名称为 Timer1, 如图 1 所示 程序运行后, 在命令按钮 Command1 中显示 开始, 在命令按钮 Command2 中显示 停止, 在标签中用字体大小为 16 的粗体显示 热烈欢迎 ( 标签的 AutoSize 属性为 True ), 同时把计时器的 Interval 属性设置为 50, Enabled 属性设置为 True 此时如果单击 开始 命令按钮, 则该按钮变为禁用, 标题变为 继续, 同时标签自左至右移动, 每个时间间隔移动 20, 如图 2 所示, 移动出窗体右边界后, 自动从左边界开始向右移动 ; 如果单击 停止 命令按钮, 则该按钮变为禁用, 继续 命令按钮变为有效, 同时标签停止移动 ; 再次单击 继续 命令按钮后, 标签继续移动 这个程序不完整, 请把它补充完整, 并能正确运行 要求 : 去掉程序中的注释符, 把程序中的? 正确的内容, 使其实现上述功能, 但不能修改程序中的其他部分 最后把修改后的文件按原文件名存盘

23 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt4.vbp, 相应的窗体文件名为 sjt4.frm 由于所提供的窗体程序不完整, 在窗体的 Private Sub Command1_Click() 事件过程中, 有二处地方需要修改 国家教育部考试中心题库 23 'Timer1.Enabled =? Timer1.Enabled = True 2) 将语句 'Command1.Enabled =? Command1.Enabled = False 在窗体的 Private Sub Command2_Click() 事件过程中, 有一处地方需要修改 'Timer1.Enabled =? Timer1.Enabled = False 在窗体的 Private Sub Timer1_Timer() 事件过程中, 有一处地方需要修改 'Label1.Left =? Label1.Left = Label1.Left + 20 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt4.vbp sjt4.frm sjt4.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt4.vbp 文件并运行 3. 综合应用 (1 小题, 计 30 分 ) 在考生目录下有一个工程文件 sjt5.vbp 窗体中已经给出了所有控件 其功能是 : 单击 显示 命令按钮, 则把考生目录下的 in5.txt 文件中的所有字符放入 Text1( 可多行显示 ), 如图所示 ; 如果单击 统计 命令按钮, 则统计文本框中字母 A B C D 各自出现的次数, 并依次放到窗体变量 an,bn,cn,dn 之中 ( 放在其他变量中将无成绩 ); 如果单击 保存 命令按钮, 则把统计结果存入考生文件夹下的 out5.txt 文件中 文件中已给出了 显示 和 保存 按钮的 Click 事件过程 请编写 统计 按钮的 Click 事件过程 要求 : 统计每个字母出现的次数时, 不区分大小写 注意 :

24 不能修改已经给出的程序部分 ; 在结束程序运行之前, 必须单击 保存 按钮, 把结果存入 out5.txt 文件, 否则无成绩 最后把修改后的文件按原文件名存盘 解题思路 : 国家教育部考试中心题库 24 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt5.vbp, 相应的窗体文件名为 sjt5.frm 由于所提供的窗体程序不完整, 需添加事件过程 单击 统计 按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Command2_Click() n = Len(Text1) For k = 1 To n ch = Mid(Text1, k, 1) If UCase(ch) = "A" Then an = an + 1 End If If UCase(ch) = "B" Then bn = bn + 1 End If If UCase(ch) = "C" Then cn = cn + 1 End If If UCase(ch) = "D" Then dn = dn + 1 End If Next k Text1 = an & " " & bn & " " & cn & " " & dn 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt5.vbp sjt5.frm sjt5.frx sjt5.vbw out5.txt 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt5.vbp 文件并运行 第 07 套 : 1. 基本操作 (2 小题, 每小题 15 分, 共计 30 分 ) 请根据以下各小题的要求设计 Visual Basic 应用程序 ( 包括界面和代码 ) (1) 在名称为 Form1 的窗体上画一个标签, 其名称为 Label1, 标题为 等级考试,BorderStyle 属性为 1, 可以根据标题自动调整大小 ; 然后再画一个命令按钮, 其名称和标题均为 Command1, 编写适当的事件过程 程序运行后, 其界面如图 1 所示, 此时如果单击命令按钮, 则标签消失, 同时用标签的标题作为命令按钮的标题, 如图 2 所示

25 注意 : 存盘时必须存放在考生文件夹下, 工程文件名为 sjt1.vbp, 窗体文件名为 sjt1.frm 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画一个标签控件, 通过其属性窗口将名称设为 Label1, 标题 (Caption 属性 ) 设为 等级考试, 国家教育部考试中心题库 25 BorderStyle 属性为 1, 标题大小自动调整 (AutoSize 属性 ) 设为 True 画一个命令按钮控件, 通过其属性窗口将名称设为 Command1 单击命令按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Command1_Click() Command1.Caption = Label1 Label1.Visible = False 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt1.vbp sjt1.frm sjt1.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt1.vbp 文件并运行 (2) 在名称为 Form1 的窗体上画一个文本框, 其名称为 Text1, 初始内容为空白 ; 然后再画三个单选按钮, 其名称分别为 Op1 Op2 和 Op3, 标题分别为北京 西安和杭州, 编写适当的事件过程 程序运行后, 如果选择单选按钮 Op1, 则在文本框中显示 颐和园 ; 如果选择单选按钮 Op2, 则在文本框中显示 兵马俑 ; 如果选择单选按钮 Op3, 则在文本框中显示 西湖 程序的运行情况如图所示 要求程序中不得使用变量, 事件过程中只能写一条语句 注意 : 存盘时必须存放在考生文件夹下, 工程文件名为 sjt2.vbp, 窗体文件名为 sjt2.frm 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画一个文本框控件, 通过其属性窗口将名称设为 Text1, 文本内容 (Text 属性 ) 设为空 画三个单选按钮控件, 通过属性窗口将名称设为 Op1 Op2 Op3, 标题 (Caption 属性 ) 分别设为 北京 西安 杭州 选择单选按钮 Op1( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Op1_Click() Text1 = " 颐和园 "

26 选择单选按钮 Op2( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Op2_Click() Text1.Text = " 兵马俑 " 选择单选按钮 Op3( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Op3_Click() Text1.Text = " 西湖 " 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt2.vbp sjt2.frm sjt2.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt2.vbp 文件并运行 2. 简单应用 (2 小题, 每题 20 分, 计 40 分 ) 国家教育部考试中心题库 26 * (1) 在考生文件夹下有一个工程文件 sjt3.vbp, 相应的窗体文件为 sjt3.frm 在窗体上有一个名称为 Command1 标题为 计算 的命令按钮 ; 两个水平滚动条, 名称分别为 Hscroll1 和 Hscroll2, 其 Max 属性均为 100,Min 属性均为 1; 四个标签, 名称分别为 Label1 Label2 Label3 和 Label4, 标题分别为 运算数 1 运算数 2 运算结果 和空白 ; 此外还有一个包含四个单选按钮的控件数组, 名称为 Option1, 标题分别为 + - * 和 /, 如图 1 所示 程序运行后, 移动两个滚动条中的滚动框, 用滚动条的当前值作为运算数, 如果选中一个单选钮, 然后单击命令按钮, 相应的计算结果将显示在 Label4 中, 程序运行情况如图 2 所示 这个程序不完整, 请把它补充完整, 并能正确运行 要求 : 去掉程序中的注释符, 把程序中的? 正确的内容, 使其能正确运行, 但不能修改程序中的其他部分, 也不能修改控件的属性 最后用原来的文件名保存工程文件和窗体文件 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt3.vbp, 相应的窗体文件名为 sjt3.frm 由于所提供的窗体程序不完整, 在窗体的 Private Sub Command1_Click() 事件过程中, 有三处地方需要修改 'If? = True Then If Option1(i) = True Then 2) 将语句

27 国家教育部考试中心题库 27 'Select Case? Select Case opt 3) 将语句 '? = Str(HScroll1.Value) & " " & opt & Str(HScroll2.Value) & " =" & Str(Result) Label4 = Str(HScroll1.Value) & " " & opt & Str(HScroll2.Value) & " =" & Str(Result) 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt3.vbp sjt3.frm sjt3.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt3.vbp 文件并运行 (2) 在考生文件夹下有一个工程文件 sjt4.vbp, 相应的窗体文件为 sjt4.frm 在窗体上有一个命令按钮, 其名称为 Command1, 标题为 输入 / 显示 ; 此外还有一个文本框, 其名称为 Text1, 初始内容为空白 程序的功能是, 程序运行后, 单击命令按钮, 显示输入对话框, 在对话框中输入某个月份的数值 (1~12), 然后单击 确定 按钮, 即可在文本框中输出该月份所在的季节 例如输入 5, 将输出 5 月份是夏季, 如图所示 该程序不完整, 请把它补充完整 要求 : 去掉程序中的注释符, 把程序中的? 正确的内容, 使其能正确运行, 但不能修改程序中的其他部分 最后用原来的文件名保存工程文件和窗体文件 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt4.vbp, 相应的窗体文件名为 sjt4.frm 由于所提供的窗体程序不完整, 在窗体的 Private Sub Command1_Click() 事件过程中, 有三处地方需要修改 'Loop Until? And n < 13 Loop Until n > 0 And n < 13 2) 将语句 'Select Case? Select Case n 3) 将语句 'Select Case? Select Case m 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt4.vbp sjt4.frm sjt4.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt4.vbp 文件并运行

28 3. 综合应用 (1 小题, 计 30 分 ) 国家教育部考试中心题库 28 在考生的文件夹下有一个工程文件 sjt5.vbp, 相应的窗体文件为 sjt5.frm 在窗体上有两个命令按钮, 其名称分别为 Command1 和 Command2, 标题分别为 写文件 和 读文件, 如图 1 所示 其中 写文件 命令按钮事件过程用来建立一个通信录, 以随机存取方式保存到文件 t5.txt 中 ; 而 读文件 命令按钮事件过程用来读出文件 t5.txt 中的每个记录, 并在窗体上显示出来 通信录中的每个记录由 3 个字段组成, 结构如下 : 姓名 (Name) 电话 (Tel) 邮政编码 (Pos) LiuMingliang (010) 各字段的类型和长度为 : 姓名 (Name): 字符串 15 电话 (Tel): 字符串 15 邮政编码 (Pos) 长整型 (Long) 程序运行后, 如果单击 写文件 命令按钮, 则可以随机存取方式打开文件 t5.txt, 并根据提示向文件中添加记录, 每写入一个记录后, 都要询问是否再输入新记录, 回答 Y ( 或 y ) 则输入新记录, 回答 N ( 或 n ) 则停止输入 ; 如果单击 读文件 命令按钮, 则可以随机存取方式打开文件 t5.txt, 读出文件中的全部记录, 并在窗体上显示出来, 如图 2 所示 该程序不完整, 请把它补充完整 要求 : 1) 去掉程序中的注释符, 把程序中的? 正确的内容, 使其能正确运行, 但不能修改程序中的其他部分 2) 文件 t5.txt 中已有 3 个记录 ( 如图 2 所示 ), 请运行程序, 单击 写文件 命令按钮, 向文件 t5.txt 中添加以下两个记录 ( 全部采用西文方式 ): LiDaqing (027) ChenQingshan (022) ) 运行程序, 单击 读文件 命令按钮, 在窗体上显示全部记录 ( 共 5 个 ) 4) 用原来的文件名保存工程文件和窗体文件 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt5.vbp, 相应的窗体文件名为 sjt5.frm 由于所提供的窗体程序不完整, 在命令按钮的 Private Sub Command1_Click() 事件过程中, 有三处地方需要修改

29 'RecNum =? RecNum = RecNum + 1 国家教育部考试中心题库 29 2) 将语句 'Put #1,? Put #1, RecNum, Pers 3) 将语句 'Loop While UCase(asp)? Loop While UCase(asp) <> "N" 由于所提供的窗体程序不完整, 在命令按钮的 Private Sub Command2_Click() 事件过程中, 有二处地方需要修改 'RecNum =? RecNum = LOF(1) / Len(Pers) 2) 将语句 'Get #1,? Get #1, i, Pers 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt5.vbp sjt5.frm sjt5.frx sjt5.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt5.vbp 文件并运行 第 08 套 : 1. 基本操作 (2 小题, 每小题 15 分, 共计 30 分 ) 请根据以下各小题的要求设计 Visual Basic 应用程序 ( 包括界面和代码 ) (1) 在名称为 Form1 的窗体上画一个文本框, 其名称为 T1, 宽度和高度分别为 1400 为 400; 再画两个命令按钮, 其名称分别为 C1 和 C2, 标题分别为 显示 和 扩大, 编写适当的事件过程 程序运行后, 如果单击 C1 命令按钮, 则在文本框中显示 等级考试, 如图 1 所示 ; 如果单击 C2 命令按钮, 则使文本框在高 宽方向上各增加一倍, 文本框中的字体大小扩大到原来的 3 倍, 如图 2 所示 注意 : 要求程序中不得使用变量 存盘时必须存放在考生文件夹下, 工程文件名为 sjt1.vbp, 窗体文件名

30 为 sjt1.frm 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 国家教育部考试中心题库 30 在该窗体上画一个文本框控件, 通过其属性窗口将名称设为 T1, 高 (Height 属性 ) 设为 400, 宽 (Width 属性 ) 设为 1400 画二个命令按钮控件, 通过其属性窗口将名称分别设为 C1 C2, 标题 (Caption 属性 ) 分别设为 显示 扩大 单击 显示 按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub C1_Click() T1 = " 等级考试 " 单击 扩大 按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub C2_Click() T1.Height = 2 * Me.T1.Height T1.Width = 2 * T1.Width T1.FontSize = 3 * Form1.T1.FontSize 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt1.vbp sjt1.frm sjt1.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt1.vbp 文件并运行 (2) 在名称为 Form1 的窗体上画一个命令按钮, 其名称为 C1, 标题为 转换 ; 然后再画两个文本框, 其名称分别为 Text1 和 Text2, 初始内容均为空白, 编写适当的事件过程 程序运行后, 在 Text1 中输入一行英文字符串, 如果单击命令按钮, 则 Text1 文本框中的字母都变为小写, 而 Text2 中的字母都变为大写 例如, 在 Text1 中输入 Visual Basic Programming, 则单击命令按钮后, 结果如图所示 要求 : 不得使用任何变量 * 注意 : 存盘时必须存放在考生文件夹下, 工程文件名为 sjt2.vbp, 窗体文件名为 sjt2.frm 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画一个命令按钮控件, 通过其属性窗口将名称设为 C1, 标题 (Caption 属性 ) 设为 转换 画二个文本框控件, 通过其属性窗口将名称分别设为 Text1 Text2,Text 属性均设为空 单击 转换 按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub C1_Click()

31 Text1.Text = LCase(Text1.Text) Text2.Text = UCase(Text1.Text) 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt2.vbp sjt2.frm sjt2.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt2.vbp 文件并运行 2. 简单应用 (2 小题, 每题 20 分, 计 40 分 ) 国家教育部考试中心题库 31 * (1) 在考生文件夹下有一个工程文件 sjt3.vbp, 相应的窗体文件为 sjt3.frm, 包含了所有控件和部分程序, 如图所示 要求 : 1) 利用属性窗口向列表框添加四个项目 : Visual Basic,Turbo C, C++,Java; 2) 请编写适当的程序完成以下功能 : 当选择列表框中的一项和单选按钮 Option1, 然后单击 确定 命令按钮, 则文本框中显示 XXX 笔试 ; 当选择列表框中的一项和单选按钮 Option2, 然后单击 确定 命令按钮, 则文本框中显示 XXX 上机 其中 XXX 是在列表框中所选择的项目 注意 : 考生不得修改窗体文件中已经存在的程序, 退出程序时必须通过单击窗体右上角的关闭按钮 在结束程序运行之前, 必须至少要进行一次选择操作 ( 包括列表框和单选按钮 ), 否则不得分 最后把修改后的文件按原文件名存盘 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt3.vbp, 相应的窗体文件名为 sjt3.frm 由于所提供的窗体控件不完整, 向列表框控件添加项目 (List 属性 ), 添加的项目分别为 Visual Basic, Turbo C,C++,Java, 每个项目为一行 由于所提供的窗体程序不完整, 单击 确定 命令按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Command1_Click() If Option1.Value And List1.Text <> "" Then Text1.Text = List1.Text & Option1.Caption Else If Option2.Value And List1.Text <> "" Then Text1.Text = List1.Text & Option2.Caption End If End If

32 另外需注意 : 在结束程序运行之前, 必须至少要进行一次选择操作 ( 包括列表框和单选按钮 ), 退出程序时需单击窗体右上角的关闭按钮, 这样就运行了 Private Sub Form_Unload(Cancel As Integer) 事件过程 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt3.vbp sjt3.frm sjt3.frx sjt3.vbw out3.txt 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt3.vbp 文件并运行 (2) 在考生文件夹下有一个工程文件 sjt4.vbp, 相应的窗体文件为 sjt4.frm 在窗体上有一个命令按钮, 其名称为 Command1, 标题为 计算并输出 程序运行后, 如果单击命令按钮, 程序将计算 500 以内两个数之间 ( 包括开头和结尾的数 ) 所有连续数的和为 1250 的正整数, 并在窗体上显示出来 这样的数有多组, 程序输出每组开头和结尾的正整数, 并用 ~ 国家教育部考试中心题库 32 连接起来, 如图所示 该程序不完整, 请把它补充完整 要求 : 去掉程序中的注释符, 把程序中的? 正确的内容, 使其能正确运行, 但不能修改程序中的其他部分 最后用原来的文件名保存工程文件和窗体文件 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt4.vbp, 相应的窗体文件名为 sjt4.frm 由于所提供的窗体程序不完整, 在窗体的 Private Sub Command1_Click() 事件过程中, 有三处地方需要修改 'isum =? isum = 0 2) 将语句 'isum =? isum = isum + j 3) 将语句 'If isum =? Then If isum = 1250 Then 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt4.vbp sjt4.frm sjt4.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt4.vbp 文件并运行

33 3. 综合应用 (1 小题, 计 30 分 ) 在窗体上画一个文本框, 其名称为 Text1, 初始内容为空白, 并设置成多行显示格式 ; 然后再画两个命令按钮, 其名称分别为 Command1 和 Command2, 标题分别为 显示 和 保存, 如图所示, 编写适当的事件过程 程序运行后, 如果单击 显示 命令按钮, 则读取考生文件夹下的 in5.txt 文件, 并在文本框中显示出来, 该文件是一个用随机存取方式建立的文件, 共有 5 个记录, 要求按记录号顺序显示全部记录, 每个记录一行 ; 如果单击 保存 命令按钮, 则把所有记录保存到考生文件夹下的顺序文件 out5.txt 中 随机文件 in5.txt 中的每个记录包括 3 个字段, 分别为姓名 性别和年龄, 其名称和长度分别为 : Name 字符串 8 Sex 字符串 4 Age Integer 其类型定义为 : Private Type StudInfo Name As String * 8 Sex As String * 4 Age As Integer End Type 国家教育部考试中心题库 33 要求 : 1) 文件 out5.txt 以顺序存取方式建立和保存 2) 存盘时必须存放在考生文件夹下, 工程文件名为 sjt5.vbp, 窗体文件名为 sjt5.frm 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt5.vbp, 相应的窗体文件名为 sjt5.frm 在该窗体上画一个文本框控件, 通过其属性窗口将名称设为 Text1, 文本内容 (Text 属性 ) 设为空, 多行 (MultiLine 属性 ) 设为 True 画二个命令按钮控件, 通过其属性窗口将名称分别设为 Command1 Command2, 标题 (Caption 属性 ) 分别设为 显示 保存 单击 显示 按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Command1_Click() Dim RecNum As Long Open App.Path & "\in5.txt" For Random As #1 Len = Len(Stud) RecNum = 1 Do While Not EOF(1) Get #1, RecNum, Stud Text1.Text = Text1.Text & Stud.Name

34 Text1.Text = Text1.Text & Stud.Sex Text1.Text = Text1.Text & Str(Stud.Age) Text1.Text = Text1.Text + vbcrlf RecNum = RecNum + 1 Loop Close 1 单击 保存 按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Command2_Click() Open App.Path & "\out5.txt" For Output As #1 Print #1, Text1.Text Close 1 声明部分定义一个存放 姓名 性别 和 年龄 纪录的结构, 具体内容 : Private Type StudInfo Name As String * 8 Sex As String * 4 Age As Integer End Type 在声明部分还定义一个结构变量, 其语句 : Dim Stud As StudInfo 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt5.vbp sjt5.frm sjt5.vbw out5.txt 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt5.vbp 文件并运行 第 09 套 : 1. 基本操作 (2 小题, 每小题 15 分, 共计 30 分 ) 国家教育部考试中心题库 34 请根据以下各小题的要求设计 Visual Basic 应用程序 ( 包括界面和代码 ) (1) 在名称为 Form1 的窗体上画两个命令按钮, 其名称分别为 Command1 和 Command2, 标题分别为 扩大 和 移动 如图所示, 编写适当的事件过程 程序运行后, 如果单击 Command1 命令按钮, 则使窗体在高 宽方向上各增加 0.2 倍 ( 变为原来的 1.2 倍 ); 如果单击 Command2 命令按钮, 则使窗体向右移动 200, 向下移动 100 要求 : 程序中不得使用变量 存盘时必须存放在考生文件夹下, 工程文件名为 sjt1.vbp, 窗体文件名为 sjt1.frm 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 该窗体上画二个命令按钮控件, 通过其属性窗口将名称分别设为 Command1

35 Command2, 标题 (Caption 属性 ) 分别设为 扩大 和 移动 单击 扩大 按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Command1_Click() Height = 1.2 * Height Width = Width * 1.2 单击 移动 按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Command2_Click() Left = Left Top = Top 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt1.vbp sjt1.frm sjt1.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt1.vbp 文件并运行 (2) 在名称为 Form1 的窗体上画一个标签, 其名称为 Label1, 标题为 计算机等级考试,Left 属性为 0; 再画一个水平滚动条, 其名称为 HScroll1, 在属性窗口中设置其属性如下 : Min 0 Max 3000 SmallChange 10 LargeChange 100 编写适当的事件过程 程序运行后, 如果移动滚动条上的滚动框, 则可使标签向相应的方向移动, 标签距窗体左边框的距离等于滚动框的位置, 程序的运行情况如图所示 要求 : 国家教育部考试中心题库 35 程序中不得使用变量, 每个事件过程中只能写一条语句 注意 : 存盘时必须存放在考生文件夹下, 工程文件名为 sjt2.vbp, 窗体文件名为 sjt2.frm 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画一个标签控件, 通过其属性窗口将名称设为 Label1, 标题 (Caption 属性 ) 设为 计算机等级考试,Left 属性设为 0 画一个水平滚动条控件, 通过其属性窗口将名称设为 HScroll1,Min 属性设为 0,Max 属性设为 3000,SmallChange 属性设为 10,LargeChange 属性设为 100 移动滚动条上的滚动框 ( 即运行 Scroll 事件过程 ), 在该 Scroll 事件过程中加入语句 : Private Sub HScroll1_Scroll()

36 Label1.Left = Form1.HScroll1 单击滚动条上的方向按钮 ( 即运行 Click 事件过程 ) 也能实现题目所要求的功能, 在该 Click 事件过程中加入语句 : Private Sub HScroll1_Change() Label1.Left = Me.HScroll1 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt2.vbp sjt2.frm sjt2.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt2.vbp 文件并运行 2. 简单应用 (2 小题, 每题 20 分, 计 40 分 ) * (1) 在名称为 Form1 的窗体上画一个计时器, 其名称为 Timer1; 再画一个图像框, 其名称为 Image1, 在该图像框中装入一个图形文件 pic.ico; 然后画一个水平滚动条, 其名称为 HScroll1, Min 属性值为 100,Max 属性值为 1200,LargeChange 属性值为 100,SmallChange 属性值为 25, 编写适当的事件过程 程序运行后, 可以使图像框闪烁, 其闪烁速度可以通过滚动条调节 提示 : 图像框的闪烁可以通过图像框交替地显示和隐藏来实现 要求 : 程序中不得使用变量, 每个事件过程中只能写一条语句 注意 : 存盘时必须存放在考生文件夹下, 工程文件名为 sjt3.vbp, 窗体文件名为 sjt3.frm 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画一个计时器控件, 通过其属性窗口将名称设为 Timer1 画一个图像框, 通过其属性窗口将名称设为 Image1, 通过 Picture 属性将图形文件 pic.ico 装入 画一个水平滚动条, 通过其属性窗口将名称设为 HScroll1,Min 属性设为 100,Max 属性设为 1200,LargeChange 属性设为 100, SmallChange 属性设为 25 点击滚动条 ( 即运行 Change 事件过程 ), 在 Change 事件过程中加入语句 : Timer1.Interval = HScroll1.Value 还需在计时器的 Timer 事件过程中加入语句 :Image1.Visible = Not Image1.Visible, 即完 国家教育部考试中心题库 36 成了图像框交替地显示和隐藏功能

37 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt3.vbp sjt3.frm sjt3.frx sjt3.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt3.vbp 文件并运行 (2) 在考生目录下有一个工程文件 sjt4.vbp, 包含了所有控件和部分程序, 如图所示 要求 : 1) 利用属性窗口设置适当的属性 : 为 List1 列表框添加 3 个项目 : 宋体 黑体 楷体 _GB2312;Text1 文本框设置初始值为 计算机 ;Hscroll1 水平滚动条设置最小值和最大值分别为 10 和 50 2) 去掉程序中的注释符, 把程序中的? 正确的内容, 完成以下功能 : 如果在列表框中选择一种字体, 然后移动滚动条中的滚动框, 则可使文本框中的文字按所选择的字体显示, 并可随着滚动框的移动放大或缩小 ; 如果不选择字体直接移动滚动框, 则显示一个信息框, 提示 请选择字体 注意 : 去掉程序中的注释符, 把程序中的? 正确的内容, 使其实现上述功能, 但不能修改程序中的其他部分 最后把修改后的文件按原文件名存盘 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt4.vbp, 相应的窗体文件名为 sjt4.frm 由于所提供的窗体控件不完整, 通过属性窗口向列表框中添加项目 (List 属性 ), 添加的项目分别为 : 宋体 黑体 楷体 _GB2312, 每个项目为一行 通过属性窗口将文本内容 (Text 属性 ) 设为 计算机 通过属性窗口将水平滚动条最小值 (Min 属性 ) 设为 10, 最大值 (Max 属性 ) 设为 50 由于所提供的窗体程序不完整, 在水平滚动条的 Private Sub HScroll1_Change() 事件过程中, 有二处地方需要修改 'Text1.FontSize =? Text1.FontSize = HScroll1.Value 2) 将语句 'Text1.FontName =? Text1.FontName = List1.Text 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt4.vbp sjt4.frm sjt4.frx sjt4.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt4.vbp 文件并运行

38 3. 综合应用 (1 小题, 计 30 分 ) 国家教育部考试中心题库 37 在考生文件夹下有一个工程文件 sjt5.vbp, 已给出了部分控件和部分程序 程序运行时, 请在窗体上画三个标签, 其名称分别为 Label1 Label2 和 Label3, 标题分别为 姓名 电话号码 和 邮政编码 再画三个文本框, 其名称分别为 Text1 Text2 和 Text3, 初始内容均为空白, 如图所示 程序运行后, 如果单击 显示第三个记录 命令按钮, 则读取考生文件夹下 in5.txt 文件中的第三个记录, 将该记录的三个字段分别显示在三个文本框中 ( 该文件是一个用随机存取方式建立的文件, 共有 5 个记录 ) 单击 保存 按钮, 则把该记录 ( 三个字段 ) 保存到考生文件夹下的顺序文件 out5.txt 中 请编写 显示第三个记录 按钮的 Click 事件过程, 以实现上述功能 注意 : 考生不得修改已经存在的程序, 必须用 保存 按钮存储结果, 否则无成绩 最后, 按原文件名把程序存盘 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt5.vbp, 相应的窗体文件名为 sjt5.frm 在该窗体上画三个标签控件, 通过其属性窗口将名称分别设为 Label1 Label2 和 Label3, 标题 (Caption 属性 ) 分别设为 姓名 电话号码 和 邮政编码 画三个文本框控件, 通过其属性窗口将名称分别设为 Text1 Text2 和 Text3, 文本内容 (Text 属性 ) 均设为空 单击 显示第三个记录 按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Command1_Click() Dim Pal As Paltype Open App.Path & "\in5.txt" For Random As #1 Len = Len(Pal) Get #1, 3, Pal Text1.Text = Pal.Name Text2.Text = Pal.Tel Text3.Text = Str(Pal.Post) Close 1 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt5.vbp sjt5.frm sjt5.vbw out5.txt 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt5.vbp 文件并运行 第 10 套 : 1. 基本操作 (2 小题, 每小题 15 分, 共计 30 分 )

39 请根据以下各小题的要求设计 Visual Basic 应用程序 ( 包括界面和代码 ) (1) 在名称为 Form1 的窗体上画一个水平滚动条, 其名称为 HScroll1,Min 属性为 1000,Max 属性为 1500,LargeChange 属性为 50,SmallChange 属性为 2; 然后再画一个文本框, 其名称为 Text1, 初始内容为空白, 编写适当的事 国家教育部考试中心题库 38 件过程 程序运行后, 移动滚动框, 则在文本框中显示滚动框的当前位置 程序的运行情况如图所示 要求 : 1) 不得使用任何变量 2) 存盘时必须存放在考生文件夹下, 工程文件名为 sjt1.vbp, 窗体文件名为 sjt1.frm 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画一个水平滚动条控件, 通过其属性窗口将名称设为 HScroll1, 将 Min 属性设为 1000, 将 Max 属性设为 1500, 将 LargeChange 属性设为 50, 将 SmallChange 属性设为 2 画一个文本框控件, 通过其属性窗口将名称设为 Text1, 文本内容 (Text 属性 ) 设为空白移动滚动框 ( 即运行 Change 事件过程 ), 在该 Change 事件过程中加入语句 : Private Sub HScroll1_Change() Text1 = HScroll1 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt1.vbp sjt1.frm sjt1.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt1.vbp 文件并运行 (2) 在名称为 Form1 的窗体上画一个命令按钮, 其名称为 C1, 标题为 移动, 位于窗体的左上部, 如图 1 所示, 编写适当的事件过程 程序运行后, 每单击一次窗体, 都使得命令按钮同时向右 向下移动 100 程序的运行情况如图 2 所示 要求 : 1) 不得使用任何变量 ; 2) 存盘时必须存放在考生文件夹下, 工程文件名为 sjt2.vbp, 窗体文件名为 sjt2.frm 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画一个命令按钮控件, 通过其属性窗口将名称设为 C1, 标题 (Caption 属性 ) 设为 移动 单击窗体 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Form_Click()

40 国家教育部考试中心题库 39 C1.Left = C1.Left C1.Top = C1.Top 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt2.vbp sjt2.frm sjt2.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt2.vbp 文件并运行 2. 简单应用 (2 小题, 每题 20 分, 计 40 分 ) * (1) 在考生文件夹下有一个工程文件 sjt3.vbp, 窗体上有一个单选按钮数组, 含三个单选按钮 ; 还有一个标题为 显示 的命令按钮 ( 如图所示 ) 程序的功能是, 在运行时, 如果选中一个单选按钮并单击 显示 按钮, 则在窗体上显示相应的信息, 例如若选中 小学生, 则在窗体上显示 我是小学生 要求 : 去掉程序中的注释符, 把程序中的? 正确的内容, 使其实现上述功能, 但不能修改程序中的其他部分, 也不能修改控件的属性 最后把修改后的文件以原来的文件名存盘 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt3.vbp, 相应的窗体文件名为 sjt3.frm 由于所提供的窗体程序不完整, 在窗体的 Private Sub C1_Click() 事件过程中, 有四处地方需要修改 'For i =? To For i = 0 To 2) 将语句 'To? To 2 3) 将语句 'If Op1(i).? = True Then If Op1(i).Value = True Then 4) 将语句 'Print " 我是 " + Op1(i).? Print " 我是 " + Op1(i).Caption 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt3.vbp sjt3.frm sjt3.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt3.vbp 文件并运行

41 (2) 在考生文件夹下有一个工程文件 sjt4.vbp, 相应的窗体文件为 sjt4.frm 窗体上有一个名称为 Command1 的命令按钮和一个名称为 Timer1 的计时器 请在窗体上画一个标签 ( 名称为 Label1, 标题为 请输入一个正整数 ) 国家教育部考试中心题库 40 再画一个文本框 ( 名称为 Text1, 初始内容为空白 ) 已经给出了相应的事件过程 程序运行后, 在文本框中输入一个正整数, 此时如果按回车键, 则可使文本框中的数字每隔 0.3 秒减 1( 倒计数 ); 当减到 0 时, 倒计数停止, 清空文本框, 并把焦点移到文本框中 要求 : 去掉程序中的注释符, 把程序中的? 正确的内容, 使其能正确运行, 但不能修改程序中的其他部分 最后把修改后的文件按原文件名存盘 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt4.vbp, 相应的窗体文件名为 sjt4.frm 由于所提供的窗体控件不完整, 在该窗体上画一个标签控件, 通过其属性窗口将名称设为 Label1, 标题 (Caption 属性 ) 设为 请输入一个正整数 画一个文本框控件, 通过属性窗口将文本内容 (Text 属性 ) 设为空 由于所提供的窗体程序不完整, 在计时器的 Private Sub Timer1_Timer() 事件过程中, 有三处地方需要修改 'If Val(?) = 0 Then If Val(Text1.Text) = 0 Then 2) 将语句 'Timer1.? = False Timer1.Enabled = False 3) 将语句 'Text1.? Text1.SetFocus 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt4.vbp sjt4.frm sjt4.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt4.vbp 文件并运行 3. 综合应用 (1 小题, 计 30 分 )

42 在考生文件夹下有一个工程文件 sjt5.vbp 和随机文件 in5.txt, 文件中的每个记录包括 3 个字段, 分别为姓名 电话号码和邮政编码, 其名称 类型和长度分别为 : Name 字符串 8 Tel 字符串 10 Post Long 窗体中有一个文本框和两个命令按钮 程序运行后, 如果单击 读入并显示记录 命令按钮, 则从考生文件夹下的 in5.txt 文件中读入所有记录并显示在文本框中 ( 每条记录占一行, 数据项的顺序是姓名 电话 邮编, 见图, 可使用符号常量 vbcrlf 表示回车换行 ); 若单击 保存 按钮则把文本框中的内容存入 out5.txt 文件中 要求 : 国家教育部考试中心题库 41 1) 编写 读入并显示记录 按钮的 Click 过程 2) 在文本框中把所有字母大写字母 ( 可以手工修改 ) 3) 单击 保存 按钮把修改后的文本框内容存盘, 否则无成绩!( 过程已给出, 不能修改 ) 最后以原文件名将程序存放在考生文件夹下 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt5.vbp, 相应的窗体文件名为 sjt5.frm 由于所提供的窗体程序不完整, 需添加事件过程 单击 读入并显示记录 按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub Command1_Click() ' 考生应编写的程序 Open App.Path & "\in5.txt" For Random As #1 Len = Len(pal) For i = 1 To 5 Get #1, i, pal Text1.Text = Text1.Text & pal.name Text1.Text = Text1.Text & pal.tel Text1.Text = Text1.Text & Str(pal.Post) Text1.Text = Text1.Text + vbcrlf Next Close 1 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt5.vbp sjt5.frm sjt5.vbw out5.txt 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt5.vbp 文件并运行 第 11 套 : 1. 基本操作 (2 小题, 每小题 15 分, 共计 30 分 )

43 请根据以下各小题的要求设计 Visual Basic 应用程序 ( 包括界面和代码 ) (1) 在名称为 Form1 的窗体上建立一个名称为 Op1 的单选按钮数组, 含三个单选按钮, 它们的标题依次为 选择 1 选择 2 选择 3, 其下标分别为 0,1,2, 初始状态下, 选择 2 为选中状态 运行后的窗体如图所示 * 注意 : 存盘时必须存放在考生文件夹下, 工程文件名为 sjt1.vbp, 窗体文件名为 sjt1.frm 国家教育部考试中心题库 42 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画一个单选按钮控件, 通过对单选按钮控件的复制产生单选按钮控件数组, 共有三个单选按钮, 通过属性窗口将名称设为 Op1,Index 属性分别设为 0 1 2, 标题 (Caption 属性 ) 分别设为 选择 1 选择 2 选择 3, 选择 2 的 Value 属性设为 True 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt1.vbp sjt1.frm sjt1.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt1.vbp 文件并运行 * (2) 在窗体上建立一个二级菜单, 第一级含 2 个菜单项, 标题分别为 编辑 帮助, 名称分别为 edit help 其中 编辑 菜单含有子菜单, 共有 3 个菜单项, 其标题依次为 剪切 复制 粘贴, 名称分别为 cut copy paste ( 如图所示 ) * 注意 : 存盘时必须存放在考生文件夹下, 工程文件名为 sjt2.vbp, 窗体文件名为 sjt2.frm 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上通过菜单编辑器建立二个主菜单, 在菜单编辑器的标题处分别输入 编辑 帮助, 名称处分别输入 edit help, 在 编辑 菜单下有三个子菜单, 在菜单编辑器的标题处分别输入 剪切 复制 粘贴, 名称处分别输入 cut copy paste 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt2.vbp sjt2.frm sjt2.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt2.vbp 文件并运行 2. 简单应用 (2 小题, 每题 20 分, 计 40 分 ) *

44 (1) 在考生文件夹下有一个工程文件 sjt3.vbp, 它的功能是在运行时只显示名为 Form2 的窗体, 单击 Form2 上的 C2 按钮, 则显示名为 Form1 的窗体 ; 单击 Form1 上的 C1 按钮, 则 Form1 的窗体消失 这个程序并不完整, 要求 : 1) 把 Form2 设为启动窗体 ; 把 Form1 上按钮的标题 隐藏, 把 Form2 上按钮的标题 显示 2) 去掉程序中的注释符, 把程序中的? 正确的内容, 使其实现上述功能, 但不能修改程序中的其他部分 最后把修改后的文件存盘 3) 工程文件和窗体文件仍以原来的文件名存盘 国家教育部考试中心题库 43 正确程序运行后的界面如图所示 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt3.vbp, 相应的窗体文件名分别为 sjt31.frm 和 sjt32.frm 由于所提供的 Form1 窗体控件不完整, 通过其属性窗口将标题 (Caption 属性 ) 设为 隐藏 提供的 Form2 窗体控件不完整, 通过其属性窗口将标题 (Caption 属性 ) 设为 显示 选择 工程 菜单下的 工程 1 属性 选项, 打开该工程的属性窗口, 在通用选项卡中将启动对象选为 Form2 即可 由于所提供的 Form1 窗体程序不完整, 在窗体的 Private Sub C1_Click() 事件过程中, 有一处地方需要修改 'Form1.Visible =? Form1.Visible = False 由于所提供的 Form2 窗体程序不完整, 在窗体的 Private Sub C2_Click() 事件过程中, 有一处地方需要修改 'Form1.Visible =? Form1.Visible = True 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt3.vbp sjt31.frm sjt32.frm sjt3.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt3.vbp 文件并运行 (2) 在考生文件夹下有一个工程文件 sjt4.vbp, 它的功能是在文本框中输入一个整数, 单击 移动 按钮后, 如果输入的是正数, 滚动条中的滚动框向右移动与该数相等的刻度, 但如果超过了滚动条的最大刻度, 则不移动,

45 并且显示 文本框中的数值太大 ; 如果输入的是负数, 滚动条中的滚动框向左移动与该数相等的刻度, 但如果超过了滚动条的最小刻度, 则不移动, 并且显示 文本框中的数值太小, 如图所示 要求 : 去掉程序中的注释符, 把程序中的? 正确的内容, 使其实现上述功能, 但不能修改程序中的其他部分, 也不能修改控件的属性 最后把修改后的程序以原来的文件名存盘 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt4.vbp, 相应的窗体文件名为 sjt4.frm 由于所提供的窗体程序不完整, 在 移动 按钮的 Private Sub C1_Click() 事件过程中, 有三处地方需要修改 国家教育部考试中心题库 44 'If HS1.Value + Text1.Text > HS1.? Then If HS1.Value + Text1.Text > HS1.Max Then 2) 将语句 'ElseIf HS1.Value + Text1.Text <? Then ElseIf HS1.Value + Text1.Text < HS1.Min Then 3) 将语句 '? = HS1.Value + Text1.Text HS1.Value = HS1.Value + Text1.Text 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt4.vbp sjt4.frm sjt4.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt4.vbp 文件并运行 3. 综合应用 (1 小题, 计 30 分 ) 在名称为 Form1 的窗体上画一个文本框, 名称为 Text1, 允许多行显示 ; 再画三个命令按钮, 名称分别为 C1 C2 C3, 标题分别为 输入 转换 存盘 ( 如图所示 ) 请编写适当的事件过程, 使得在运行时, 单击 输入 按钮, 则从考生文件夹中读入 in5.txt 文件 ( 文件中只有字母和空格 ), 放入 Text1 中 ; 单击 转换 按钮, 则把 Text1 中的所有小写字母转换为大写字母 ; 单击 存盘 按钮, 则把 Text1 中的内容存入 out5.txt 文件中 注意 : 考生必须把转换后的内容用 存盘 按钮存入 out5.txt 文件, 否则无成绩 考生的工程文件以文件名 sjt5.vbp 存盘, 窗体文件以文件名 sjt5.frm 存盘 解题思路 :

46 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画一个文本框, 通过其属性窗口将名称设为 Text1, 多行显示 (Multiline 属性 ) 设为 True, 即允许多行显示 画三个命令按钮, 通过其属性窗口将名称分别设为 C1 C2 C3, 标题 (Caption 属性 ) 分别设为 输入 转换 存盘 单击 输入 按钮 ( 即运行 Click 事件过程 ), 在 Click 事件过程中加入语句 : Private Sub C1_Click() Open App.Path & "\in5.txt" For Input As #1 Input #1, a$ Text1.Text = a$ Close #1 单击 输入 按钮 ( 即运行 Click 事件过程 ), 在 Click 事件过程中加入语句 : Private Sub C2_Click() a$ = Text1.Text 国家教育部考试中心题库 45 b$ = "" n = Len(a$) For i = 1 To n b$ = b$ + UCase$(Mid$(a$, i, 1)) Next Text1.Text = b$ 单击 输入 按钮 ( 即运行 Click 事件过程 ), 在 Click 事件过程中加入语句 : Private Sub C3_Click() Open App.Path & "\out5.txt" For Output As #1 Print #1, Text1.Text Close #1 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt5.vbp sjt5.frm sjt5.vbw out5.txt 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt5.vbp 文件并运行 第 12 套 : 1. 基本操作 (2 小题, 每小题 15 分, 共计 30 分 ) 请根据以下各小题的要求设计 Visual Basic 应用程序 ( 包括界面和代码 ) (1) 在名称为 Form1 的窗体上画一个文本框, 名称为 Text1, 字体为 黑体, 文本框中的初始内容为 程序设计 ; 再画一个命令按钮, 名称为 C1, 标题为 改变字体 ( 如图所示 ) 请编写适当事件过程, 使得在运行时, 单击命令按钮, 则把文本框中文字的字体 宋体 程序中不

47 得使用任何变量 * 注意 : 保存时必须存放在考生文件夹下, 工程文件名为 sjt1.vbp, 窗体文件名为 sjt1.frm 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画一个文本框, 通过其属性窗口将名称设为 Text1, 字体 (Font 属性 ) 设为 黑体, 文本框中的初始内容 (Text 属性 ) 设为 程序设计 另外再画一个命令按钮, 通过其属性窗口将名称设为 C1, 标题 (Caption 属性 ) 设为 改变字体 单击命令按钮 ( 即运行 Click 等事件过程 ), 使用 (Text1.Font = " 宋体 ") 语句就能完成把文本框中文字的字体改成 宋体 功能 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt1.vbp sjt1.frm sjt1.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt1.vbp 文件并运行 (2) 在名称为 Form1 的窗体上画一个图片框, 名称为 P1, 高为 1800, 宽为 1600, 并放入文件名为 pic1.bmp 的图片 ( 如图所示 ) 请编写适当的事件过程, 国家教育部考试中心题库 46 使得在运行时, 如果双击窗体, 则图片框中的图片消失 程序中不得使用任何变量 * 注意 : 保存时必须存放在考生文件夹下, 工程文件名为 sjt2.vbp, 窗体文件名为 sjt2.frm 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画一个图片框控件, 通过其属性窗口将名称设为 P1, 高 (Height 属性 ) 设为 1800, 宽 (Width 属性 ) 设为 1600 双击窗体 ( 即运行 DblClick 事件过程 ), 在该 DblClick 事件过程中加入语句 : Private Sub Form_DblClick() P1.Picture = LoadPicture 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt2.vbp sjt2.frm sjt2.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt2.vbp 文件并运行 2. 简单应用 (2 小题, 每题 20 分, 计 40 分 ) * (1) 在名称为 Form1 的窗体中画一个名称为 L1 的标签, 其标题为 0,

48 BorderStyle 属性为 1; 再添加一个名称为 Timer1 的计时器 请设置适当的控件属性, 并编写适当的事件过程, 使得在运行时, 每隔一秒钟标签中的数字加 1 如图所示的是程序刚启动时的情况 程序中不得使用任何变量 * 注意 : 存盘时必须存放在考生文件夹下, 工程文件名为 sjt3.vbp, 窗体文件名为 sjt3.frm 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画一个标签, 通过其属性窗口将名称设为 L1, 标签中的内容 (Caption 属性 ) 设为 0, BorderStyle 属性设为 1 再画一个计时器控件, 通过其属性窗口将名称设为 Timer1,Interval 属性设为 1000( 每秒加 1) 程序运行后, 通过计时器控件的 Private Sub Timer1_Timer() 事件过程实现每隔一秒钟标签中的数字加 1 的功能, 须添加的语句为 :L1.Caption = L1.Caption + 1 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt3.vbp sjt3.frm sjt3.vbw 国家教育部考试中心题库 47 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt3.vbp 文件并运行 (2) 在考生文件夹下有一个工程文件 sjt4.vbp, 要求程序运行后, 如果多次单击列表框中的项, 则可同时选择这些项 而如果单击 显示 按钮, 则在窗体上输出所有选中的列表项 ( 如图所示 ) 要求 : 修改列表框的适当属性, 使得运行时可以多选, 并去掉程序中的注释符, 把程序中的? 正确的内容, 使其实现上述功能, 但不得修改程序中的其他部分 最后把修改后的程序以原来的文件名存盘 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt4.vbp, 相应的窗体文件名为 sjt4.frm 由于所提供的窗体控件不完整, 通过列表框属性窗口将复选 (MultiSelect 属性 ) 设为 1 由于所提供的窗体程序不完整, 在 显示 按钮的 Private Sub C1_Click() 事件过程中, 有三处地方需要修改 'For i =? To For i = 0 To 2) 将语句 'To?

49 To Me.l1.ListCount - 1 3) 将语句 'If l1.? = True Then If l1.selected(i) = True Then 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt4.vbp sjt4.frm sjt4.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt4.vbp 文件并运行 3. 综合应用 (1 小题, 计 30 分 ) 在考生文件夹下有一个工程文件 sjt5.vbp, 在该工程中为考生提供了一个通用过程, 考生可以直接调用 请在窗体上画一个名称为 Text1 的文本框 ; 画一个名称为 C1, 标题为 计算 的命令按钮 ; 再画二个单选按钮, 名称分别为 Op1 Op2, 标题分别为 求 500 到 600 之间能被 7 整除的数之和 求 500 到 600 之间能被 3 整除的数之和 ( 如图所示 ) 请编写适当的事件过程, 使得在运行时, 选中一个单选按钮, 再单击 计算 按钮, 就可以按照单选按钮后的文字要求计算, 并把计算结果放入文本框中, 最后把已经修改的工程 国家教育部考试中心题库 48 文件和窗体文件以原来的文件名存盘 注意 : 考生不得修改窗体文件中已经存在的程序, 退出程序时必须通过单击窗体右上角的关闭按钮 在结束程序运行之前, 必须至少要进行一种计算, 否则不得分 解题思路 : 启动 Visual Basic 系统, 打开考生文件夹下需编辑的工程文件 sjt5.vbp, 相应的窗体文件名为 sjt5.frm 由于所提供的窗体控件不完整, 在窗体上画一个文本框控件, 通过其属性窗口将名称设为 Text1 画一个命令按钮控件, 通过其属性窗口将名称设为 C1, 标题 (Caption 属性 ) 设为 计算 画二个单选按钮控件, 通过其属性窗口将名称分别设为 Op1 Op2, 标题 (Caption 属性 ) 分别设为 求 500 到 600 之间能被 7 整除的数之和 求 500 到 600 之间能被 3 整除的数之和 由于所提供的窗体程序不完整, 需添加事件过程 单击 计算 按钮 ( 即运行 Click 事件过程 ), 在该 Click 事件过程中加入语句 : Private Sub C1_Click() If Op1.Value Then Text1.Text = fun(7) End If If Op2.Value Then

50 Text1.Text = fun(3) End If 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt5.vbp sjt5.frm sjt5.vbw out5.txt 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt5.vbp 文件并运行 第 13 套 : 1. 基本操作 (2 小题, 每小题 15 分, 共计 30 分 ) 请根据以下各小题的要求设计 Visual Basic 应用程序 ( 包括界面和代码 ) (1) 在名称为 Form1 的窗体上画一个图片框, 名称为 P1, 高为 1800, 宽为 1700, 通过属性窗口把图形文件 pic1.bmp 放到图片框中 ( 如图所示 ) * 注意 : 存盘时必须存放在考生文件夹下, 工程文件名为 sjt1.vbp, 窗体文件名为 sjt1.frm 国家教育部考试中心题库 49 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画一个图片框控件, 通过其属性窗口将名称设为 P1, 高 (Height 属性 ) 设置为 1800, 宽 (Width 属性 ) 设置为 1700, 通过 Picture 属性装入 pic1.bmp 图像文件 参考文件 :c:\wexam\ \hlpsys\ 参考答案 \sjt1.vbp sjt1.frm sjt1.frx sjt1.vbw 请把这些文件复制到 c:\wexam\ 中, 然后打开 sjt1.vbp 文件并运行 (2) 在名称为 Form1 的窗体上画二个文本框, 名称分别为 Text1 Text2, 都显示垂直滚动条和水平滚动条, 都可以显示多行文本 ; 再画一个命令按钮, 名称为 C1, 标题为 复制 ( 如图所示 ) 请编写适当的事件过程, 使得在运行时, 在 Text1 中输入文本后, 单击 复制 按钮, 就把 Text1 中的文本全部复制到 Text2 中 程序中不得使用任何变量 * 注意 : 存盘时必须存放在考生文件夹下, 工程文件名为 sjt2.vbp, 窗体文件名为 sjt2.frm 解题思路 : 启动 Visual Basic 系统, 创建一个 Form1 窗体 在该窗体上画二个文本框控件, 通过其属性窗口将名称分别设为 Text1 Text2, ScrollBars 属性均设为 3, 多行文本显示 (Multiline 属性 ) 均设为 True 画一个命令按钮控件, 通过其属性窗口将名称设为 C1, 标题 (Caption 属性 ) 设为 复制 画二个文本框控件, 通过其属性窗口将名分别称设为 Text1