PPT8 数组.ppt

控件数组Text1的4个元素为：Text1(0)～Text1(3) Private Sub Command1_Click() s = 0 For i = 0 To 3 s = s + Val(Text1(i).Text) Next i Text2.Text = s End Sub 注意：控件数组元素的表示方法与列表框表项有所不同 列表框List1的表项内容为：List1.List(0)、 List1.List(1)、……。下标规定为顺序号0，1，2，……。 一个列表框控件，其List属性是一个数组。 控件数组Text1的元素内容为：Text1(0).Text、Text1(1).Text、……。下标可由用户指定，不一定为顺序号。 多个控件组成一个数组，相同名称。使用这些控件的Text属性。 例8.7 按图6.5设计窗体，其中一组(共3个)单选按钮构成控件数组，要求当单击某个单选按钮时，能够改变文本框中文字的大小 例8.7 控件数组 设计步骤： (1)设计控件数组Option1，其中包含3个单选按钮对象 设置控件数组各元素(从上而下)的Caption属性分别为12，20和28  (2)建立一个文本框Text1，其Text属性设置为“控件数组的使用”。再建立一个标签，其Caption属性为“字号控制”  (3)编写程序代码 Private Sub Form_Load() Option1(0).Value = True 选定第一个单选按钮 Text1.FontSize = 12 设定文本框中的字号 End Sub Private Sub Option1_Click(Index As Integer) Select Case Index 系统自动返回Index值 Case 0 Text1.FontSize = 12 Case 1 Text1.FontSize = 20 Case 2 Text1.FontSize = 28 End Select End Sub 控件数组的事件过程 数组是程序设计中广泛使用的一种数据结构，它可以方便灵活地组织数据。 数组应用的一个重要内容：排序与查找 排序：将一组数按递增或递减的次序排列 查找：从数组中查找所需的数据 8.6 程序举例 排序 查找 顺序查找 折半查找 …… 选择法排序 冒泡法排序 …… 随机产生十个10～100的整数，用“选择排序法”按值从小到大顺序排序，最后输出结果。 解题方法： (1)利用Int(91*Rnd+10)产生值为10到100的随机整数 使用Randomize得到不同的随机数序列 (2)按值从小到大进行排序。排序方法： 将10个数放入数组a中，对下列下标变量进行排序处理： a(1), a(2), a(3), … ， a(8) , a(9) , a(10) ① 从这10个下标变量中，选出最小值，通过交换把该值存入a(1)中 ② 除a(1)之外(a(1)已存放最小值)，从其余9个下标变量中选出最小值(即10个数中的次小值)，通过交换把该值存入a(2)中 ③ 选出a(3)～a(10)中的最小值，通过交换，把该值存入a(3)中 ④ 重复上述处理，至a(8)，可使a(1)～a(8)按小到大排列 ⑤ 第9次处理，选出a(9)及a(10)中的最小值，通过交换把该值存入a(9)中，此时a(10)存放的就是最大值 例8.8 选择排序法 排列要求 小 大 示例： a(1)