《2012年计算机二级VB第二十一套上机试题及解析》由会员分享,可在线阅读,更多相关《2012年计算机二级VB第二十一套上机试题及解析(4页珍藏版)》请在金锄头文库上搜索。
1、 打造最大的国内教育平台E 智网 http:/ 24 小时服务电话:0531-86558000 86555588更多试题请访问 http:/ 下载1. 基本操作(2 小题,每小题 15 分,共计 30 分) 注意:下面出现的“考生文件夹”均为%USER% 请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码) 。 (1)在名称为 Form1 的窗体上画一个名称为 command1、标题为“打开”的命令按钮, 然后画一个名称为 CD1 的通用对话框(如图所示) ,编写适当的事件过程,使得运行程序 时,单击“打开”命令按钮, 则弹出打开文件对话框。在属性窗口中设置通用对话
2、框的适当 属性, 使得对话框中显示的文件类型第一项为“所有文件”,第二项为“*.DOC”,默认的过 滤器为.DOC 文件。 注意: 要求程序中不得使用变量,事件过程中只能写一条语句。存盘时必须存放在考生文件 夹下,工程文件名为 sjt1.vbp,窗体文件名为 sjt1.frm。 解题思路: 启动 Visual Basic 系统,创建一个 Form1 窗体。 在该窗体上画一个命令按钮控件,通过其属性窗口将名称设为 Command1,标题 (Caption 属性)设为“打开“。 画一个通用对话框控件,通过其属性窗口将名称设为 CD1,Filter 属性设为“所有文件 |*.*|*.Doc|*.do
3、c“,FilterIndex 属性设为 2。 单击“打开“按钮(即运行 Click 事件过程) ,在该 Click 事件过程中加入语句: Private Sub Command1_Click() CD1.ShowOpen End Sub 参考文件:c:wexam26990001hlpsys参考答案sjt1.vbp、sjt1.frm、sjt1.vbw 请把这些文件复制到 c:wexam26990001 中,然后打开 sjt1.vbp 文件并运行。 (2)在名称为 Form1 的窗体上画一个文本框,名称为 Text1,其初始内容为 0;画一 个命令按钮,名称为 C1,标题为“开始计数”;再画一个名
4、称为 T1 的计时器。要求在开始 运行时不计数,单击“开始计数”按钮后, 使文本框中的数每秒加 1。在命令按钮的适当事 件过程中加入语句: T1.Enabled = True,并编写适当的事件过程实现这个功能,要求只能写一条语句。运 行时的窗体如图所示。 *注意: 存盘时必须存放在考生文件夹下,工程文件名为 sjt2.vbp,窗体文件名为 sjt2.frm。 解题思路: 启动 Visual Basic 系统,创建一个 Form1 窗体。 在该窗体上画一个文本框,通过其属性窗口将名称设为 Text1,文本框中的初始内容 (Text 属性)设为 0。 画一个命令按钮,通过其属性窗口将名称设为 C1
5、,标题(Caption 属性)设为“开始计 数”。再画一个计时器,通过其属性窗口将名称设为 T1,Interval 属性设为 1000(每秒加 1) ,Enabled 属性设为 False(即程序开始运行时不计数) 。 单击命令按钮(即运行 Click 事件过程) ,在 Click 事件过程中加入语句:T1.Enabled = True,即启动了计时器。在计时器的 Timer 事件过程中加入语句:Text1.Text = Text1.Text + 1,即完成每秒加 1 功能。 参考文件:c:wexam26990001hlpsys参考答案sjt2.vbp、sjt2.frm、sjt2.vbw 请把
6、这些打造最大的国内教育平台E 智网 http:/ 24 小时服务电话:0531-86558000 86555588文件复制到 c:wexam26990001 中,然后打开 sjt2.vbp 文件并运行。 2. 简单应用(2 小题,每题 20 分,计 40 分) 注意:下面出现的“考生文件夹”均为%USER% (1)在考生文件夹下有一个工程文件 sjt3.vbp,它包含两个名称分别为 Form1 和 Form2 的窗体,Form1 和 Form2 窗体上建立了标题分别为“C1”和“C2”的按钮。请把 Form1 上按钮的标题改为“结束”,把 Form2 上按钮的标题改为“显示”,并将 Form2
7、 设为启动窗体, 将 Form1 设为不显示。该程序实现的功能是:在程序运行时显示 Form2 窗体,单击 Form2 上的“ 显示”按钮,则显示 Form1 窗体;若单击 Form1 上的“结束”按钮,则关闭 Form1 和 Form2,并结束程序运行。 请去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能 修改程序中的其他部分。最后把修改后的文件按原文件名存盘。正确程序运行后的界面如 图所示。 解题思路: 启动 Visual Basic 系统,打开考生文件夹下需编辑的工程文件 sjt3.vbp,相应的窗体文 件名为 sjt3.frm。由于所提供的 Form1 窗体控件
8、不完整,通过其属性窗口将标题(Caption 属性)设为“结束”。提供的 Form2 窗体控件不完整,通过其属性窗口将标题(Caption 属性) 设为“显示”。选择“工程”菜单下的“工程 1 属性”选项,打开该工程的属性窗口,在通用选 项卡中将启动对象选为 Form2 即可。 由于所提供的 Form2 窗体程序不完整,在窗体的 Private Sub C2_Click()事件过程中, 有二处地方需要修改。 1) 将语句 Load ? 改为 Load Form1 2) 将语句 ? = True 改为 Form1.Visible = True 参考文件:c:wexam26990001hlpsys
9、参考答案sjt3.vbp、sjt31.frm、sjt32.frm、sjt3.vbw 请把这些文件复制到 c:wexam26990001 中,然后打开 sjt3.vbp 文件并运行。 (2)在考生文件夹下有一个工程文件 sjt4.vbp,窗体上有一个名为 P1 的图片框;一个 单选按钮数组,含三个单选按钮,标题分别为“正方形”、 “椭圆形”、 “圆形”;还有一个标题 为“显示”的命令按钮。程序的功能是在运行时,如果选中一个单选按钮后,单击“显示”按 钮,则根据单选按钮的选中情况,在图片框中显示“选择了正方形”、 “选择了椭圆形”或“选 择了圆形”,如图所示。 要求: 1)原题中的单选按钮和命令按
10、钮没有标题,请利用属性窗口依次添加单选按钮标题分 别为“正方形”、 “椭圆形”、 “圆形”,添加命令按钮标题为“显示”。 2)去掉程序中的注释符,把程序中的 ?改为正确的内容,使其实现上述功能。 注意:不能修改程序中的其他部分,也不能修改控件的其他属性。最后把修改后的程 序以原文件名存盘。 解题思路: 打造最大的国内教育平台E 智网 http:/ 24 小时服务电话:0531-86558000 86555588启动 Visual Basic 系统,打开考生文件夹下需编辑的工程文件 sjt4.vbp,相应的窗体文 件名为 sjt4.frm。 由于所提供的窗体控件不完整,通过属性窗口将单选按钮的标
11、题(Caption 属性)分别 设为“正方形”、 “椭圆形”、 “圆形”。通过属性窗口将命令按钮标题(Caption 属性)设为“显示” 。 由于所提供的窗体程序不完整,在命令按钮的 Private Sub C1_Click()事件过程中,有 二处地方需要修改。 1) 将语句 If Op1(k).? = True Then 改为 If Op1(k).Value = True Then 2) 将语句 Call draw(?) 改为 Call draw(k) 在 Sub draw(a As Integer)事件过程中,有一处地方需要修改。 1) 将语句 P1.Print “选择了“ & Op1(?
12、).Caption 改为 P1.Print “选择了“ & Op1(a).Caption 参考文件:c:wexam26990001hlpsys参考答案sjt4.vbp、sjt4.frm、sjt4.vbw 请把这些文件复制到 c:wexam26990001 中,然后打开 sjt4.vbp 文件并运行。 3. 综合应用(1 小题,计 30 分) 注意:下面出现的“考生文件夹”均为%USER% 在考生文件夹下有一个工程文件 sjt5.vbp。运行程序时,在文本框中输入一个素数,然 后单击 “查找” 命令按钮,找出小于给定素数的三个最大的素数,并显示在标签控件数组 Label1 中,如图所示。 要求:
13、 工程文件中已给出部分程序,其中的 IsPrime 过程用来判断一个数是否为素数。请编 写“查找”命令按钮的事件过程中的部分程序代码。 注意: 程序调试通过后,在“给定的素数”对应的文本框中输入 12379,并执行“查找”命令,将 找到满足条件的三个素数显示在标签中,否则没有成绩。不得修改程序的其他部分和控件 属性。 最后把修改后的文件按原文件名存盘。 解题思路: 启动 Visual Basic 系统,打开考生文件夹下需编辑的工程文件 sjt5.vbp,相应的窗体文 件名为 sjt5.frm。 由于所提供的窗体程序不完整,需在“查找“命令按钮的 Click 事件过程中加入语句: Private
14、 Sub Command1_Click() 考生编写程序开始 = Dim i As Integer Dim n As Integer 打造最大的国内教育平台E 智网 http:/ 24 小时服务电话:0531-86558000 86555588Dim counter As Integer Dim arr(3) As Integer n = Val(Text1.Text) counter = 0 For i = n - 2 To 3 Step -2 If IsPrime(i) Then arr(counter) = i counter = counter + 1 If counter = 3 T
15、hen Exit For End If End If Next For i = 0 To 2 Label1(i).Caption = arr(i) Next = 考生编写程序结束 Open App.Path & “out5.dat“ For Output As #1 Print #1, Text1.Text, Label1(0).Caption, Label1(1).Caption, Label1(2).Caption Close #1 End Sub 参考文件:c:wexam26990001hlpsys参考答案sjt5.vbp、sjt5.frm、sjt5.vbw、out5.dat 请把这些文件复制到 c:wexam26990001 中,然后打开 sjt5.vbp 文件并运行。更多试题请访问 http:/ 下载