2014全国计算机二级VB上机试题及答案：简单应用题4

　　二、简单应用题

　　（1）在考生文件夹中有一个工程文件 vbsj3.vbp 及其窗体文件 vbsj3.frm。在名为 Form1的窗体中有一个名为 Txt1 的文本框；请在窗体上绘制两个名称分别为 Fra1 和 Fra2 的框架， 其标题分别为“性别”和“身份”；在 Fra1 中绘制两个名称分别为 Opt1 和 Opt2 的单选按 钮，其标题分别为“男”和“女”；在 Fra2 中绘制两个名称分别为 Opt3 和 Opt4 的单选按 钮，其标题分别为“学生”和“老师”；再绘制一个名为 Cmd1 的命令按钮，其标题为“确 定”。程序界面如图 57-3 所示。

图 57-3

　　请编写适当的事件过程，使得在运行时，在 Fra1、Fra2 中选一个单选按钮，然后单 击“确定”按钮，就可以按照下表把结果显示在文本框中。

　　注意：不得修改窗体文件中已经存在的程序和 Txt1 的属性，在结束程序运行之前， 必须进行能够产生上表中一个结果的操作；必须用窗体右上角的关闭按钮结束程序，否则 无成绩。最后保存修改后的文件。

　　（2）在名为Form1的窗体上建立一个名为Txt1的文本框；建立一个名为Cmd1的命令按钮，其标题为“计算”。要求程序运行后，如果单击“计算”按钮，则求出1~30之间所有可以被7整除的数的乘积并在文本框中显示出来，如图57-4所示，结果存入考生文件夹中的dw2.dat文件中。

图 57-4

　　在考生的文件夹中有一个 model.bas 标 准 模 块 ，该模 块 中 提供 了保存文件的过程writedata，考生可以直接调用。

　　注意：文件必须存放在考生文件夹中，窗体文件名为 vbsj4.frm ，工程文件名为vbsj4.vbp。

　二、简单应用题 

　　第 1 小题 

　　【知识点播】①某容器（如窗体和框架）中的单选按钮（OptionButton）组常用于提供多个选项间的唯一选择，其 Value 属性用于设置或返回每个单选按钮的选中状态：值为False 时表示未被选中，值为 True 时表示被选中，其 Caption 属性来设置或返回单选按钮的标题内容。 

　　②分支控制结构是结构化程序设计的基本结构之一，它所要解决的是根据条件判断的结果决定程序执行的流向。选择控制结构就是其中一种，它是由 2 分支构成的，就是说，条件要么是真，要么是假，没有其他的选择。在执行结构时按照所指定的条件进行判断并选择其中一组语句来执行。If 语句就是一种选择控制结构，其一般语法为： 

　　If  条件 Then语句块A Else 

　　语句块B End If 

　　功能：判断条件，如果条件为"真"，则执行语句块 A 部分，反之则执行语句块 B 部分。 

　　【审题分析】根据题目要求，在本题的程序设计上，以 Fra1 中的 Opt1 是否选中作为If?Then?Else 语句的条件，由此分出两种情况，Opt1 被选中或 Opt2 被选中。在条件为真（即 Opt1 被选中）时，再使用一个嵌套的 If?Then?Else 语句对 Fra2 中 Opt3 和 Opt4的选中情况进行分类，当 Opt3 被选中时，文本框中显示"我是男学生"，否则显示"我是女学生"；同理在条件为假（即 Opt2 被选中）时，也用类似方法处理。这样一共就有四种可能：Opt1 和 Opt3 被选中、Opt1 和 Opt4 被选中、Opt2 和 Opt3 被选中或 Opt2 和 Opt4被选中，对于可能出现的不同选择对照题目中表的规定，修改 Txt1 的 Text 属性值，以显示不同内容。以上判断和显示操作均在 Cmd1 的 Click 事件中完成。 

　　【操作步骤】 

　　步骤 1：打开考生文件夹下的本题工程文件 vbsj3.vbp。 

　　步骤 2：在窗体 Form1 中加入两个框架和一个命令按钮，然后在每个框架中各加入两个单选按钮，分别设置它们的相关属性，属性及其值见表 57-3。 

　　步骤 3：打开代码编辑窗口输入如下代码： 

　　参考代码： 

　　Private Sub Cmd1_Click() 

　　If Opt1.Value = True Then 

　　If Opt3.Value = True Then 

　　Txt1.Text = Opt1.Caption + Opt3.Caption 

　　Else 

　　Txt1.Text = Opt1.Caption + Opt4.Caption 

　　End If 

　　Else 

　　If Opt3.Value = True Then 

　　Txt1.Text = Opt2.Caption + Opt3.Caption 

　　Else 

　　Txt1.Text = Opt2.Caption + Opt4.Caption 

　　End If 

　　End If 

　　End Sub 

　　步骤 4：按要求将文件保存至考生文件夹中。 

　　【考试误区】在一个容器中的多个单选按钮只能有一个被选中，由此分出不同分支，理清思路是关键。 

　　第 2 小题 

　　【审题分析】本题程序设计思路：在"计算"按钮的单击事件过程中，将 For 循环语 句的循环变（如变I 的值为 1~30 间的所有整数）的取值逐一除以 7，并将能被 7 整除 的整数累积入一个变（如 temp），判断整数 A 能被整数 B 整除的条件表达式为 A  Mod B=0。然后将循环结束时变temp  的值显示在文本框中，并调用本题源程序所提供标准模块 model.bas 中的 writedata 过程，将变temp 的值存入文件 dw2.dat。 

　　【操作步骤】 

　　步骤 1：新建一个"标准 EXE"工程，按表 57-4 在窗体 Form1 中画出控件并设置其属性。  

　　步骤 2：选择【工程】?【添加模块】命令，打开添加模块对话框，将考生文件夹下的model.bas 添加到当前工程中。 

　　步骤 3：打开代码编辑窗口，编写"计算"按钮的单击事件过程。 

　　步骤 4：按要求将文件保存至考生文件夹中。 

　　【考试误区】在调用过程保存数据时，一定要根据过程的定义正确传递参数。