最新计算机等级考试二级VB上机试题50套解析.doc

1、第 50 套： 试题答案及详解 一、基本操作题 第 1 小题 【审题分析】本题需在命令按钮的单击事件过程中，通过修改文本框的 FontName 属 性值为楷体_GB2312来改变文本框中文本的字体。 【操作步骤】 步骤 1：新建一个标准 EXE工程，按表 50-1 在窗体中画出控件并设置其相关属性。 表 50-1 步骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。 参考代码： Private Sub Cmd1_Click() Txt1.FontName = 楷体_GB2312 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【审题分析】要使命令按钮位于窗体左上角

2、需将其 Top 属性值和 Left 属性值设置为 0； 要在单击一次窗体后，命令按钮同时向右、向下移动 100，需在窗体的单击事件过程中， 设置命令按钮的 Top 属性值和 Left 属性值各增加 100。 【操作步骤】 步骤 1：新建一个标准 EXE工程，按表 50-2 在窗体中画出控件并设置其相关属 性。 表 50-2 步骤 2：打开代码编辑窗口，编写命令按钮的 Click 事件过程。 参考代码： PrivateSub Cmd1_Click() Cmd1.Left=Cmd1.left+100 Cmd1.Top=Cmd1.Top+100 End Sub 步骤 3：按要求将文件保存至考生文件夹

3、中。 二、简单应用题 第 1 小题 【审题分析】根据题目要求，要在程序运行时能每隔 1 秒，标签中的数字加 1，需将 计时器的 Interval 属性值设置为 1000 毫秒，Enabled 属性值设置为 True，在计时器的 Timer 事件过程中将标签中的数值加 1。 105 ?3? ? 性。 【操作步骤】 步骤 1：新建一个标准 EXE工程，按表 50-3 在窗体中画出控件并设置其相关属 表 50-3 步骤 2：双击窗体上的计时器控件，在其 Timer 事件过程中加入以下代码： 参考代码： Private Sub Tmr1_Timer() Lab1.Caption = Lab1.Capt

4、ion + 1 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【审题分析】本题源程序在命令按钮的单击事件过程中，首先利用 For 循环语句（循 环变 k 的初值为 0，终值为 3）逐一检查单选按钮数组中的每个元素是否被选中，若选 中则用变 n 记录下选中单选按钮的索引号，即 n=k。循环结束后，取消对当前选中单选 按钮的选择，且变 n 增 1；接着判断 n 的值是否为 4，若是则将 n 的值置为 0，重新从 单选按钮数组的第 1 个元素开始；最后设置索引号为 n 的单选按钮被选中。 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 vbsj4.vbp，按表 50

5、-4 在窗体中用复制 和粘贴命令画出包含 4 个元素的单选数组和 1 个命令按钮并设置属性。 表 50-4 步骤 2：打开代码编辑窗口，去掉程序中的注释符，将问号？改为正确的内 容。 参考代码： Private Sub Cmd1_Click() For k = 0 To 3 If Opt1(k).Value Then 106 n = k End If Next k Opt1(n).Value = False n = n + 1 If n = 4 Then n = 0 End If Opt1(n).Value = True End Sub 步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用

6、题 【审题分析】本题其实就是设计一个简单的乘法运算，为避免不必要的错误，可在执 行运算前用 Val 函数将文本框中数字字符串转换为数值数据。 【操作步骤】 步骤 1：新建一个标准 EXE工程，按表 50-5 在窗体中画出控件并设置其相关属 性。 表 50-5 步骤 2：打开代码编辑窗口，编写总价命令按钮的单击事件过程。 参考代码： Private Sub Cmd1_Click() Dim num As Integer Dim rmb As Currency num = Val(Txt1.Text) rmb = Val(Txt2.Text) Pic1.Cls Pic1.Print num * r

7、mb End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 51 套 试题答案及详解 一、基本操作题 第 1 小题 【审题分析】本题只需按要求在窗体上画出滚动条并设置其属性，并在滚动条的 107 ?3? ? Change 事件过程中执行语句：Form1.Print Hsb1.Value。 【操作步骤】 步骤 1：新建一个标准 EXE工程，在窗体 Form1 中画一个水平滚动条，其属性及 其值见表 51-1。 表 51-1 步骤 2：在代码编辑窗口中，编写水平滚动条的 Change 事件过程。 参考代码： Private Sub Hsb1_Change() Form1.Print Hs

8、b1.Value End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【审题分析】本题只需按要求在窗体上画出控件并设置其属性，并在按钮的 Click 事 件过程中用图片框的 Print 语句输出这是一个图片框。 【操作步骤】 步骤 1：新建一个标准 EXE工程，在窗体 Form1 中画一个图片框和一个命令按钮， 其属性及其值见表 51-2。 表 51-2 步骤 2：在代码编辑窗口中，编写水平滚动条的 Change 事件过程。 参考代码： Private Sub Cmd1_Click() Pic1.Print 这是一个图片框 End Sub 步骤 3：按要求将文件保存至考生

9、文件夹中。 二、简单应用题 第 1 小题 【审题分析】本题计算按钮单击事件过程源代码的设计思路：先用两变 a 和 b 分别记录在两个文本框输入的数据，并通过比较大小，使变 b 的值始终大于变 a 的值， t 为交换变 a 和 b 值的中间变 。然后利用 For 循环（循环变 i 的初值为 a，终值为 b）， 将 i 的值逐个累加到变 s，循环结束时将变 s 的值显示在文本框中。 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 vbsj3.vbp，在代码编辑窗口，编写计算 按钮的 Click 事件过程。 参考代码： b s = i = s + i 步骤 2：按要求将文件保存至考生文件夹中。

10、 108 第 2 小题 【审题分析】本题全部控件已画出，相关属性设置也在程序源码的窗体加载事件中设 置，只需按题目要求完善其他相关事件过程。由于标签在窗体上的移动是在计时器的 Timer 事件过程中完成的，单击开始按钮时就应启动计时器，因此 Cmd1_Click 事件过程中 的第 1 个？处应为 True；要禁用开始按钮就应设置其 Enabled 属性值为 False，第 2 个？处应为 False。 单击停止按钮时要停止标签移动，就是要停止计时器，故 Cmd2_Click 事件过程 中的第 3 个？处应为 False。在 Tmr1_Timer 事件过程中，要让标签每次自左至右移动 50， 可

11、在每个时间间隔使标签的 Left 属性值在原有基础上加 50 来实现，故该事件过程中第 4 个？处应改为：Lab1.Left + 50；为防止标签移出窗体，在执行移动语句前先用 If?Then? Else 对其位置进行判断。 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 vbsj4.vbp，在代码编辑窗口，去掉程序中的 注释符，将问号？改为正确的内容。 参考代码： Tmr1.Enabled = True Cmd1.Enabled = False Tmr1.Enabled = False Lab1.Left = Lab1.Left + 50 步骤 2：按要求将文件保存至考生文件夹中。 三

12、、综合应用题 【知识点播】LOF 函数可返回一个用 Open 语句打开的文件的大小，该大小以字节为 单位，返回值为 Long 数据类型。 【审题分析】本题源程序设计思路：在文件写入命令按钮的单击事件过程中，先 用 Open 语句打开考生文件夹下的随机文件 dw1.dat，并通过计算得到随机文件现有记录 数，存入变 RecNum；然后在 Do 循环中，为自定义数据类型变 Pers 的各元素赋值， 用 Put 语句将该变 的值写入打开的随机文件中（记录号为 RecNum+1），并通过输入对 话框询问是否要再输入新记录，Do 循环以输入对话框中返回值为Y（或y）作为循 环条件。 在 文件读出命令按钮

13、的单击事件过程中，先用 Open 语句打开考生文件夹下的随机 文件 dw1.dat，并通过计算得到随机文件现有记录数，存入变 RecNum；然后利用 For 循环语句（初值为 1，终值为 RecNum 的值），用 Get 语句读入随机文件中相应记录号的 记录，赋值给变 Pers，并将变 Pers 各元素的值用 Print 方法显示在窗体上。 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 vbsj5.vbp，在代码编辑窗口，去掉程序中的 注释符，将问号？改为正确的内容。 步骤 2：按要求将文件保存至考生文件夹中。 第 52 套 试题答案及详解 一、基本操作题 第 1 小题 【审题分析】本

14、题只需按题目要求利用 VB 菜单设计器建立一个二级菜单即可。 【操作步骤】 步骤 1：新建一个标准 EXE工程，选择【工具】?【菜单编辑器】命令，打开菜 单设计器。 109 ?3? ? 步骤 2：在标题栏中输入文件，在名称栏中输入 mnuFile；单击下一个 按钮，在标题栏中输入帮助，在名称栏中输入 mnuHelp；单击下一个按 钮，再单击编辑区的右箭头按钮，在标题栏中输入打开，在名称栏中输 入 mnuFileOpen；单击下一个按钮，在标题栏中输入关闭，在名称栏中 输入 mnuFileClose；单击下一个按钮，在标题栏中输入退出，在名称栏 中输入 mnuFileExit，；选定帮助项，单击

15、编辑区的下箭头按钮，将其移至所有菜 单项的下面。 步骤 3：按要求将文件保存至考生文件夹中。 【考试误区】分清标题和名称及菜单项间的层次关系。 第 2 小题 【知识点播】菜单中所包含的每一个菜单项都可看成是一个命令按钮，程序运行时，选 择某菜单项将触发其 Click 事件。 【审题分析】要实现本题中的功能，应在显示菜单项的 Click 事件过程中，将字 符串 Visual Basic 赋值给文本框的 Text 属性，在清除菜单项的 Click 事件过程中，设 置文本框的 Text 属性值为空白。 【操作步骤】 步骤 1：新建一个标准 EXE工程，在窗体 Form1 中加入一个文本框，在属性设置

16、 窗口中将其 Name 属性值设置为 Txt1，Text 属性设置为空白。 步骤 2：选择【工具】?【菜单编辑器】命令，打开菜单设计器。 步骤 3：在标题栏中输入操作，在名称栏中输入 mnuOp；单击下一个 按钮，再单击编辑区的右箭头按钮，在标题栏中输入显示，在名称栏中 输入 mnuOpDis；单击下一个按钮，在标题栏中输入清除，在名称栏中输 入 mnuOpCls。 步骤 4：单击窗体 Form1 的操作菜单下的显示项，在打开的代码编辑窗口中 输入代码。 步骤 5：单击代码编辑窗口中的对象下拉列表框，从中选择 mnuOpCls，在其 Click 事 件过程中输入代码：Txt1.Text = 。

17、 步骤 6：按要求将文件保存至考生文件夹中。 【考试误区】清除文本框中所显示的信息是通过设置 Text 属性来实现的，文本框没 有 Cls 方法。 二、简单应用题 第 1 小题 【审题分析】本题通过计时器来控制火箭移动。单击发射按钮时启动计时器，在 计时器的 Timer 事件过程中，如果火箭尚未抵达云层（即 Pic1.Top Pic2.Top + Pic2.Height），则通过 Move 方法，使火箭（图片框 Pic1）每次加速上移，否则通过停止计 时器来停止火箭上移。 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 vbsj3.vbp，设置计时器的 Enabled 属性值为 Fals

18、e，Interval 属性值为 100。 步骤 2：在代码编辑窗口，去掉程序中的注释符，将问号？改为正确的内容。 参考代码： Tmr1.Enabled = True If Pic1.Top Pic2.Top + Pic2.Height Then 110 Tmr1.Enabled = False 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【审题分析】本题程序设计思路：在移动按钮的单击事件过程中，首先判断滚动 条在当前位置基础上移动与文本框中输入数值相等的刻度时，是否超过滚动条 Max 属性 值的限制，若是则弹出消息框显示输入的数值太大；否则接着判断滚动条在当前位置 基础上移动与文

19、本框中输入数值相等的刻度时，是否超过滚动条 Min 属性值的限制，若 是则弹出消息框显示输入的数值太小，否则设置滚动条的 Value 属性值为原有 Value 属性值加上文本框中的输入值。 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 vbsj4.vbp，在代码编辑窗口，去掉程序中的 注释符，将问号？改为正确的内容。 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 【审题分析】本题源程序已提供 Writedate 自定义过程，需编写读数、计算和保 存命令的单击事件过程。程序设计思路：在读数按钮的单击事件过程中，用 Open 语 句以 Input 方式打开数据文件 dr1.d

20、at，通过 For 循环语句（初值为 1，终值为 100）将数据 文件中的数据用 Input 语句依次读出并赋值给数组元素 arr(i)，同时显示在文本框中，为使 数据间保持一定间隔，每个数据后用 Space(5)加入 5 个空格；在计算按钮的 Click 事件 过程中，利用 For 循环语句（循环变 i 的初值为 1，终值为 100）依次将数组 arr 中小于或 等于 300 的元素的值显示在文本框中（条件表达式为：arr(i)=300），并将其值累加到变 Sum，循环结束后将结果显示在窗体上。在保存按钮的 Click 事件过程中，通过调用 WriteData 过程将文本框中的值写入数据文件

21、 dw1.dat。 【操作步骤】 步骤 1：新建一个标准 EXE工程，按下表在窗体中画出控件并设置其相关属性。 表 步骤 2：选择【工程】?【添加模块】命令，打开添加模块对话框，将考生文件夹下的 model.bas 添加到当前工程中。 步骤 3：在代码编辑窗口编写以下事件过程。 参考代码： Dim arr(1 To 100) As Integer Private Sub Cmd1_Click() Txt1.Text = Open App.Path & dr1.dat For Input As #1 111 ?3? ? For i = 1 To 100 Input #1, arr(i) Txt1

22、.Text = Txt1.Text & arr(i) & Space(5) Next Close #1 End Sub Private Sub Cmd2_Click() Dim sum As Integer For i = 1 To 100 If arr(i) = 300 Then sum = sum + arr(i) End If Next Txt1.Text = sum End Sub Private Sub Cmd3_Click() writedata dw1.dat, Txt1.Text End Sub 步骤 4：按要求将文件保存至考生文件夹中。 第 53 套 试题答案及详解 一、基本

23、操作题 第 1 小题 【审题分析】要实现本题要求的功能，只需在命令按钮的单击事件过程中，设置命令 按钮的 Left 属性值增加 50。 【操作步骤】 步骤 1：新建一个标准 EXE工程，在窗体中画一个名 Cmd1 命令按钮，并设置其 Caption 属性值为移动按钮。 步骤 2：打开代码编辑窗口，编写命令按钮的 Click 事件过程。 参考代码： Private Sub Cmd1_Click() Cmd1.Left = Cmd1.Left + 50 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【审题分析】本题需用菜单设计器建立菜单，并编写显示和隐藏菜单项的单 击事

24、件过程。 【操作步骤】 步骤 1：新建一个标准 EXE工程，在窗体 Form1 中画一个标签，在属性设置窗口 中将其 Name 属性值设置为 Lab1，Caption 属性设置为空白，BorderStyle 属性设置为 1-Fixed Single。 步骤 2：选择【工具】?【菜单编辑器】命令，打开菜单设计器，按表 53-1 中的设置 建立菜单项。 112 表 53-1 步骤 3：打开代码编辑窗口，编写以下事件过程： 参考代码： Private Sub mnuOpDis_Click() Lab1.Visible = True Lab1.Caption = 二级 Visual Basic End

25、 Sub Private Sub mnuOpHide_Click() Lab1.Visible = False End Sub 步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 第 1 小题 【知识点播】KeyPreview 属性用于设置是否在控件的键盘事件之前激活窗体的键 盘事件，键盘事件有 KeyDown、KeyUp 和 KeyPress。KeyDown(KeyCode As Integer,Shift as Integer)事件是在对象具有焦点时，按下键盘上的键时触发该对象的事件，其中 KeyCode 参数是表示所按键的位置信息的代码，Shift 参数代表按键时 Shift、C

26、trl、Alt 键的状态。 【审题分析】本题程序设计思路：在窗体的 KeyDown 事件过程中，先后用两个 If 语 句判断当前键盘上按下的是否是键或键，若是键则通过输入框输入内容，显 示在文本框中，并添加到列表框中；若是键则通过输入框输入内容，显示在文本框中， 利用 For 循环语句逐一判断列表框中的各项是否与文本框中的内容一致，若一致则删除该 项目。ListCount 属性可返回列表框中当前的列表项总数，由于循环的初值为 0，故终值就 应为 Lst1.ListCount-1。 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 vbsj3.vbp，按表 53-2 在窗体中画出控件并 设置

27、其相关属性。 表 53-2 步骤 2：在代码编辑窗口，去掉程序中的注释符，将问号？改为正确的内容。 参考代码： Lst1.AddItem Txt1.Text For i = 0 To Lst1.ListCount - 1 If Lst1.List(i) = Txt1.Text Then Lt1.RemoveItem i 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【知识点播】Trim 函数用于删除字符串左右两边的空格；Right()函数用于取出 已有字符串最右边指定个数的字符串；Left()函数用于取出已有字符串最左边指定个 113 ?3? ? 数的字符串；Mid(字符串,起始位

28、置,个数)函数用于从已有字符串中取出从指定位置 开始的含指定个数字符的字符串。 【审题分析】本题源程序的中心设计思想是：将文本框 Txt1 中的字符串按组合框中 所选要求进行截取并放入文本框 Txt2 中。源程序以组合框列表项的索引号（即 ListIndex 属性值）作为 Select Case 语句的判断表达式，故第 1 个？处应为 Cbo1.ListIndex；组合框 中第三项要求截取第 36 个字符，其实就是从字符串的第 3 个字符开始，截取 4 个字符， 故 Mid 函数的第 2、3 个参数应为 3 和 4；最后的？处是将截取结果显示在文本框中，故 应为 tmpStr。 【操作步骤】

29、步骤 1：打开考生文件中的本题工程文件 vbsj4.vbp，在代码编辑窗口，去掉程序中的 注释符，将问号？改为正确的内容。 参考代码： Select Case Cbo1.ListIndex tmpStr = Mid(Trim(Txt1.Text), 3, 4) Txt2.Text = tmpStr 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 【审题分析】本题源程序中已包含一个能判断一个数是否为素数的函数 isprime。因 此本题在利用 If 语句判断单选按钮选中情况的基础上，可以通过循环调用 isprime 函数来 判断指定范围内素数的和。 【操作步骤】 步骤 1：打开考生文

30、件中的本题工程文件 vbsj5.vbp，在代码编辑窗口，去掉程序中的 注释符，将问号？改为正确的内容。 步骤 2：按要求将文件保存至考生文件夹中。 第 54 套 试题答案及详解 一、基本操作题 第 1 小题 【审题分析】双击列表框中的某个项目，将触发其 DblClick 事件，要实现双击列表 框中的某一项，则将文本框中内容添加到列表框中的功能，只需在 DblClick 事件过程中 编写用 AddItem 方法添加项目的语句即可。 【操作步骤】 步骤 1：新建一个标准 EXE工程，按表 54-1 在窗体中画出控件并设置其相关属 性。 表 54-1 步骤 2：打开代码编辑窗口，编写列表框的 Dbl

31、Click 事件过程。 参考代码： Private Sub Lst1_DblClick() Lst1.AddItem Txt1.Text End Sub 114 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【审题分析】要实现单击输出按钮，则将文本框中内容显示在窗体上的功能，只 需在按钮的 Click 事件过程中编写用 Print 方法输出文本框中内容。 【操作步骤】 步骤 1：新建一个标准 EXE工程，按表 54-2 在窗体中画出控件并设置其相关属 性。 表 54-2 步骤 2：打开代码编辑窗口，编写命令按钮的 Click 事件过程。 参考代码： Private Sub Cmd1

32、_Click() Print Txt1.Text End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 第 1 小题 【知识点播】在实际应用中，较为复 的应用程序通常由多个窗体组成，且可设置 其中一个为启动窗体，只有启动窗体才能在运行程序时自动加载并显示出来。与多窗体操 作有关的语句和方法主要有： Load 语句：该语句用于将一个窗体装入内存，其语法格式为：Load 窗体名称。 Unload 语句：该语句用于卸载内存中指定的窗体，与 Load 语句的功能相反。其语法 格式为：Unload 窗体名称。注意：一般用me代表当前窗体。 Show 方法：该方法用于加载并显示一个窗

33、体，其语法格式为：窗体名称.Show 模式。 其中模式可选项的取值为 0（默认值）或 1，当值为 1 时，窗体为模态，此时用户不能对 其他窗体进行操作，直到该窗体关闭为止。 Hide 方法：该方法用于将窗体隐藏起来，其语法格式为：窗体名称.Hide。 在多个窗体组成的程序中，可以在一个窗体中读取另一个窗体中控件的属性值，其 语法格式为：窗体名称.控件名称.属性名称。 窗体的 ControlBox 属性用于设置在窗体标题栏左侧是否显示控制按钮，该属性在 运行时为只读。如果要显示控制按钮除应将 ControlBox 属性值设置为 True，还必须将窗 体的 BorderStyle 属性值设置为 1

34、（固定单边框）、2（可变尺寸）或 3（固定对话框）。 文本框的 PasswordChar 属性常用于设置用某字符（如*）屏蔽用户在文本框中键入的 内容，常用于口令输入，要使 PasswordChar 属性有效，Multiline 属性的值必须设置为 False。 【审题分析】本题源程序设计思路：程序运行时，在 Form1 启动窗体中输入和选择 相关内容后，单击提交按钮时，加载并显示 Form2（故单击事件过程中第 1 个？处应 为 Show），并用 Print 方法将 Form1 中各控件的标题内容显示在 Form2 中（故第 2 个？处 应为 Caption）。在性别选择上，源程序利用 Fo

35、r 循环逐一判断单选按钮组中的两个元 素是否（If）被选中，选中的依据是当前单选按钮的 Value 属性值为 True，选中的单选按 钮的标题将被显示（故第 3 个？处应为 k）。 115 ?3? ? 本题在密码框中显示*字符的设置不是在设计阶段完成的，而是在程序运行 时通过代码来实现的，故在窗体 Form1 的 Load 事件过程中应将？处改为 PasswordChar。 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 vbsj3.vbp。 步骤 2：选中 Form1 窗口，将其 Caption 属性设置为注册。 步骤 3：选中 Form2 窗口，将其 Caption 属性设置为确认

36、，ControllBox 属性设置 为 False。 步骤 4：打开代码编辑窗口，去掉程序中的注释符，将问号？改为正确的内容。 参考代码： Form2.Show Form2.Print Form1.Frame1.Caption; ：; If Form1.Opt1(k).Value Then Txt2.PasswordChar = * 步骤 5：按要求将文件保存至考生文件夹中。 【考试误区】正确把握程序设计思路是解决本题的关键。 第 2 小题 【审题分析】本题通过计时器的 Timer 事件来控制直线控件的位置，从而实现钟表上 的指针走时的功能。为使计时器的 Timer事件每秒激活一次和程序刚运行

37、时钟表指针不动， 需将计时器的 Interval 属性值设置为 1000，Enabled 属性值设置为 False。在开始按钮 的单击事件过程中，通过设置计时器的 Enabled 属性值为 True 来启动计时器。在停止 按钮的单击事件过程中，通过设置计时器的 Enabled 属性值为 False 来停止计时器。 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 vbsj4.vbp，在属性设置窗口，设置计时器的 Interval 属性值为 1000，Enabled 属性值为 False。 步骤 2：在代码编辑窗口，编写开始和停止按钮的单击事件过程。 步骤 3：按要求将文件保存至考生文件夹中

38、。 三、综合应用题 【审题分析】本题源程序已提供 ReadData 和 WriteData 两个自定义过程，只需编写读 数、计算和保存命令的单击事件过程，并在事件过程中调用 ReadData 和 WriteData 自定义过程。程序设计思路：在读数菜单项的 Click 事件过程中，通过调用 ReadData 过程将数据从 dw1.dat 文件读入到数组 Arr（窗体变 ）中；在计算菜单项的 Click 事 件过程中，利用 For 循环语句（循环变 i 的初值为 1，终值为 100，步长为 2）依次将数 组 Arr 中下标为奇数的元素的值显示在文本框中，并将其值累加到变 Sum，循环结束将 结果

39、显示在窗体上。在保存菜单项的 Click 事件过程中，通过调用 WriteData 过程将 Sum 的值写入数据文件 dw1.dat。 注意：调用 WriteData 过程时需传递参数 dw1.dat 和 Sum，变 Sum 应声明为窗体变 。 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 vbsj5.vbp，利用菜单设计器，按表 54-3 中的设 置建立菜单项。 表 54-3 116 步骤 2：在窗体 Form1 中画一个文本框，其相关属性及其值见表 54-5。 表 54-5 步骤 3：在代码编辑窗口，分别编写读数、计算和保存按钮的 Click 事件 过程。 参考代码： Privat

40、e Sub mnuCal_Click() For i = 1 To 100 Step 2 Txt1.Text = Txt1.Text & Arr(i) & Space(5) sum = sum + Arr(i) Next Print sum End Sub Private Sub mnuRead_Click() ReadData End Sub Private Sub mnuSave_Click() WriteData dw291.dat, sum End Sub 步骤 4：按要求将文件保存至考生文件夹中。 第 55 套 试题答案及详解 一、基本操作题 第 1 小题 【审题分析】要实现本题所要

41、求的功能应在左端、居中和右端3 个命令按 钮的单击事件过程中，设置水平滚动条的 Value 属性值分别与其 Min 属性值、Max 属性值 及 Max/2 值一致。 【操作步骤】 步骤 1：新建一个标准 EXE工程，按表 55-1 在窗体中画出控件并设置其相关属性。 表 55-1 步骤 2：在代码编辑窗口，编写 3 个按钮的单击事件过程。 步骤 3：按要求将文件保存至考生文件夹中。 【特别提示】如果水平滚动条的 Min 属性值不为 0 时，居中时应设置 Value 属性值为 (Max+Min)/2。 117 ?3? ? 第 2 小题 【审题分析】要实现本题中的功能，应在体育按钮的 Click

42、事件过程中，用 Print 语句在窗体上输出我喜欢体育，在美术按钮的 Click 事件过程中，用 Print 语句在 窗体上输出我喜欢美术。 【操作步骤】 步骤 1：新建一个标准 EXE工程，在窗体 Form1 中加入两个命令按钮，分别设置 它们的相关属性，其属性及其值见表 55-2。 表 55-2 步骤 2：单击窗体 Form1 中的体育按钮，在打开的代码编辑窗口中，输入代码： Print 我喜欢体育。 步骤 3：单击代码编辑窗口中的对象下拉列表框，从中选择 Cmd2，在其 Click 事件过 程中输入代码：Print 我喜欢美术。 步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 第 1 小题 【审题分析】本题其实就是编写确定按钮的单击事件过程。设计思路：由于单选 按钮数组选择的惟一性，可用一个 If?Then?Else 语句对可能出现的两种情况（Opt1 或 Opt2 被选中）分别进行处理，为 Txt1 的 FontName 属性设置不同值；对于两个复选框可 用两个 If?Then?Else 语句依次对其选中情况进行处理，若选中则将对应的 FontUnderline 属性值或 FontItalic 属性值设置为 True，否则设置