7第七章数组.ppt

第7章 数组 第七章 数组 分析： 1）10名学生的成绩已知，如何表示这个已知？ ----定义数组，为其进行赋初值(How)； 2） 分别输出10名学生的成绩 3）统计成绩大于80分的人数 ----比较For Next循环和For Each Next 【例7.7】现有10名学生成绩，统计成绩大于80分的人数。 第七章 数组 Option Base 1 Private Sub Form_Load() Show Const N = 10 Dim Count As Integer ‘ Count 变量用于统计80分人数 Dim one, Score ’ one和Score都是Variant类型 Score = Array(67, 78, 45, 90, 85, 63, 93, 82, 48, 88) 数组初始化 Array函数只适用于对一维数组进行初始化！ 第七章 数组 Count = 0 输出部分 Print 成绩分别是： For I=1 to 10 Print score(I); ‘ 输出每个元素 IF score(I) 80 Then Count=Count + 1 Next i Print 输出换行 Print 成绩80的人数有; Count; 个 End Sub For Each t In Score Print t; ‘ 输出每个元素 If t 80 Then Count = Count + 1 Next t 第七章 数组 思考：VB中界面设计的过程和方法… VB是可视化的设计语言，在设计应用程序界面时会用到许多控件对象，当需要对多个控件对象进行统一管理时，可以把它们当作一个整体即控件数组来处理。 对比来说，前面学习的数组是普通数组，它的类型可以是VB中规定的所有数据类型，也可以是用户自定义类型。 那么，控件数组是什么？ 7.5 控件数组 第七章 数组 7.5.1 控件数组的概念 控件数组由一组相同类型的控件组成，这些控件共用一个相同的控件名。即控件数组中每个控件的“名称”属性设置为统一的控件数组名。每个控件都有一个唯一的索引号（即下标值），索引号由控件的Index属性设置，所以通过Index的值来区分控件数组中的某个元素。Index的最小值为0，最大值为32 767。 7.5.2 建立控件数组方法 1、对建立的多个控件设置相同的控件名 2、利用剪贴板复制粘贴功能自动建立 第七章 数组 【例7.8】创建如图所示界面，单击任一个字体单选钮，文本标签就变为何种字体显示。 1、窗体的设计 2、程序设计 Private Sub Form_Load() fontStyle(0).Value = true ‘先指定第一个单选钮被选中 Label1.Font = 宋体 End Sub Private Sub fontStyle_Click(Index As Integer) If Index = 0 Then Label1.Font = 宋体 If Index = 1 Then Label1.Font = 黑体 If Index = 2 Then Label1.Font = 楷体_GB2312 End Sub 1、一个控件数组在某一时刻只有一个控件元素被选中 2、控件数组中的不同元素可用Index属性区别 Private Sub fontStyle1_Click(Index As Integer) Label1.Font = 宋体 End Sub Private Sub fontStyle2_Click(Index As Integer) Label1.Font = 黑体 End Sub Private Sub fontStyle3_Click(Index As Integer) Label1.Font = 楷体_GB2312 End Sub 第七章 数组 7.6 数组的应用举例 【例7.9】输入10个数，用选择法按由小到大排序 82 78 7