Visual Basic程序设计简明教程 王晓东 第6章

《Visual Basic程序设计简明教程 王晓东 第6章》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第6章数组本章内容：一维数组二维数组动态数组控件数组自定义类型字符串的处理列表框组合框9/7/202116.1一维数组一维数组的定义方式：Dim数组名([下界To]上界)As类型例如：Dima(1To5)AsInteger数组的元素在内存中按顺序存放，数组所占据的字节数是各元素所占字节数之和。9/7/20212《VisualBasic程序设计简明教程》说明：（1）数组名应该是一个合法的标识符，数组中所有元素的数据类型都相同。（2）下界和上界均为整型常量表达式，它们规定了元素下标的取值范围。下界最小可以是-32768，上界最大可以是3

2、2767。应该满足下界≤上界，一维数组的长度即元素的个数为上界-下界+1。（3）对于没有赋初值的数组元素，如果是数值型，系统都自动赋以0；如果是字符型，系统都自动赋以空串；如果是逻辑型，系统都自动赋以False。（4）如果定义数组时省略了下界，则下界默认是0。9/7/20213《VisualBasic程序设计简明教程》数组元素的引用元素引用的形式是：数组名(下标)例如：a(4)=a(1)*a(3)+a(2)在引用数组的元素时，应注意下标值不要超过数组的范围。9/7/20214《VisualBasic程序设计简明教程》例6.1计算全班学生的VB平均成

3、绩ConstNAsInteger=30PrivateSubCommand1_Click()Dima(1ToN)AsInteger,iAsInteger,sumAsInteger,aver!Fori=1ToN'输入学生成绩a(i)=Val(InputBox("请输入第"&i&"位学生的成绩"))Nextisum=0Fori=1ToN'累加学生成绩sum=sum+a(i)Nextiaver=sum/N'计算平均成绩Picture1.Print"平均成绩是";averEndSub9/7/20215《VisualBasic程序设计简明教程》ConstNAs

4、Integer=30PrivateSubCommand2_Click()Dima(1ToN)AsString,i%,j%,flagAsBoolean,name$Fori=1ToN'输入学生姓名a(i)=InputBox("请输入第"&i&"位学生的姓名")NextiDoname=InputBox("请输入要查询的学生姓名")flag=FalseFori=1ToNIfa(i)=nameThenflag=True'找到，改变标志ExitForEndIfNextiIfflag=TrueThenPicture1.Print"找到姓名为";name;"的学生

5、"ElsePicture1.Print"没有找到姓名为";name;"的学生"EndIfj=MsgBox("还要继续查询吗？",vbYesNo+vbquestin)LoopWhilej=6'如果按下“是”按钮，则继续循环EndSub例6.2查询学生9/7/20216《VisualBasic程序设计简明教程》ConstNAsInteger=30PrivateSubCommand3_Click()Dima(1ToN)AsInteger,iAsInteger,maxAsInteger,minAsIntegerFori=1ToN'输入学生成绩a(i)=Va

6、l(InputBox("请输入第"&i&"位学生的成绩"))Nextimax=a(1)'假定第一位学生的成绩是最高分min=a(1)'假定第一位学生的成绩是最低分Fori=2ToNIfmaxa(i)Thenmin=a(i)'确保min是当前最低分EndIfNextiPicture1.Print"最高分是";maxPicture1.Print"最低分是";minEndSub例6.3统计全班最高分和最低分返回9/7/20217《VisualBasic程序设计简明教程》6.2

7、二维数组二维数组的定义方式：Dim数组名([下界To]上界,[下界To]上界)As类型例如：Dima(1To2,1To2)AsIntegera(1,1)a(1,2)a(2,1)a(2,2)9/7/20218《VisualBasic程序设计简明教程》说明：（1）通常把二维数组的第一个下标形象地称为行下标，第二个下标称为列下标。（2）二维数组的元素个数为行的长度×列的长度，行或者列的长度为各自的上界-下界+1。（3）类似地还可以定义多维数组。例如：Dima(1To2,1To2,1To2)AsInteger’共有8个元素的三维数组9/7/20219《Vi

8、sualBasic程序设计简明教程》例6.4求两个3×3矩阵的和。PrivateSubCommand1_Click()Co