VB基础教程第6章

《VB基础教程第6章》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第6章数组6.1一维数组6.2控件数组6.3二维数组问题：统计班级学生的考试成绩、平均分等特点：对批量数据进行处理各数据间存在内部联系使用数组由一组（若干个）类型相同的相关变量结合在一起而构成的集合；构成数组的每一个变量称为数组元素；同一数组中的元素都使用统一的变量名，只是通过不同的下标来加以区分；只有一个下标的数组称为一维数组，有两个下标的数组称为二维数组。数组的概念【例6.1】随机产生10个两位数，计算总和。方法一：使用简单变量定义10个整型变量分别保存随机产生的数据6.1一维数组数据量大，不方便Dima(1To10)AsIntegerFo

2、ri=1To10a(i)=Int(Rnd*90)+10sum=sum+a(i)Nexti方法二：使用数组定义一维数组a，包含10个元素下标为i的元素书写简洁、操作方便使用同一数组名代表逻辑上相关的一批变量（10个），为了表示不同的数组元素，只需简单地指出该元素的下标；a(1)、a(2)、…、a(9)、a(10)a数组中的每个元素中只能存放整型数据；说明Dim数组名（下界To上界）As数据类型定义一维数组的一般形式规定下标的取值范围缺省则默认下界为0数组中元素个数：上界-下界+1每个元素的数据类型例如：Dimb(-2To3)AsIntegerDi

3、mx(5)AsString声明一维数组b，包含6个Integer型元素b(-2)、b(-1)、b(0)、b(1)、b(2)、b(3)；声明一维数组x，包含6个字符型元素x(0)、x(1)、...、x(5)数组名的命名规则与变量名相同数组元素代表内存中的一个存储单元引用一维数组元素的一般形式数组名(下标)不得越界系统为数组中的元素分配连续的内存单元Dima(1To10)AsIntegera(1)a(2)a(3)a(4)a(5)a(6)a(7)a(8)a(9)a(10)a【例6.2】随机产生20个两位整数显示在上部的标签中，单击“偶数”单选按钮时找

4、出其中的所有偶数显示在下部的标签中，若单击“奇数”单选按钮，则显示所有奇数。OptionBase1Dima(20)AsIntegerPrivateSubForm_Load()Fori=1To20a(i)=Int(Rnd*90)+10dstr=dstr&Str$(a(i))NextilblData.Caption=dstrEndSub程序代码等价于Dima(1To20)AsInteger只能是0或1，0则下标从0开始声明时缺省下界的所有数组，元素下标均从1开始PrivateSuboptEven_Click()lblStr2.Caption="偶数

5、有："Fori=1To20Ifa(i)Mod2=0Thendstr=dstr&Str$(a(i))EndIfNextilblOut.Caption=dstrEndSub程序代码PrivateSuboptOdd_Click()lblStr2.Caption="奇数有："Fori=1To20Ifa(i)Mod2=1Thendstr=dstr&Str$(a(i))EndIfNextilblOut.Caption=datastrEndSub程序代码OptionBase语句必须出现在数组声明之前，且位于所有事件过程的前面；作用范围仅限于出现在同一代码窗口

6、且在声明时未指出下标下界的数组；在一个代码窗口中，OptionBase语句只能出现一次。数组操作总是借助于循环语句来实现；利用循环变量与数组元素下标的对应关系实现数组元素的逐一引用，并对数组元素进行相应处理。【例6.3】掷50次骰子，统计各点数出现的次数。要求：在例4.2的基础上使用数组进一步统计各点数出现的次数。声明一个包含6个元素的整型数组numnum(1)统计点数1出现的次数num(2)统计点数2出现的次数num(6)统计点数6出现的次数掷骰子时，每出现点数i（介于1至6之间）num(i)=num(i)+1程序分析PrivateSubF

7、orm_Load()lblText.Visible=FalselblPoint.Visible=FalselblDot1.Visible=FalselblDot2.Visible=FalselblDot3.Visible=FalselblDot4.Visible=FalselblDot5.Visible=FalselblDot6.Visible=FalseEndSub修改后的程序代码用于显示各点数出现的次数隐藏各标签PrivateSubcmdStart_Click()DimdotAsIntegerDimnAsIntegerDimdotstrAs

8、StringDimdotnum(1To6)AsIntegerlblText.Visible=TruelblPoint.Visible=TruelblD