实验5-数组答案

VB程序设计实验五

实验目的

●掌握一维数组和二维数组的操作

●学习跟数组相关的控件：列表框和组合框

复习

1.列表框

列表框（ListBox）控件允许用户查看和选择列表中的多个元素。

表5-11 列表框的常用属性和事件

2.组合列表框（ComboBox）整合了列表框和文本框的功能，以一个文本框控件（TextBox）

右边加上一个向下箭头的样式显示。有Simple（简单组合框）、DropDown（下拉组合框）和DropDownList（下拉列表框）。其中，Simple选项不显示下拉箭头，而是在控件的旁边显示一个滚动条；DropDown风格（默认值）在单击向下箭头时显示一个下拉列表，且在ComboBox中输入一个值；DropDownList显示一个下拉列表，但不允许用户在ComboBox中输入。

表5-13 组合列表框的常用属性和事件

(1) Items.Count属性：列表框或组合框中项目数量。最后一项的序号为Items.Count-1，该属性只能在程序中设置或引用。

(2) Text属性：被选定的选项的文本内容。该属性只能在程序中设置或引用。

注意：ListBox1.Items(ListBox1.SelectedIndex)等于ListBox1.Text。

(3) Items.Add方法

把一个选项加入列表框，格式：对象.Items.Add(选项)；如：ListBox1.Items.Add("周海涛")

(4) Insert方法

在指定位置插入一个项目。格式：对象.Items.Insert(序号, 添加项内容)

(5)Items.Remove方法

从列表框中删除指定的项。格式：对象. Items.Remove (选项)。

例如：ListBox1.Items.Remove ("华成")

(6)Items.RemoveAt方法

格式：对象.RemoveAt(Index)

从列表框中删除指定的项。Index表示被删除项目在列表框中的位置，从0开始。

例如：ListBox1.Items.RemoveAT(4)

(7) Items.Clear方法

格式：对象.Items.Clear

用于清除列表框所有项目，例如：ListBox1.Items.Clear

4.单选按钮、复选框和框架

1)单选按钮(RadioButton)

单选按钮以组的形式出现，允许选择其中一项。

•Text属性：按钮上显示的文本

•TextAlign属性：文本对齐方式

•Checked属性：表示单选按钮的状态，True ——被选定，False ——未被选定•Click事件：单击后，使Checked属性为True

•CheckedChanged事件:当某个单选按钮的状态被发生变化，该事件随之被触发。2)复选框(CheckBox)

与RadioButton具有相同属性和事件，之外还有：

•CheckState属性：表示复选框状态，Unchecked——未选定，Checked——被选定，Indeterminate——灰色

3)框架(GroupBox分组框)

•Text属性：标题文本

•Enabled属性：框架和其中的控件

•Visible属性：为False时，框架及其所有控件都被隐藏起来。

框架可以响应Click和DoubleClick事件，但一般不需要编写事件过程。

实验内容

1.参照下图界面，程序运行时，可根据用户的需要，设置字体的前景色、背景色、字体大小等，文本框中的文字会发生相应改变。其中，字体、字体大小、字体效果、字体背景色、字体前景色分别为框架。设计时，先建立框架，再将各个控件分别放入框架内，当移动框架时，里面的控件同时移动。保存项目为shiyan5-1。

创建项目：

1）双击工具箱的“容器”选项卡下的GroupBox按钮，在窗体上建立5个框架控件，分别将其Text属性设置为“字体”、“字体大小”、“字体效果”、“字体背景色”和“字体前景色”。

2）单击RadioButton按钮，在“字体”和“字体大小”框架中画出单选按钮，并设置其Text属性。

3）单击ListBox按钮，在“字体效果”框架中画出列表框，单击Items属性旁的按钮，输入列表项的内容（如“加粗”、“斜体”等），并每项内容之间按Enter键。

4）单击CheckBox按钮，在“字体背景色”框架中画出复选框，并设置其Text 属性。其中，“Red”复选框的Checked属性值为True。

5）单击ComboBox按钮，在“字体前景色”框架中画出下拉列表框，其属性值通过Form_Load事件过程设置。

提示：

（1）在通用声明段中声明6个变量R、G、B、rr、s、f，R、G、B分别用于保存字体背景红、绿、蓝色的设置，rr用于保存颜色，s用于保存字体大小，f用于保存字体。

Dim R%, rr%, G%, B%, s%, f$ '声明R、G、B、rr、s、f为窗体模块级变量在Form_Load事件过程中设置颜色的初始值，并添加“字体前景色”下拉列表中的列表项。

R = 255 : G = 0 : B = 0

s = 9 : f = "宋体"

ComboBox1.Items.Add("Black")‘在组合框中添加项目，第1项下标为0开始

ComboBox1.Items.Add("White")

ComboBox1.Items.Add("Yellow")

ComboBox1.Text = "Black"‘设置当前选项为"Black"