2014全国计算机二级VB上机模拟题：简单应用题4_第2页

　　第 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：按要求将文件保存至考生文件夹中。 

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