【计算机类职业资格】二级VISUAL+BASIC机试-28及答案解析.doc

《【计算机类职业资格】二级VISUAL+BASIC机试-28及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】二级VISUAL+BASIC机试-28及答案解析.doc（5页珍藏版）》请在麦多课文档分享上搜索。

1、二级 VISUAL+BASIC 机试-28 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)1.在窗体上画一个文本框(名称为 Text1)和一个命令按钮(名称为 C1，标题为“显示”)，请编写 C1 的Click 事件过程，使得在程序运行时，按 Esc 键就调用这个事件过程且在文本框中显示“等级考试”，程序运行结果如图 11 所示。在程序中不能使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。2在窗体上画两个名称分别为 C1、C2 标题分别为“第一个按钮”、“第二个按钮”的命

2、令按钮，其大小相同，然后编写适当的事件过程。程序运行后，如果单击“第一个按钮”，则把“第二个按钮”移到“第一个按钮”上，使两个按钮重合，如图 12 和 13 所示。存盘时，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。（分数：30.00）_二、2 简单应用题(总题数：1，分数：40.00)2.在窗体上画 1 个组合框(名称为 Cbl，设置为简单组合框)和 1 个命令按钮(名称为 C1，标题为“添加”)，编写适当的事件过程。程序运行后，在组合框中输入一个列表项，单击命令按钮后，程序检查组合框的下拉列表，如果列表中没有此项，则把此项添加到列表中；如果有此项，则通过信息框提示“此项

3、已存在”，并清除输入的内容。程序的运行情况如图 21 所示。存盘时，工程文件名为 sjt3.vbp，窗体文件名为 sjt3.frm。2在窗体上画一个名称为 L1 的列表框，通过属性窗口向列表框中添加 3 个项目，分别为“123”、“456”和“789”。编写适当的事件过程。程序运行后，每次双击列表框中的任何一项，则总在最后面添加一项，该项的内容为前面所有项之和。程序的运行情况如图 22 所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt4.frm，工程文件名为 sjt4.vbp。（分数：40.00）_三、3 综合应用题(总题数：1，分数：30.00)3.在考生文件夹下有一个工程文件

4、 sjt5.vbp，相应的窗体文件为 sjt5.frm。窗体中已经给出了所有控件(框架中的 3 个单选按钮构成了一个控件数组)，如图 31 所示，请编写适当的事件过程。程序运行后，如果选中某个单选按钮，然后单击“计算”命令按钮，则计算出数列 1，1，2，3，5，8，13，21，的第 n 项的值，并在文本框中显示出来，其中 n 是选中的单选按钮标题所指定的数值。要计算的数列的变化规律是：从第 3 个数开始，每个数是它前面两个数之和 (提示：由于计算结果较大，存放结果的变量应使用长整型)。（分数：30.00）_二级 VISUAL+BASIC 机试-28 答案解析(总分：100.00，做题时间：90

5、 分钟)一、1 基本操作题(总题数：1，分数：30.00)1.在窗体上画一个文本框(名称为 Text1)和一个命令按钮(名称为 C1，标题为“显示”)，请编写 C1 的Click 事件过程，使得在程序运行时，按 Esc 键就调用这个事件过程且在文本框中显示“等级考试”，程序运行结果如图 11 所示。在程序中不能使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。2在窗体上画两个名称分别为 C1、C2 标题分别为“第一个按钮”、“第二个按钮”的命令按钮，其大小相同，然后编写适当的事件过程。程序运行后，如果单击“第一个按钮”，则把“第二

6、个按钮”移到“第一个按钮”上，使两个按钮重合，如图 12 和 13 所示。存盘时，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。（分数：30.00）_正确答案：( 建立界面和设置控件属性。程序用到的控件及其属性如下表 1 所示。表 1对 象 属 性 设 置 值文本框 NameTabIndex Text11 命令按钮NameCaptionCancelTabIndexC1“显示“True0 编写程序代码。参考代码：Private Sub C1_Click()Text1. Text“等级考试“End Sub 按题目要求存盘。2 启动 Visual Basic，在窗体上画两个命令按钮

7、。 按 F4 键激活属性窗口，在属性窗口中设置两个命令按钮的属性，见表 2。表 2控件 属性 设置值命令按钮 1 名称Caption C1第一个按钮命令按钮 2 名称Caption C2第二个按钮 编写第 1 个命令按钮的 Click 事件过程；Private Sub C1_Click()C2.TopC1.TopC2.LeftC1.LeftEnd Sub)解析：二、2 简单应用题(总题数：1，分数：40.00)2.在窗体上画 1 个组合框(名称为 Cbl，设置为简单组合框)和 1 个命令按钮(名称为 C1，标题为“添加”)，编写适当的事件过程。程序运行后，在组合框中输入一个列表项，单击命令按钮

8、后，程序检查组合框的下拉列表，如果列表中没有此项，则把此项添加到列表中；如果有此项，则通过信息框提示“此项已存在”，并清除输入的内容。程序的运行情况如图 21 所示。存盘时，工程文件名为 sjt3.vbp，窗体文件名为 sjt3.frm。2在窗体上画一个名称为 L1 的列表框，通过属性窗口向列表框中添加 3 个项目，分别为“123”、“456”和“789”。编写适当的事件过程。程序运行后，每次双击列表框中的任何一项，则总在最后面添加一项，该项的内容为前面所有项之和。程序的运行情况如图 22 所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt4.frm，工程文件名为 sjt4.vbp

9、。（分数：40.00）_正确答案：( 启动 Visual Basic，在窗体上画 1 个组合框和 1 个命令按钮。 按 F4 键，激活属性窗门，在属性窗口中设置组合框和命令按钮的属性，见表 3。表 3控件 属性 设置值组合框 名称Style Cb11 - Simple命令按钮 名称Caption ComboC1 编写命令按钮的 Click 事件过程：Private Sub C1_Click()Dim flag As BooleanFor i0 To Cb1.ListCount1If Cb1.List(i)Cb1.Text ThenflagTrueElseflagFalseEnd IfNextI

10、f flag ThenMsgBox“此项已存在“,“Cb1.Text=“ElseCb1.Addltem Cb1.TextEnd IfEnd Sub2 对象主要属性设置如表 4 所示。表 4对象 对象名 属性名 属性值窗体 Form1 Caption 求和列表框 L1 List(O) 123List(1) 456List(2) 789 分析：按试题要求在窗体上画一个列表框，并分别将它们的属性按表 4 的内容进行设置。ListIndex属性返回或设置控件中当前选择项目的索引值。当双击列表框中的任一项时，即触发了 DblCilck(双击)事件。向列表框 (对象)中添加内容的方法为 AddItem，其

11、格式为：对象AddItem 字符串表达式，位置如果省略“位置”，当 Sorted 属性设置为 False 时，“字符串表达式”将添加到列表的结尾。 编程代码：Private Sub L1_DblClick()For i0 To L1. ListIndexss+Val(L1.list(i)Next iL1.AddItem sEnd Sub)解析：三、3 综合应用题(总题数：1，分数：30.00)3.在考生文件夹下有一个工程文件 sjt5.vbp，相应的窗体文件为 sjt5.frm。窗体中已经给出了所有控件(框架中的 3 个单选按钮构成了一个控件数组)，如图 31 所示，请编写适当的事件过程。程序

12、运行后，如果选中某个单选按钮，然后单击“计算”命令按钮，则计算出数列 1，1，2，3，5，8，13，21，的第 n 项的值，并在文本框中显示出来，其中 n 是选中的单选按钮标题所指定的数值。要计算的数列的变化规律是：从第 3 个数开始，每个数是它前面两个数之和 (提示：由于计算结果较大，存放结果的变量应使用长整型)。（分数：30.00）_正确答案：( 启动 Visual Basic，装入工程文件 sjt5.vbp。 打开代码窗口，所提供的事件过程如下：Private Sub Form_Unload(Cancel As Integer)Open“out5.dat“For Output As #1

13、Print #1,Op1(0).Value,Op1(1).Value,Op1(2).Value,Va1(Text1.Text)Close # 1End Sub这是窗体的 Unload 事件过程，用来把每个单选按钮当前的 Value 属性值和文本框中的内容写入 out5.dat文件。程序运行后，如果通过单击窗体右上角的“关闭”按钮来关闭窗体，则自动执行该事件过程，而如果通过单击工具栏上的“结束”按钮来结束程序，则不会执行该事件过程。 编写命令按钮的 Click 事件过程：Private Sub Command1_Click()Dim a As Long,a1 As Long,a2 As Long

14、Dim k As Integer,n As IntegerFor k=0 To 2If Op1(k). Value Thenn=Val(Op1(k).Caption)End IfNext ka1=1a2=1For k=3 To na=a1+a2a1=a2a2=aNext kText1.Text=aEnd Sub该过程包含两个 For 循环，其中第 1 个 For 循环用来确定 n 的值，选择某个单选按钮后，该单选按钮的标题即作为 n 的值；第 2 个 For 循环用来计算数列第 n 项的值。 运行程序，选择一个单选按钮，然后单击命令按钮，即可计算数列第 n 项的值，并在文本框中显示出来，此时可单击窗体右上角的“关闭”按钮，结束程序。)解析：