2012年计算机二级VB第二十二套上机试题

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

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

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

　　（1）在名称为Form1的窗体上添加一个计时器控件，名称为Timer1。请利用属性窗口设置适当属性，使得在运行时可以每隔1秒，调用计时器的Timer事件过程一次。另外，请把窗体的标题设置为“题目2”。设计阶段的窗体如图所示。

　　*注意：

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

　　解题思路：

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

　　该窗体上画一个计时器控件，通过其属性窗口将名称设为Timer1，Interval属性设为1000（每秒加1）。通过Form1窗体的属性窗口将其标题（Caption属性）设为“题目2”。

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

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

　　（2）在名称为Form1的窗体上画一个文本框，名称为Text1，无初始内容；再画一个图片框，名称为P1。请编写适当的事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容，运行时的窗体如图所示。程序中不能使用任何变量。

　　*注意：

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

　　解题思路：

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

　　在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1，Text属性为空。画一个图片框控件，通过其属性窗口将名称设为P1。

　　实现题目的要求（即运行Text1_Change事件过程），在该Change事件过程中加入语句：

　　Private Sub Text1_Change()

　　P1.Print Text1.Text

　　End Sub

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

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

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

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

　　（1）在考生目录下有一个工程文件sjt3.vbp，窗体上有一个单选按钮数组，含三个单选按钮，均没有标题，请利用属性窗口，为单选按钮依次添加标题为“北京”、“上海”、“广州”；再添加一个标题为“显示”的命令按钮，如图所示。程序的功能是在运行时，如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮的选中情况，在窗体上显示“我的出生地是北京”、“我的出生地是上海”或“我的出生地是广州”。要求：

　　1） 依次添加单选按钮标题为“北京”、“上海”、“广州”；设初始选中的是“广州”，添加命令按钮标题为“显示”。

　　2） 去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。

　　最后把修改后的文件按原文件名存盘。

　　解题思路：

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

　　由于所提供的窗体控件不完整，通过单选按钮属性窗口将标题（Caption属性）分别设为“北京”、“上海”、“广州”，把“广州”单选按钮的Value属性设为True。通过命令按钮属性窗口将标题（Caption属性）设为“显示”。

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

　　1) 将语句

　　'For i = ? To ?

　　改为

　　For i = 0 To 2

　　2) 将语句

　　'If Op1(i).? = True Then

　　改为

　　If Op1(i).Value = True Then

　　3) 将语句

　　'Print "我的出生地是" + Op1(i).?

　　改为

　　Print "我的出生地是" + Op1(i).Caption

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

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

　　（2）在考生目录下有一个工程文件sjt4.vbp，请在Form1窗体中画三个标签，名称分别为B1、B2、L1，标题分别为“字号”、“字体”、“计算机等级考试”，其中L1的高为 500，宽为3000；再在B1、B2标签的下面画两个组合框，名称分别为Cb1、Cb2，并为Cb1添加项目：“10”、“15”、“20”，为Cb2 添加项目：“黑体”、“隶书”、“宋体”。请编写适当的事件过程，使得在运行时，当在Cb1中选一个字号、在Cb2中选一个字体，标签L1中的文字立即变为选定的字号和字体。如图所示。

　　注意：

　　考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须选择一个字号和字体。必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，按原文件名存盘，程序中不能使用任何变量。

　　解题思路：

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

　　由于所提供的窗体控件不完整，需在该窗体上画三个标签控件，通过其属性窗口将名称分别设为B1、B2、L1，标题（Caption属性）分别设为“字号”、“字体”、“计算机等级考试”，并对L1标签的高（Height属性）设为500，宽（Width属性）设为3000。再画二个组合框控件，通过其属性窗口将名称分别设为Cb1、Cb2，并对Cb1项目（List属性）添加“10”、“15”、“20”内容，对Cb2项目（List属性）添加“黑体”、“隶书”、“宋体”内容。

　　Cb1选择字号（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Cb1_Click()

　　L1.Font.Size = Cb1.Text

　　End Sub

　　Cb2选择字体（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Cb2_Click()

　　L1.Font = Cb2.Text

　　End Sub

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

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

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

　　注意：下面出现的“考生文件夹”均为%USER%在考生目录下有一个工程文件 sjt5.vbp，其窗体上有一个文本框，名称为Text1；还有两个命令按钮，名称分别为C1、C2，标题分别为“计算”、“存盘”，如图所示。并有一个函数过程isprime(a)可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。

　　请编写适当的事件过程， 使得在运行时，单击“计算”按钮，则找出大于15000的第1个素数，并显示在 Text1中；单击“存盘”按钮，则把Text1中的计算结果存入考生文件夹下的out5.txt文件中。

　　注意：

　　考生不得修改isprime函数过程和控件的属性，必须把计算结果通过“存盘”按钮存入out5.txt文件中，否则无成绩。

　　解题思路：

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

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

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

　　Private Sub C1_Click()

　　a% = 15000

　　Do

　　a% = a% + 1

　　Loop Until isprime(a%)

　　Text1.Text = a%

　　End Sub

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

　　Private Sub C2_Click()

　　Open App.Path & "\out5.txt" For Output As #1

　　Print #1, Text1.Text

　　Close #1

　　End Sub

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

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