Cl.Enabled = False End Sub
Private Sub C2_Click() Dim I As Integer Text1.Text = \ Open \ For I = 1 To 9 arr(i)= arr(i)* arr(i) ?Print #1, arr(i), Text1.Text = Text1.Text + Str(arr(i)) Next Close #1 C2.Enabled = False End Sub
（3）调试并运行程序。 （4）按题目要求存盘。
三、综合应用题
新建一个工程文件，在窗体Form1中设置两个控制按钮，名称分别为Command1和Command2，标题分别为“计算”和“存盘”；设置一个文本框，名称为Text1。要求在窗体模块的通用过程中定义一个CalculateArea的Sub过程，该过程的功能是计算出一个矩形面积并在Text1中显示出来。当单击“计算”按钮时，先弹出两个输入对话框，在两个对话框中用户可以分别输入该矩形的长和宽，并在文本框中显示出矩形面积。
注意：将工程文件与窗体文件保存到考生文件夹下，文件名分别为kt5.vbp与kt5.frm。
三、综合应用题答案 【解析步骤】
（1）在考生文件夹下建立工程文件kt5.vbp与窗体文件kt5.frm。 （2）设计界面时用到的控件及其属性见表4-33所示。 表4-33 控件类型 名 称 属性值 文本框 Name Text1 Text 空值 命令按钮 Name Command1 Caption 计算 命令按钮 Nam1 Command2 Caption 存盘
（3）设计Sub CalculateArea()。使用InputBox弹出接受输入数据的对话框。为了保证计算结果正确，需要保证输入的两个数据有效。以下语句可判断输入的两个边长是否有效： Private Sub CalculateArea()
a = InputBox(\请输入矩形的长\提示\ b = InputBox(\请输入矩形的宽\提示\ If a <>\
Text1.Text = a * b End If End Sub
（4）Sub Command1_Click()直接调用CalculateArea()。 Private Sub Command1_Click() Call CalculateArea End Sub
（5）Command2_Click()负责将显示在文本框中的结果存入文件out5.txt? Private Sub Command2_Click()
Open \ Print #1, Text1.Text Close #1 End Sub
（6）验证计算结果和文件out5.txt中的内容。假设均输入35，则结果应为1225。 （7）保存工程和窗体文件。 一、基础操作题
下面出现的“考生文件夹”均为c:\\wexam\\20060001。
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 1．在名称为Form1的窗体上画两个标签，名称分别为Label1和Label2，标题分别为“身高”和“体重”；两个文本框，名称分别为Text1和Text2，Text属性均为空白；一个命令按钮，名称为Command1，标题为“输入”，然后编写命令按钮的Click事件过程。要求程序运行后，如果单击命令按钮，则先后弹出两个输入对话框，在两个输入对话框中分别输入身高和体重，并分别在两个文本框中显示出来。程序中不得使用任何变量。
注意：保存时必须存放在考生文件夹下，工程文件名为kt1.vbp，窗体文件名为kt1.frm。 2．在名称为Form1的窗体上画两个标签，名称分别为Label1和Label2，标题分别为“标签1”和“标签2”。请编写适当的事件过程，使得当程序运行时，如果单击窗体，则两个标签中的一个标签不透明且无边界，而另一个标签则变为透明且具有边界线。
注意：保存时必须存放在考生文件夹下，窗体文件名为kt2.frm，过程文件名为kt2.vbp。 一、基本操作题答案 1．【解题步骤】
（1）建立界面并设置控件属性。程序中用到的控件及其属性见表4-34。 表4-34
控 件 属 性 设置值 标签 Name Label1 Caption 身高 标签 Name Label2 Caption 体重
文本框 Name Text1 文本框 Name Text2 命令按钮 Name Command1 Caption 输入
（2）编写程序代码。 参考代码：
Option Explicit
Private Sub Command1_Click() Text1.Text = InputBox(\请输入身高\ Text2.Text = InputBox(\请输入体重\End Sub
（3）调试并运行程序。 （4）按题目要求存盘。 2．【解析步骤】
（1）设计界面，程序所用控件及其属性见表4-35。 表4-35 控件类型 名 称 属 性 标签 Name Label1 Caption 标签1 续 表 控件类型 名 称 属 性 标签 Name Label2 Caption 标签2
（2）编写如下事件处理程序： Private Sub Form_Click() Label1.BackStyle = 1 Label1.BorderStyle = 0 Label2.BackStyle = 0 Label2.BorderStyle = 1 End Sub
（3）调试运行正确后，按要求保存工程和窗体文件。 二、简单应用题
1．在窗体Form1上设置一个控件数组Check(i)，该控件数组包括四个复选框控件，标题不限；另设一个名称为Command1、标题为“统计”的命令按钮，程序运行后，单击“统计”按钮，将统计有多少个复选框被选中，并用MsgBox将其显示出来。
注意：考生完成程序编写后，将过程文件与窗体文件保存到考生文件夹下，文件名分别为kt3.vbp与kt3.frm。
2．在考生文件夹下有工程文件kt4.vbp及其窗体文件kt4.frm，该程序是不完整的。请在有“？”的地方填入正确的内容，然后删除“？”及所有注释符（即“'”号），但不能修改其他部分。保存时不得改变文件名和文件夹。
窗体From1中有一个控制按钮与一个水平滚动条，控制按钮的名称为CmdMove，标题为“移动”，水平滚动条的名称为HS1。单击“移动”按钮后，在弹出的对话框中输入数值。如果输入的是正数，则滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且在窗体上显示“输入的数值太大”；如果输入的是负数，则滚动条中的滚动框向左移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且在窗体上显示“输入的数值太小”。 二、简单应用题答案 1．【解析步骤】
（1）设计界面时用到的控件及其属性见表4-36，其中Name和Index是自动生成，这里只是对比了解控件数组的特点。 表4-36 控件类型 名 称 属性值 复选框 Name Check1 Caption 1 Index 0
复选框 Name Check1 Caption 5 Index 1
复选框 Name Check1 Caption 3 Index 2
复选框 Name Check1 Caption 7 Index 3 命令按钮 Name Command1 Caption 统计
（2）选中复选框，使属性Value=1。通过此可以编写如下事件处理程序： Private Sub Command1_Click() s = 0
For x = 0 To 3
If Check1(x).Value = 1 Then s = s + 1 End If Next x
MsgBox(s) End Sub
（3）调试运行正确后，按要求保存工程和窗体文件。 2．【解析步骤】
（1）打开代码窗口，共有3处需要填写。 Private Sub CmdMove_Click() Cls
Dim n As Integer
n = Val(InputBox(\请输入移动数值\ If n > 0 Then
If (HS1.Max - HS1.Value)> n Then 'HS1.Value = ? + n Else
Print \输入的数值太大\ HS1.Value = HS1.Max End If Else
'If (HS1.Value - HS1.Min)> ?(n)Then HS1.Value = HS1.Value + n Else
Print \输入的数值太小\ 'HS1.Value = ? End If End If End Sub
（2）分析代码，填入正确语句。
① 语句HS1.Value = ? + n是将属性值增加，即： HS1.Value = HS1.Value + n
② 语句If (HS1.Value - HS1.Min)>?(n)Then是与负数的绝对值比较，即： If(HS1.Value - HS1.Min)> Abs(n)Then
③ 如果输入数值过小，则不应该改变原来的属性值,所以语句HS1.Value =?应改为: HS1.Value = HS1.Min （3）完整的程序如下:
Private Sub CmdMove_Click() Cls
Dim n As Integer
n = Val(InputBox(\请输入移动数值\ If n > 0 Then
If (HS1.Max - HS1.Value)> n Then HS1.Value = HS1.Value + n Else
Print \输入的数值太大\ HS1.Value = HS1.Max End If Else
If (HS1.Value - HS1.Min)> Abs(n)Then HS1.Value = HS1.Value + n Else
Print \输入的数值太小\ HS1.Value = HS1.Min End If End If End Sub
（4）需要分别验证输入正常数据、数据太大和太小3种情况。 （5）正确保存工程和窗体文件。 三、综合应用题
在考生文件夹下有工程文件kt5.vbp及其窗体文件kt5.frm，该程序是不完整的，请在有“？”的地方填入正确的内容，然后删除“？”及所有注释符（即“'”号），但不能修改其他部分，保存时不得改变文件名和文件夹。 本题描述如下：
在Form1窗体上建立一个名称为Op1的单选按钮数组，含有三个单选按钮，其标题分别为
全国计算机二级VB上机题库（题+答案）
