2012年计算机二级VB第五十九套上机试题及解题思路

　1. 基本操作（2小题，每小题15分，共计30分）

　　注意：下面出现的“考生文件夹”均为%USER%

　　请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。

　　（1）在名称为Form1，标题为“练习”的窗体上画1个名称为Frame1、标题为“效果”的框架。框架内含有3个复选框，其名称分别为Chk1、Chk2和Chk3，标题分别为“倾斜”、“加粗”和“下划线”。运行后的窗体如图所示。

　　要求：

　　存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

　　解题思路：

　　启动Visual Basic系统，创建一个Form1窗体。

　　在该窗体上画一个框架控件，通过其属性窗口将名称设为Frame1，标题（Caption属性）设为“效果”。在该框架中画三个复选框控件，通过其属性窗口将名称分别设为Chk1、Chk2和Chk3，标题（Caption属性）分别设为“倾斜”、“加粗”和“下划线”。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“练习”。

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt1.vbp文件并运行。

　　（2）在名称为Form1的窗体上画1个名称为Label1的标签， 其初始内容为空，且能根据指定的标题内容自动调整标签的大小；再画2个命令按钮，标题分别是“日期”和“时间”， 名称分别为 Command1、Command2。请编写2个命令按钮的Click事件过程，使得单击“日期”按钮时，标签内显示系统当前日期；单击“时间”按钮时，标签内显示系统当前时间。如图所示。

　　要求：

　　程序中不得使用变量，每个事件过程中只能写一条语句。

　　注意：

　　存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp， 窗体文件名为sjt2.frm。

　　解题思路：

　　启动Visual Basic系统，创建一个Form1窗体。

　　在该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，标题内容（Caption属性）设为空。画二个命令按钮控件，通过其属性窗口将名称分别设为Command1和Command2，标题（Caption属性）分别设为“日期”和“时间”。

　　单击“日期”按钮（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Command1_Click()

　　Label1.Caption = Date()

　　End Sub

　　单击“时间”按钮（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Command2_Click()

　　Label1.Caption = Time()

　　End Sub

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt2.vbp、sjt2.frm、sjt2.vbw

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt2.vbp文件并运行。

2. 简单应用（2小题，每题20分，计40分）

　　注意：下面出现的“考生文件夹”均为%USER%

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。

　　由于所提供的窗体程序不完整，需添加事件过程。

　　单击“计算”按钮（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Command2_Click()

　　Dim sum As Integer, Aver As Single

　　Dim n As Integer

　　For i = 1 To 100

　　If Fix(Sqr(a(i))) = Sqr(a(i)) Then

　　n = n + 1

　　sum = sum + a(i)

　　End If

　　Next i

　　Aver = sum / n

　　Text1.Text = Fix(Aver)

　　End Sub

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt3.vbp、sjt3.frm、sjt3.vbw、out3.dat

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt3.vbp文件并运行。

　　（2）在考生文件夹下有一个工程文件sjt4.vbp， 其窗体上有2个命令按钮和1个计时器。2个命令按钮的初始标题分别是“演示”和“退出”；计时器Timer1的初始状态为不可用。请画1个名称为Label1，且能根据显示内容自动调整大小的标签，其标题为“Visual Basic程序设计”， 显示格式为黑体小四号字。如图所示。程序功能如下：

　　1）单击标题为“演示”的命令按钮时，则该按钮的标题自动变换为“暂停”，且标签在窗体上从左向右循环滚动，当完全滚动出窗体右侧时，从窗体左侧重新进入；

　　2）单击标题为“暂停”的命令按钮时，则该按钮的标题自动变换为“演示”，并暂停标签的滚动。

　　3）单击“退出”按钮，则结束程序运行。

　　要求：

　　请去掉程序中的注释符，把程序中的 ？改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。

　　由于所提供的窗体控件不完整，需在该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“Visual Basic程序设计”，自动调整（AutoSize属性）设为True，通过Font属性的字体对话框设置字体属性为黑体，字号属性设为小四号。

　　由于所提供的窗体程序不完整，在窗体的Private Sub Command1_Click()事件过程中，有三处地方需要修改。

　　1) 将语句

　　'If Command1.Caption = ? Then

　　改为

　　If Command1.Caption = "演示" Then

　　2) 将语句

　　'? = True

　　改为

　　Timer1.Enabled = True

　　3) 将语句

　　'? = False

　　改为

　　Timer1.Enabled = False

　　在窗体的Private Sub Timer1_Timer()事件过程中，有二处地方需要修改。

　　1) 将语句

　　'If ? > Form1.Width Then

　　改为

　　If Label1.Left > Form1.Width Then

　　2) 将语句

　　'Label1.Left = ? + 100

　　改为

　　Label1.Left = Label1.Left + 100

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt4.vbp、sjt4.frm、sjt4.vbw

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt4.vbp文件并运行。

3. 综合应用（1小题，计30分）

　　注意：下面出现的“考生文件夹”均为%USER%

　　在考生文件夹下有一个工程文件sjt5.vbp，窗体上有3个文本框，其名称分别为Text1、Text2和Text3，其中Text1、Text2可多行显示。请画3个名称分别为Cmd1、Cmd2和Cmd3，标题分别为“产生数组”、“统计”和“退出”的命令按钮。如图所示。程序功能如下：

　　1）单击“产生数组”按钮时，用随机函数生成20个0～10之间（不含0和10）的数值，并将其保存到一维数组a中，同时也将这20个数值显示在Text1文本框内。

　　2）单击“统计”按钮时，统计出数组a中出现频率最高的数值及其出现的次数，并将出现频率最高的数值显示在Text2文本框内、出现频率最高的次数显示在Text3文本框内。

　　3）单击“退出”按钮时，结束程序运行。

　　请将程序中的注释符去掉，把 ？改为正确的内容，以实现上述程序功能。

　　注意：

　　不得修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。

　　由于所提供的窗体控件不完整，需在该窗体上画三个命令按钮控件，通过其属性窗口将名称分别设为Cmd1、Cmd2和Cmd3，标题（Caption属性）分别设为“产生数组”、“统计”和“退出”。

　　由于所提供的窗体程序不完整，在窗体的Private Sub Cmd1_Click()事件过程中，有一处地方需要修改。

　　1) 将语句

　　'a(i) = Fix(Rnd * ? + 1)

　　改为

　　a(i) = Fix(Rnd * 9 + 1)

　　在窗体的Private Sub Cmd2_Click()事件过程中，有三处地方需要修改。

　　1) 将语句

　　'For j = 1 To ?

　　改为

　　For j = 1 To i - 1

　　2) 将语句

　　'If b(i) > ? Then fmax = b(i)

　　改为

　　If b(i) > fmax Then fmax = b(i)

　　3) 将语句

　　'If b(i) = ? Then

　　改为

　　If b(i) = fmax Then

　　在窗体的Private Sub Cmd3_Click()事件过程中，有一处地方需要修改。

　　1) 将语句

　　'?

　　改为

　　End

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt5.vbp、sjt5.frm、sjt5.vbw

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt5.vbp文件并运行。