Visual Basic 6.0程序设计案例教程(下)ppt195.ppt

Visual Basic 6.0程序设计案例教程(下) 第5章 数组 本章内容 基本概念及操作 静态数组 动态数组 控件数组 控件 列表框（ListBox） 组合框（ComboBox） 基本概念及操作 数组 一组具有相同名字不同下标的变量构成了数组 score(1),score(2),score(3)……score(50) 例： 求50个学生的平均成绩，并统计高于平均成绩的人数。 基本概念及操作 For i = 1 To 50 score = val(InputBox(“请输入学生的成绩”)) sum = sum + score Next i ave = sum / (i - 1) Print ave End Sub 基本概念及操作 For i = 1 To 50 score(i) = InputBox(请输入学生的成绩) sum = sum + score(i) Next i ave = sum / (i - 1) Print ave For i = 1 To 50 If score(i) ave Then n = n + 1 Next i Print n 基本概念及操作 数组 静态数组 一维数组 二维数组 动态数组 一维数组 声明 声明一维数组的形式如下： Dim 数组名（[下界 To]上界）[As 类型] 例：Dim score(50) As Single score(0),score(1),score(2)……score(50) Dim a(-5 To 3) As Integer a(-5)， a(-4)， a(-3)， a(-2)， a(-1)， a(0)， a(1)， a(2)， a(3) 数组的基本操作 数组的输入 数组的输出 数组的基本操作——数组的输入 利用循环结构分别给数组元素赋值 在一维数组中利用Array函数为数组元素赋值 数组名到数组名的直接赋值。 数组的基本操作——数组的输入 利用循环结构分别给数组元素赋值 For i = 1 To 50 score(i) = InputBox(请输入学生的成绩) Next i 数组的基本操作——数组的输入 在一维数组中利用Array函数为数组元素赋值 其格式为 ： 数组名=Array（数组元素值） 例：Dim s() s=Array(1,2,3,4,5) 将1，2，3，4，5这5个数赋值给数组s即s(0),s(1),s(2),s(3),s(4)的值分别为1，2，3，4，5。 数组的基本操作——数组的输入 数组名到数组名的直接赋值 例如： Dim a(), b() a = Array(1, 2, 3, 4, 5) b = a 将数组a的值1，2，3，4，5赋值给数组b相应的元素。 数组的基本操作——数组的输出 For Each．．．Next语句 其一般格式为： For Each 成员 In 数组 循环体 [Exit For] …… Next [成员] 数组的基本操作——数组的输出 用循环结构 例： Dim s() S=array(1,2,3,4,5) For i=0 to 4 print s(i); Next i 数组的使用 【实例5.1-2】输入大赛选手的姓名和成绩，输出成绩列表 。 编写代码——数组赋值 数组赋值 Dim nam(9) As String, score(9) As Single, b As Boolean, i As Integer, j As Integer Const N = 9 编写代码——数组赋值 Private Sub txtname_LostFocus() If txtname.Text Then nam(i) = txtname.Text Else nam(i) = * End If i = i + 1 If i N Then txtname.Enabled = False End Sub 编写代码——数组赋值 Private Sub txtscore_LostFocus() If txtscore.Text Then score(j) = Val(txtscore.Text) Else score(j) = 0 End If j = j + 1 txtname.Text = txtscore.Text = If j N Then txtscore.Enabled = False End Sub 编写代码——显示选手的成绩 列表框lstscore中显示选手的成绩 Private Sub cmdshow_Click() Dim i