国二级VB上机题含答案第一套

1、第01套1. 基本操作（2小题，每小题15分，共计30分） 注意：下面出现的“考生文件夹”均为%USER%* 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1、标题为“菜单”的窗体上，设计满足如下要求的菜单。 运行后的窗体如图所示。存盘时，将文件保存至考生文件夹下，且工程 文件名为sjt1.vbp，窗体文件名为sjt1.frm。* （2）在名称为Form1的窗体上，画1个名称为Image1的图像框，左界为360，且 图像框中显示考生文件夹下的图片文件“Duck.bmp”。再画2个名称分别 为“Command1”、“Command2”，标题

2、分别为“移动”、“复位”的命 令按钮。如图所示。 要求： 编写适当的事件过程，使得每单击“移动” 按钮一次，图像框向右移 动10；单击“复位”按钮，图像框自动回位到左界为360的位置。 *注意： 要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时 必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为 sjt2.frm。2. 简单应用（2小题，每题20分，计40分） 注意：下面出现的“考生文件夹”均为%USER%* （1）考生文件夹下有一个工程文件sjt3.vbp，其中的窗体上有1个名称为 Cmd的 命令按钮控件数组；有1个名称为Image1的图像框。请画1个名称为 Ti

3、mer1 的计时器，时间间隔为3秒，初始状态为不可用，如图所示。 程序功能如下： 1）单击“前进”按钮，则 Timer1的状态变为可用，且在图像框中显示3秒 黄灯（图像文件为考生文件夹下的“yellow.ico”）后，显示绿灯（图 像文件为考生文件夹下的 “green.ico” ） 直至下次单击某个命令按 钮； 2）单击“停止”按钮，则 Timer1的状态变为可用，且在图像框显示3秒黄 灯后，显示红灯（ 图像文件为考生文件夹下的“red.ico”）直至下次 单击某个命令按钮； 3）单击“结束”按钮"，则结束程序运行。 请将命令按钮 Click事件过程中的注释符去掉，把 ？改为正确的内

4、容，以 实现上述程序功能。 注意： 考生不得修改窗体文件中已经存在的控件和程序， 最后将程序按原文件 名存盘。* （2）考生文件夹下有一个工程文件sjt4.vbp，其中的窗体上已有如图所示的控 件。程序功能如下： 1）单击“读数据”按钮，则将考生文件夹下in4.dat文件的内容（该文件 中仅含有字母和空格）显示在Text1文本框中； 2）在Text1中选中部分文本，并单击“统计”按钮，则以不区分大小写字 母的方式，自动统计选中文本中同时出现“o”、“n” 两个字母的单 词的个数（ 如：million、company都属于满足条件的单词），并将统 计结果显示在Text2文本框内。 请将“统计”按

5、钮Click事件过程中的注释符去掉，把 ？改为正确的内容 ，以实现上述程序功能。 注意： 考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件 名存盘。3. 综合应用（1小题，计30分） 注意：下面出现的“考生文件夹”均为%USER% 在考生文件夹下有一个工程文件sjt5.vbp，其功能是： 1）单击“读数据”按钮，则把考生文件夹下in5.dat文件中的100个正整数 读入数组a中，同时显示在Text1文本框中； 2）单击“素数”按钮，则将数组a中所有素数（只能被1和自身整除的数称 为素数）存入数组b中，并将数组b中的元素显示在文本框Text2中。 在给出的窗体文件中已经有了全部控件

6、（如图所示），但程序不完整。 要求： 完善程序使其实现上述功能。 注意： 考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前， 必须先执行“素数”操作，然后再用窗体右上角的关闭按钮结束程序，否 则无成绩。最后，程序按原文件名存盘。第01套答案一、基本操作题第1小题 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上通过菜单编辑器建立二个主菜单，在菜单编辑器的标题处分别输入“文件”和“退出”，名称处分别输入。在“文件”菜单下有二个子菜单，在菜单编辑器的标题处分别输入“新建”和“保存”，名称处分别输入new和save。参考文件：c:wexam26990001hlps

7、ys参考答案sjt1.vbp、sjt1.frm、sjt1.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt1.vbp文件并运行。第2小题 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个图像框控件，通过其属性窗口将名称设为Image1，左边界（Left属性）设为360，点击Picture属性在弹出的加载图片对话框中将Duck.bmp图片文件打开即实现加载功能。画二个命令按钮控件，通过其属性窗口将名称分别设为“Command1”、“Command2”，标题（Caption属性）分别设为“移动”、“复位”。 单击“移动”按钮（即运行Click事件

8、过程），在该Click事件过程中加入语句：Private Sub Command1_Click() Image1.Left = Image1.Left + 10End Sub 单击“复位”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command2_Click() Image1.Left = 360End Sub参考文件：c:wexam26990001hlpsys参考答案sjt2.vbp、sjt2.frm、sjt2.frx、sjt2.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt2.vbp文件并运行。二、简单应用题第1小

9、题 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。 由于所提供的窗体控件不全，添加一个计时器控件，通过其属性窗口将Enabled属性设为False，Interval属性设为3000。 由于所提供的窗体程序不完整，在命令按钮数组的Private Sub Cmd_Click(Index As Integer)事件过程中，有二处地方需要修改。1) 将语句 'If Index = ? Then 改为 If Index = 2 Then2) 将语句 'Timer1.Enabled = ? 改为 Timer1.Ena

10、bled = True 在计时器的Private Sub Timer1_Timer()事件过程中，有一处地方需要修改。1) 将语句 'Select Case ? 改为 Select Case flag参考文件：c:wexam26990001hlpsys参考答案sjt3.vbp、sjt3.frm、sjt3.frx、sjt3.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt3.vbp文件并运行。第2小题 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。 由于所提供的窗体程序不完整，在窗体的Pri

11、vate Sub Command2_Click()事件过程中，有四处地方需要修改。1) 将语句 'If Len(s) = ? Then 改为 If Len(s) = 0 Then2) 将语句 'If Text1.? = 0 Then 改为 If Text1.SelLength = 0 Then3) 将语句 'x = ? 改为 x = LCase(t)4) 将语句 '? = Str(m) 改为 Text2.Text = Str(m)参考文件：c:wexam26990001hlpsys参考答案sjt4.vbp、sjt4.frm、sjt4.vbw请把这些文件复制到c:

12、wexam26990001中，然后打开sjt4.vbp文件并运行。三、综合应用题 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。 由于所提供的窗体程序不完整，需添加事件过程。 单击“素数”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command2_Click() Dim b(100) As Integer num = 0 If Len(Text1.Text) = 0 Then MsgBox "请先执行“读数据”功能！" Else '考生编写(功能：生成存放素数的数组 b ) '注意：请务必将数组 b 的元素个数存入变量 num 中 For i = 1 To 100 flag = 0 For j = 2 To a(i) - 1 If a(i) / j = Fix(a(i) / j) Then flag = 1 Exit For End If Next If flag = 0 Then num = num + 1 b(num) = a(i) End If Next '以下程序段将 b 数组的内容显示在Text2中 For