《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:/ 下载
