二、简单应用题
1．【解析】首先按题目要求在窗体上画一个标签、一个文本框、一个列表框和两个命令按钮，并分别设置它们的属性。在组合框属性窗口的List属性框中可以输入列表项初值，在组合框中选定一个值，该值将出现在Text属性中。组合框的AddItem方法是将项目(字符串表达式)添加到组合框List内；ListCount属性返回控件列表部分项目的个数。
【解题步骤】
(1)控件及其主要属性设置见表25—3。
表25-3
控件 |
控件名 | 属性名 | 属性值 |
| 标签 | Label1 | Caption | 添加项目 |
| 文本框 | Text1 | Text | |
| List(O) | 英国 | ||
| 组合框 | Combo1 | List(1) | 中国 |
| List(2) | 美国 | ||
| 命令按钮 | Command1 | Caption | 添加 |
| 命令按钮 | Command2 | Caption | 统计 |
(2)编写程序代码：
2．【解析】变量n用于记录单选按钮标题内容的值；表达式m=Len(Text1.Text)将返回Text1.Text的字符串的长度并赋值给变量m；m用于控制循环的终值，循环的作用是逐个读取字符串中的字符；表达式c=Mid$(Text1.Text，k，1)的作用是：从Text1.Text字符串中的第k个位置开始，读取一个字符，并赋值给变量C；String(n，s$)函数返回包含n个重复字符s$的字符串；变量b记录重新连接后的字符串。
程序提供代码：
参考代码：
三、综合应用题
【解析】本题考查的主要知识点是利用循环设计进行查找并求和。
(1)选择“工具”菜单中的“菜单编辑器”命令，打开菜单编辑器。菜单的属性设置见表25-102
(2)在窗体上建立一个可以多行显示的文本框，属性设置见表25-4。
表25-4
| 控件 | 属性 | 设置值 |
| 名称 | vbRead | |
| 菜单 | 标题 | 读数 |
| 名称 | vbCad | |
| 菜单 | 标题 | 计数 |
| 名称 | vbSave | |
| 菜单 | 标题 | 存盘 |
| 名称 | Text1 | |
| 文本框 | Multiline | True |
| ScrollBars | 2 |
(3)参考代码：
(4)调试并运行。
(5)按题目要求存盘。
责任编辑：小草
