VB10-11 数组.pptVIP

练习 输入一个字符串，将该字符串颠倒过来 练习 判断下列两段程序运行的结果 练习 判断下列两段程序运行的结果 数 组 数组的定义 数组的定义 * Dim s1 As _____, s2 As _____, i As _____ s1 = Text1.Text For i = Len(s1) To 1 ________ s2 = ______ Mid(s1, i, 1) ______ Label1.Caption = s2 x = 5 Do While x 10 x = x + 1 Loop Print x x = 5 Do x = x + 1 Loop While x 10 Print x x = 15 Do While x 10 x = x + 1 Loop Print x x = 15 Do x = x + 1 Loop While x 10 Print x 引例 例1. 输入10名学生的成绩，统计其平均值和标准差 例2. 输入10位同学的姓名和成绩，显示各分数段的人数和最高分同学的姓名 例3. 输入一串字符，统计其中每个英文字母出现的频率 例4. 输入n位同学的姓名和成绩，按成绩从高到低的顺序排列并输出 数组 例1. 输入10名学生的成绩，计算其平均值及标准差 相同名称、相同类型、连续存放的一组数据 变量名相同， 以下标区分 注意：数组必须先定义，再使用 VB中普通的变量可以不定义就使用，默认为可变类型（隐式声明） 数组 数组的概念 Dim a( 2 To 5 ) As Integer a(2) a(3) a(4) a(5) 0 0 0 0 a(3) = 5 5 Dim a( 3 ) As Integer a(0) a(1) a(2) a(3) 0 0 0 0 a(1) = 5 5 省略最小下标，默认为0 设置默认最小下标为1： Option Base 1 (通用)(声明) Dim a(1 To 4) As Integer a(1)= 3 a(2)= 18 a(3)= 76 a(4)= 1 数组元素的赋值 Dim a(1 To 4) As Integer a(1)= 2 a(2)= 4 a(3)= 6 a(4)= 8 数组元素的赋值 For i = 1 To 4 a(i) = 2*i Next i Dim a(1 To 4) As Integer a(1)= InputBox(输入第1个数) a(2)= InputBox(输入第2个数) a(3)= InputBox(输入第3个数) a(4)= InputBox(输入第4个数) 数组元素的赋值 For i = 1 To 4 a(i)=InputBox(输入第+Str(i)+个数) Next i Dim a( ) 可变类型 a = Array(13,56,41,2,75) 数组元素的赋值 a(0)=13 a(1)=56 a(2)=41 a(3)=2 a(4)=75 Dim a(1 To 4) As Integer …… Print a(1) Print a(2) Print a(3) Print a(4) 数组元素的输出 For i = 1 To 4 Print a(i) Next i Dim a(1 To 20) As Double, i% a(1) = 1: a(2) = 1 For i = 3 To 20 a(i) = a(i - 2) + a(i - 1) Next i For i = 1 To 20 Print a(i), If i Mod 5 = 0 Then Print Next i 练习 写出下面程序的运行结果 斐波那契(Fibonacci) 1, 1, 2, 3, 5, 8, 13, 21, …… Option Base 1 设置默认最小下标为1 Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = i ^ 2 Next i Print a(4) Print a(i) End Sub 练习 写出下面程序的运行结果 i值为11，数组下标越界 Dim a() a为可变类型(Variant) a = Array(4, 5, 9, 6) For i = LBound(a) To UBound(a) Print a( i )= a(i) Next i 练习 写出下面程序的运行结果 UBound(数组名) 返回数组的最大下标 LBound(数组名) 返回数组的最小下标 Array(数据1,数据2,…