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

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

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

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

　　（1）在名称为Form1的窗体上画2个名称分别为Frame1、Frame2的框架，标题分别为“字号”、“修饰”；在Frame1中画2个单选按钮，名称分别为Option1、Option2，标题分别为“10号字”、“20号字”，且标题显示在单选按钮的左边；在Frame2中画1个名称为Check1的复选框， 标题为“下划线”。运行后的窗体如图所示。

　　注意：

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

　　解题思路：

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

　　在该窗体上画二个框架控件，通过其属性窗口将名称分别设为Frame1和Frame2，标题（Caption属性）分别设为“字号”和“修饰”。在Frame1框架中画二个单选按钮控件，通过其属性窗口将名称分别设为Option1和Option2，标题（Caption属性）分别设为“10号字”和“20号字”，为使标题显示在单选按钮的左边，将二个单选按钮的对齐方式（Alignment属性）都设为1。在Frame2框架中画一个复选框控件，通过其属性窗口将名称设为Check1，标题（Caption属性）设为“下划线”。

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

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

　　（2）在名称为Form1的窗体上从上到下画2个文本框，名称分别为Text1、Text2；再画1个命令按钮，名称为Command1，标题为“选中字符数是”。程序运行时，在Text1中输入若干字符，选中部分内容后，单击“选中字符数是”按钮，则在Text2中显示选中的字符个数（如图所示）。 请编写按钮的Click事件过程。

　　要求：

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

　　注意：

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

　　解题思路：

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

　　在该窗体上画二个文本框控件，通过其属性窗口将名称分别设为Text1和Text2。画一个命令按钮控件，通过其属性窗口将名称设为Command1，标题（Caption属性）设为“选中字符数是”。

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

　　Private Sub Command1_Click()

　　Text2.Text = Text1.SelLength

　　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。程序运行后，单击“读入数据”，可把考生文件夹下in3.txt文件中的所有英文单词读入，并显示在Text1文本框中；单击“插入列表框”按钮，则按顺序把每个单词作为一项添加到List1列表框中（如图所示）。

　　在in3.txt 文件中每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。已经给出了所有控件和程序，但程序不完整。

　　要求：

　　请去掉程序中的注释符，把程序中的 ？改为正确的内容， 使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。

　　解题思路：

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

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

　　1) 将语句

　　'st = ? & ch

　　改为

　　st = st & ch

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

　　1) 将语句

　　'? = Mid(st, k, 1)

　　改为

　　c = Mid(st, k, 1)

　　2) 将语句

　　'? = ""

　　改为

　　word = ""

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

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

　　（2）在考生文件夹下有一个工程文件sjt4.vbp， 窗体上已经画出所有控件，如图所示。在运行时，如果单击“开始”按钮，则窗体上的汽车图标每0.1秒向右移动一次（初始状态下不移动）； 如果单击“停止”按钮，则停止移动。

　　请完成以下工作：

　　1）设置适当控件的适当属性，使得汽车图标每 0.1秒向右移动一次，而初始状态下不移动；

　　2）请去掉程序中的注释符，把程序中的 ？改为正确的内容；

　　3）为两个命令按钮编写适当的事件过程。最后以原文件名存盘。

　　*注意：

　　不得修改已经给出的程序。编写的事件过程中不能使用变量，每个事件过程中只能有一条语句。

　　解题思路：

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

　　由于所提供的窗体控件不完整，通过其属性窗口将计时器的Enabled属性设为False，Interval属性设为100（每0.1秒加1）。

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

　　Private Sub C1_Click()

　　Timer1.Enabled = True

　　End Sub

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

　　Private Sub C2_Click()

　　Timer1.Enabled = False

　　End Sub

　　提供的计时器程序不完整，在Private Sub Command1_Click()中，有一处地方需要修改。

　　1) 将语句

　　'P1.? P1.Left + 20

　　改为

　　P1.Move P1.Left + 20

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

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

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

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

　　在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框 Text1中输入一个大于2的偶数，并单击“分解为”命令按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数（一个偶数有时可以分解为多种素数的组合，例如24可以分解为 5和19，也可以分解为11和13，要求取含有最小素数的组合，如图所示）。要求编写“分解为”命令按钮事件过程中“考生编写程序开始” 和 “考生编写程序结束” 之间的代码， 以实现上述功能。过程IsPrime 用来判断一个数是否为素数，如果是，返回值为True，否则返回值为False。

　　注意：

　　不得修改原有程序和控件的属性。至少正确运行一次程序，且运行时在文本框中输入 23456，单击“分解为”按钮，将结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。

　　解题思路：

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

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

　　单击"分解为"按钮（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Command1_Click()

　　'考生编写程序开始

　　'======================================

　　Dim i As Integer

　　Dim n As Integer

　　n = Val(Text1.Text)

　　If n Mod 2 <> 0 Then

　　MsgBox "请输入偶数！"

　　Exit Sub

　　End If

　　For i = 3 To n / 2

　　If IsPrime(i) And IsPrime(n - i) Then

　　Label1.Caption = i

　　Label2.Caption = n - i

　　Exit For

　　End If

　　Next

　　'=========================================

　　'考生编写程序结束

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

　　Print #1, Text1.Text, Label1.Caption, Label2.Caption

　　Close #1

　　End Sub

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

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