1、Visual Basic Visual Basic 程序设计程序设计1精选课件ppt目 录 前言 第1讲 第2讲 第3讲 第4讲 第5讲 第6讲 第7讲 第8讲 第9讲 第第1010讲讲 第11讲 第12讲 第13讲 第14讲 第15讲 第16讲2精选课件ppt回顾上一讲学习的内容 判断条件执行循环判断条件执行循环WhileWhilewendwendDo WhileDo WhileLoopLoopDo UntilDo UntilLoopLoopDo Do Loop While Loop WhileDo Do Loop Until Loop Until3精选课件ppt上机实验中的问题 求累加和S
2、UM=SUM+K（sum的初始值一定是0）求连乘SUM=SUM*K（sum的初始值一定是1）程序填空题：特别要注意选择结构和循环结构的完整性。4精选课件ppt第六章第六章 数组数组 （4 4学时）学时）6.1 6.1 数组的引入数组的引入6.2 6.2 数组的声明数组的声明6.3 6.3 动态数组及声明动态数组及声明6.4 6.4 数组的基本操作数组的基本操作6.5 6.5 控件数组控件数组6.6 6.6 自定义数据类型自定义数据类型6.7 6.7 数组应用数组应用6.8 6.8 常见错误常见错误5精选课件ppt 1.1.数组概念数组概念按以前简单变量的使用和循环结构相结合，求平均成绩程序段如
3、下：aver=0 For i=1 To 36 mark=InputBox(输入第+i+位学生的成绩)aver=aver+mark Next i aver=aver/1006.1 6.1 数组的引入数组的引入6精选课件ppt 若要统计高于平均分的人数，则无法实现。mark是一个简单变量，存放的是最后一个学生的成绩。已有知识解决方法：再重复输入成绩，这样又带来两个问题：（1）输入数据的工作量成倍增加；（2）若本次输入的成绩与上次不同，则统计的结果不正确。解决此问题的根本方法，需引入数组，保存输入的数据，一次输入，多次使用。7精选课件ppt数组的概念整型一维数组N(1)N(1)N(2)N(2)N(9
4、)N(9)N(10)N(10)8精选课件ppt数组的概念9精选课件ppt2.数组的逻辑结构和存储结构N(1)N(2)N(3)N(4)N(5)N(6)N(7)N(8)例如：声明一维整型数组例如：声明一维整型数组N(8)Dim N%(8)N(8)Dim N%(8)N(8)N(8)在内存中排列示意图：在内存中排列示意图：10精选课件ppt二维数组的逻辑结构11精选课件ppt二维数组的存储结构W(0,0)W(0,0)W(0,1)W(0,1)W(0,2)W(0,2)W(1,0)W(1,0)W(1,1)W(1,1)W(1,2)W(1,2)W(3,0)W(3,0)W(3,1)W(3,1)W(3,2)W(3,
5、2)12精选课件ppt数组又有两种情况：数组又有两种情况：静态静态(定长定长)数组数组 动态动态(可变长可变长)数组数组6.2 6.2 数组的声明数组的声明13精选课件ppt1.静态数组14精选课件ppt2.2.静态数组声明静态数组声明静态数组声明语句形式静态数组声明语句形式（以以dimdim为例为例）:Dim Dim 数组名数组名(下标下标1,1,下标下标2 2)As)As 类型类型 声明了数组的名、维数、大小、类型声明了数组的名、维数、大小、类型维数：有维数：有N N个下标称为个下标称为N N维数组，维数组，N=1,2N=1,2，最多最多6060维。维。下标下标:下界下界 To To 上界
6、上界 省略下界默认为省略下界默认为0 0，下标，下标每一维大小每一维大小:上界上界-下界下界+1+1数组大小数组大小:每一维大小的乘积每一维大小的乘积15精选课件ppt例：例：dim x(9)as integerdim a(10,10)as long说明：说明：下下标标下界为下界为0 0。（2 2）如果需要数组的下标下界从）如果需要数组的下标下界从1 1开始，开始，可以：可以：dim x%(1 to 9),a&(1 to 10,1 to 10)dim x%(1 to 9),a&(1 to 10,1 to 10)或使用或使用option baseoption base语句：语句：option b
7、ase 1option base 1说明：Option baseOption base语句只能出现在窗体通用段或标准语句只能出现在窗体通用段或标准模块中，不能出现在过程中，且必须在数组定模块中，不能出现在过程中，且必须在数组定义语句之前。义语句之前。默认下标值对每一维都有效。默认下标值对每一维都有效。数组声明语句格式116精选课件ppt数组声明语句。例：例：dim a(-2 to 10)as integerdim b(10 to 100)as longdim c(1 to 10,11 to 20)as single 数组下界上界的测试函数 默认数组数据类型为Variant的数组称默认数组。定义
8、时省略As类型说明。数组中元素的类型可以不同。17精选课件ppt例例1：Dim mark(1 to 100)As Integer例例2：Dim lArray(0 To 3，0 To 4)As Long:Dim lArray(3，4)As Long声明了Larray数组共有20（45）个元素18精选课件ppt19精选课件ppt20精选课件ppt6.3 动态数组21精选课件ppt动态数组的定义和声明动态数组的定义和声明 动态数组定义动态数组定义22精选课件ppt动态数组声明的几点说明：动态数组声明的几点说明：23精选课件ppt6.4 数组的基本操作 24精选课件ppt(1)用循环和赋值语句 For
9、 i =1 To 10 iA(i)=i Next I(2)Array函数 Dim ib As Variant ib=Array(abc,def,67)For i=0 To UBound(ib)Picture1.Print ib(i);Next i1.1.数组元素的赋值数组元素的赋值25精选课件pptArray函数数组变量名数组变量名26精选课件ppt For i=0 To UBound(a)b(i)=a(i)Next i注意：赋值号左边的数组只能声明为Variant的可调数组或简单变量。数组的赋值数组的赋值在VB6.0中，提供了数组直接对数组的赋值。例如：Dim a()As Variant,b
10、()As Variant,i%Dim a()As Variant,b()As Variant,i%a=Array(1,2,3,4,5)a=Array(1,2,3,4,5)ReDim b(UBound(a)ReDim b(UBound(a)b=a b=a27精选课件pptDim Max As Integer,iMax As IntegerDim ia(1 to 10)as integer Max=iA(1)：iMax=1For i=2 To 10 If iA(i)Max Then Max=iA(i)iMax=i End IfNext I2.2.数组元素的引用数组元素的引用 例例1 1：求数组中的
11、最大元素及所在下标：求数组中的最大元素及所在下标ia(1)ia(2)ia(3)ia(4)ia(5)ia(6)ia(7)ia(8)ia(9)ia(10)maximax28精选课件ppt数组元素的引用数组元素的引用 例例2 2：交换数组中各元素交换数组中各元素For i=1 To 102 t=iA(i)iA(i)=iA(10-i+1)iA(10-i+1)=tNext I29精选课件ppt3.3.二维数组的输入和输出二维数组的输入和输出30精选课件ppt数组输入和赋值举例31精选课件ppt数组输入和赋值举例32精选课件ppt4.4.数组的清除数组的清除33精选课件ppt问题讲解 简单变量与数组变量的
12、区别:AIA(I)I=1,2,310A(1)A(1)A(2)A(2)A(3)A(3)A(4)A(4)A(5)A(5)A(6)A(6)A(7)A(7)A(8)A(8)A(9)A(9)A(10)A(10)小结小结:34精选课件ppt动态数组示例：动态数组示例：35精选课件ppt4.使用数组的注意事项 36精选课件ppt使用数组的注意事项 在同一个运行环境下，数组名不能与在同一个运行环境下，数组名不能与简单变量名相同。简单变量名相同。下标变量的使用与简单变量一样。下标变量的使用与简单变量一样。37精选课件ppt本讲小结本讲重点学习了：要求要求 熟练掌握一维数熟练掌握一维数组和二维数组的组和二维数组的定义和应用。定义和应用。38精选课件ppt作业和实验题目作业和实验题目作业作业：1.1.复习教材六章已讲内容；复习教材六章已讲内容；2.2.预习教材第六章未讲内容。预习教材第六章未讲内容。上机实验上机实验：1.1.继续完成继续完成实验六、实验七实验六、实验七；2.2.上机完成补充实验二、补充实验三。上机完成补充实验二、补充实验三。39精选课件ppt
