资源描述：
《visual basic 6.0程序设计案例教程(下)ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、VisualBasic6.0程序设计案例教程(下)第5章数组本章内容基本概念及操作静态数组动态数组控件数组控件列表框（ListBox）组合框（ComboBox）基本概念及操作数组一组具有相同名字不同下标的变量构成了数组score(1),score(2),score(3)……score(50)例：求50个学生的平均成绩，并统计高于平均成绩的人数。数组元素下标基本概念及操作Fori=1To50score=val(InputBox(“请输入学生的成绩”))sum=sum+scoreNextiave=sum/(i-1)Printave
2、EndSub基本概念及操作Fori=1To50score(i)=InputBox("请输入学生的成绩")sum=sum+score(i)Nextiave=sum/(i-1)PrintaveFori=1To50Ifscore(i)>aveThenn=n+1NextiPrintn基本概念及操作数组静态数组一维数组二维数组动态数组一维数组声明声明一维数组的形式如下：Dim数组名（[下界To]上界）[As类型]例：Dimscore(50)AsSinglescore(0),score(1),score(2)……score(50)Dima
3、(-5To3)AsIntegera(-5)，a(-4)，a(-3)，a(-2)，a(-1)，a(0)，a(1)，a(2)，a(3)s(0)s(1)s（2）……s(49)s(50)数组的基本操作数组的输入数组的输出数组的基本操作——数组的输入利用循环结构分别给数组元素赋值在一维数组中利用Array函数为数组元素赋值数组名到数组名的直接赋值。数组的基本操作——数组的输入利用循环结构分别给数组元素赋值Fori=1To50score(i)=InputBox("请输入学生的成绩")Nexti数组的基本操作——数组的输入在一维数组中利用A
4、rray函数为数组元素赋值其格式为：数组名=Array（数组元素值）例：Dims()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。数组的基本操作——数组的输入数组名到数组名的直接赋值例如：Dima(),b()a=Array(1,2,3,4,5)b=a将数组a的值1，2，3，4，5赋值给数组b相应的元素。数组的基本操作——数组的输出ForEach．．．Next语句其一般格式为：ForEach成员In数组循环体[ExitF
5、or]……Next[成员]例如：Dims()S=array(1,2,3,4,5)ForEachxinsprintx;Nextx数组的基本操作——数组的输出用循环结构例：Dims()S=array(1,2,3,4,5)Fori=0to4prints(i);Nexti数组的使用【实例5.1-2】输入大赛选手的姓名和成绩，输出成绩列表。编写代码——数组赋值数组赋值Dimnam(9)AsString,score(9)AsSingle,bAsBoolean,iAsInteger,jAsIntegerConstN=9编写代码——数组赋值P
6、rivateSubtxtname_LostFocus()Iftxtname.Text<>""Thennam(i)=txtname.TextElsenam(i)="*"EndIfi=i+1Ifi>NThentxtname.Enabled=FalseEndSub编写代码——数组赋值PrivateSubtxtscore_LostFocus()Iftxtscore.Text<>""Thenscore(j)=Val(txtscore.Text)Elsescore(j)=0EndIfj=j+1txtname.Text=""txtscore
7、.Text=""Ifj>NThentxtscore.Enabled=FalseEndSub编写代码——显示选手的成绩列表框lstscore中显示选手的成绩PrivateSubcmdshow_Click()DimiAsIntegerIfb=FalseThenFori=0ToNLstscore.AddItemSpace$(3)+nam(i)+Space$(7)+Str$(score(i))NextiEndIfb=TrueEndSub编写代码——“排序”按钮代码列表框中的数据赋值给数组Fori=0ToNliststr=LTrim$(
8、Lstscore.List(i))'去掉列表项Lstscore.List(i)中左边的空格s=Split(liststr,"")'将列表项字符分割成字符数组。分割符是7个空格，由于列表项中姓名和成绩之间由7个空格分隔。nam(i)=s(0)score(i)=Val(s(1))
