第7章数组分析.ppt

第7章 数组与记录 　　例如计算这100个学生成绩的平均分，如果不用数组而用简单变量，就必须用语句： 　　　　s=(s1+s2+s3+s4+s5+…+s98+s99+s100)/Aver=s/100 　如果用数组，可以用如下循环语句： S＝0 For k=0 To 99 S = S + E(k) ‘累加分数 Next k Aver=S/100 ‘求平均分 　这里就使用了数组E，利用数组E内所包含的数组元素(有100个下标变量)，可以存放100个学生的成绩，求和后就可以算出平均分。 7.1.1 数组的概念 定义:将一组排列有序、个数有限的变量作为一个整体，用一个统一的名字来表示，这些同类型的有序变量的集合称为一个数组，这个统一的名字就是数组名。 Dim Student ( 3 ) As Integer Dim c ( 1 To 2，1 To 3，1 To 4 ) As Single 1、Label控件的Caption属性显示 2、TextBox控件的Text属性显示 3、Print方法 7.4 数组的删除 7.5 使用For Each...Next循环处理数组 7.6 用户定义类型的数组 7.7 数组的应用 Private Sub Command1_Click() Dim No(10) As Integer, grade(10) As Integer Dim m As Integer, low As Integer, high As Integer Dim flag as boolean Num=val(inputbox(输入待查学号)) Low =1:high=10:Flag=false Do While low = high m = Int(low + high) / 2 取中点 Select Case num Case No(m) 找到 debug.print 学号为： ；No(mid)； 成绩为;grade(mid) flag=true: Exit DO Case Is No(m) 小于中间数据 high = m - 1 上半部 Case Is No(m) 大于中间数据 low = m+ 1 下半部 End Select Loop If flag=false then Msgbox “查无此学生!“ End sub 7.8 控件数组 例如: 命令按钮数组Command1的单击事件过程为: Private Sub Command1_Click(Index As Integer) 在此过程中可以根据Index的值决定 当前按下哪个按钮，以便做相应的处理 End Sub Private Sub Option1_Click(Index As Integer) Select Case Index Case 0 Shape1.FillColor = vbWhite Case 1 Shape1.FillColor = vbBlue …… Case 6 Shape1.FillColor = vbYellow End Select End Sub low＝1 high＝10 m=5 83 71 92 98 62 57 67 80 78 99 数学 1110 1109 1108 1107 1106 1105 1104 1103 1102 1101 学号 high=m-1 low＝6 high＝10 m=8 83 71 92 98 62 57 67 80 78 99 数学 1110 1109 1108 1107 1106 1105 1104 1103 1102 1101 学号 low＝m=6