二、简单应用题
1．【解析】本题主要考查列表框的使用。首先按题目要求在窗体上画一个列表框和一个文本框，并分别设置它们的属性。
列表框的AddItem方法用于将项目(字符串表达式)添加到ListBox(列表框)中；列表框的RemoveItem方法用于从ListBox控件中删除指定的一项；ListCount属性返回控件的列表部分项目的个数；List属性返回或设置列表框控件的列表部分的项目。
当鼠标单击时Button参数的值为1，当鼠标右击时时Button参数的值为2。
【解题步骤】
(1)控件的主要属性设置见表21-3所示。
表21-3
控件 |
控件名 | 属性名 |
| 列表框 | List1 | |
| 文本框 | Text1 | Text |
(2)编写程序代码：
2．【解析】Lbound0函数和函数Ubound()分别返回数组的最小下标值和最大下标值。在Visual Basic中，变量的默认初始值为0。如果变量Min在运算前没有赋初值，那么数值0就参与了其他数据的比较，可能就会得到错误的结果。在数组中求最大值和最小值时，用于比较的变量初始值应为数组的首元素值。获得最小值的条件是：只要比被比较变量小的值，就将该值赋给被比较变量：获取最大值的条件则相反。当数组作为实际参数时，只能使用数组名。
【解题步骤】程序提供代码：
三、综合应用题
【解析】本题考查文本框、菜单和数组的使用。首先按试题要求在窗体上画一个文本框，并分别设置其属性。试题中提供的子函数ReadData()的功能是从datain1.txt文件中读取数据赋给数组；WriteData()是向 dataout.txt文件写入计算结果；窗体变量Sum用于存储求值之和。满足偶数的条件为Arr(i)Mod 2＝0，回车换行符为Chr(13)&Chr(10)。
【解题步骤】
(1)控件的主要属性设置见表21－4。
表21－4
控件 |
控件名 | 属性名 | 属性值 |
| Text | |||
| 文本框 | Text1 | MultiLine | True |
| ScrollBars | 2 |
(2)菜单项的属性设置见表21-5
表21-5
标题 |
名称 | 内缩符号 | 可见性 |
| 读入数据 | Read | 无 | True |
| 计算并输出 | Calc | 无 | True |
| 存盘 | Save | 无 | True |
(3)编写程序代码：
责任编辑：小草
