（4）按题目要求存盘。 三、综合应用题
下面出现的“考生文件夹”均为c:\\wexam\\20060001。
在考生文件夹下有一个工程文件kt5.vbp，在该工程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为Text1的文本框；画一个名称为C1、标题为“计算”的命令按钮；再画两个单选按钮，名称分别为Op1和Op2，标题分别为“求200～300之间能被7整除的数之和”和“求200～300之间能被3整除的数之和”。
编写适当的事件过程，使得在程序运行后，选中一个单选按钮，再单击“计算”按钮，就可以按照单选按钮后的文字要求计算，并把计算结果放入文本框中，最后把修改过的工程文件和窗体文件以原文件名保存。 注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，至少要进行一种计算，否则无成绩。 三、综合应用题答案 【解题步骤】
（1）建立控件并设置控件属性。程序中用到的控件及其属性见表4-41。 表4-41
控 件 属 性 设置值 文本框 Name Text1 Text 空白 按钮 Name C1 Caption 计算 单选按钮 Name Op1 Caption 求200～300之间能被7整除的数之和 单选按钮 Name Op2 Caption 求200～300之间能被3整除的数之和
（2）编写程序代码。 程序提供的代码：
Private Function fun (a As Integer)As Integer s = 0 For i = 200 To 300 If Int (i/a)=i/a Then s = s + i End If Next fun = s End Function
Private Sub Form_Unload(Cancel As Integer) Open \ Print #1, Op1.Value, Op2.Value, Text1.Text Close #1 End Sub 参考代码:
Private Function fun (a As Integer)As Integer
s = 0 For i = 200 To 300 If Int (i/a)=i/a Then s = s + i End If Next fun = s End Function
Private Sub C1_Click() If Op1.Value Then Text1 = fun(7) End If If Op2.Value Then Text1 = fun(3) End Sub
Private Sub Form_Unload(Cancel As Integer) Open \ Print #1, Op1.Value, Op2.Value, Text1.Text Close #1 End Sub
（3）调试并运行程序。 （4）按题目要求存盘。 一、基本操作题
下面出现的“考生文件夹”均为c:\\wexam\\20060001。
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
1．在名称为Form1的窗体上画一个名称为Text1的文本框，通过属性窗口设置其属性，并在文本框中显示“XX”；再建立一个名称为Cmd1、标题为“清除”的命令按钮。编写适当的事件过程，要求程序运行时，如果单击“清除”命令按钮，则清空文本框中所显示的信息。 注意：保存时必须存放在考生文件夹下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。 2．在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2、标题分别为“输入”和“连接”的命令按钮。要求程序运行后，单击“输入”按钮，可通过输入对话框输入两个字符串，存入字符串变量a和b中（a和b定义为窗体变量），如果单击“连接”按钮，则把两个字符串连接为一个字符串（顺序不限）并在信息框中显示出来。在程序中不得使用任何其他变量。
注意：保存时必须存放在考生文件夹下，窗体文件名为kt2.frm，工程文件名为kt2.vbp。 一、基本操作题答案 1．【解题步骤】
（1）建立界面并设置控件属性。程序中用到的控件及其属性见表4-42。
表4-42
控 件 属 性 设置值 文本框 Name Text1 Text XX 按钮 Name Cmd1
Caption 清空
（2）编写程序代码。 参考代码： Private Sub Cmd1_Click() Text1.Text=\ End Sub
（3）调试并运行程序。 （4）按题目要求存盘。 2．【解题步骤】
（1）建立界面并设置控件属性。程序中用到的控件及其属性见表4-43。 表4-43
控 件 属 性 设置值 按钮 Name Cmd1 Caption 输入 按钮 Name Cmd2 Caption 连接
（2）编写程序代码。 参考代码： Option Explicit Dim a As String Dim b As String
Private Sub Cmd1_Click() a=InputBox(\输入第一个字符串:\第一个串\ b=InputBox(\输入第二个字符串:\第二个串\End Sub Private Sub Cmd2_Click() MsgBox a & b, vbOkOnly End Sub
（3）调试并运行程序。 （4）按题目要求存盘。 二、简单应用题
下面出现的“考生文件夹”均为c:\\wexam\\20060001。
1．在窗体上建立一个名称为Text1的文本框，然后建立两个主菜单，标题分别为“学分等级”和“帮助”，名称分别为vbMenu和vbHelp，其中“学分等级”菜单包括标题为“等级A”、“等级B”和“等级C”三个子菜单，名称分别为vbMenul、vbMenu2和vbMenu3。要求程序运行后，如果在“学分等级”下拉菜单中选择“等级A”，则在文本框内显示“85分以上”；如果选择“等级B”，则在文本框内显示“75分至85分”；如果选择“等级C”，则在文本框内显示“60分至75分”。程序中不能使用任何变量，直接显示字符串。
注意：保存时必须存放在考生文件夹下，窗体文件名为kt3.frm，工程文件名为kt3.vbp。 2．在考生文件夹中有文件kt4.vbp及其窗体文件kt4.frm，该程序是不完整的，请在有“？”号的地方填入正确的答案，然后删除“？”及所有注释符（即“'”号），但不能修改其他部分。保存时不得改变文件夹和文件名。 本题描述如下：
窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Ch1和Ch2，标题分别为“唱歌”和“跳舞”；一个名称为C1、标题为“确定”的命令按钮。要求程序运行后，如果只选中Ch1，单击“确定”命令按钮，则在文本框中显示“我喜欢唱歌”；如果只选中Ch2，单击“确定”命令按钮，则在文本框中显示“我喜欢跳舞”；如果同时选中Ch1和Ch2，然后单击“确定”命令按钮，则在文本框中显示“我喜欢唱歌和跳舞”；如果Ch1和Ch2都不选，然后单击“确定”命令按钮，则在文本框中什么都不显示。 二、简单应用题答案 1．【解题步骤】
（1）建立界面并设置控件属性。程序中用到的控件及其属性见表4-44。 表4-44
控 件 属 性 设置值 菜单 Name vbMenu Caption 学分等级 菜单 Name vbMenu1 Caption 等级A 菜单 Name vbMenu2 Caption 等级B 菜单 Name vbMenu3 Caption 等级C 菜单 Name vbHelp Caption 帮助
文本框 Name Text1
（2）编写程序代码。 参考代码：
Private Sub vbMenu1_Click() Text1.txt=\分以上\ End Sub
Private Sub vbMenu2_Click() Text1.Text=\分至85分\End Sub
Private Sub vbMenu3_Click() Text1.Text=\分至75分\End Sub
（3）调试并运行程序。 （4）按题目要求存盘。 2．【解题步骤】
（1）编写程序代码。 程序提供的代码： Option Explicit
Private Sub Cl_Click() ??=\ If Ch1.Value And Not Ch2.Value Then
Text1.Text=\我喜欢唱歌\ ?If Ch1.Value = ? And Ch2.Value Then Text1.Text=\我喜欢跳舞\ If Ch1.Value And Ch2.Value Then Text1.Text=\我喜欢唱歌和跳舞\End Sub 参考代码： Option Explicit
Private Sub Cl_Click() Text1.Text=\ If Ch1.Value And Not Ch2.Value Then Text1.Text=\我喜欢唱歌\ If Ch1.Value = 0 And Ch2.Value Then Text1.Text=\我喜欢跳舞\ If Ch1.Value And Ch2.Value Then Text1.Text=\我喜欢唱歌和跳舞\End Sub
（2）调试并运行程序。 （3）按题目要求存盘。 三、综合应用题
下面出现的“考生文件夹”均为c:\\wexam\\20060001。
在考生文件夹中有工程文件kt5.vbp及其窗体文件kt5.frm，该程序是不完整的，请在有“？”号的地方填入正确内容，然后删除“？”及所有注释符（即“'”号），但不能修改其他部分。 本题描述如下：
在名称为Form1的窗体上有一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2；两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读入数据”和“计算保存”。要求程序运行后，如果单击“读入数据”按钮，则读入in.txt文件中的100个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果单击“计算保存”按钮，则计算数组中前30个数的平均值（结果四舍五入为整数），并把结果在文本框Text1中显示出来，同时把结果存入考生文件夹下的文件out.txt中（在考生的文件夹下有标准模块mode.bas，其中的putdata过程可以把结果存入指定的文件）。
注意：文件必须存放在考生文件夹下，窗体文件名为kt5.frm，工程文件名为kt5.vbp，计算结果存入out.txt文件中，否则没有成绩。 三、综合应用题答案 【解题步骤】
（1）建立控件并设置控件属性。程序中用到的控件及其属性见表4-45。 表4-45
控 件 属 性 设置值 文本框 Name Text1 Scrollbars 2 Multiline Ture 命令按钮 Name Cmd1 Caption 读入数据 命令按钮 Name Cmd2
全国计算机二级VB上机题库（题+答案）
