文档介绍：第7章使用数组VisualBasic程序设计教程本章介绍:构造结构类型——数组列表框组合框一些典型算法*VisualBasic程序设计教程数组(Arrary)是构造的一种新的数据表达。数组是一组具有相同变量名和类型的数据(叫做数组元素)的连续存储单元。数组中包含了一个或多个元素下标给出了数组中元素的顺序数组和循环结构配合,使数据处理变得容易。*VisualBasic程序设计教程【例7-1】设计程序,如图。对一批马拉松运动员按成绩(单位:小时)排名次。控件:*VisualBasic程序设计教程“输入数据并排名”按钮作用:输入运行员人数输入各运动员的姓名和成绩左列表框放排序前的数据右列表框放排序后的名次数据。事件:mand1的Click事件*VisualBasic程序设计教程排序又称分类。有多种方法:选择分类法、冒泡分类法等。对n个数a(1)~a(n),采用选择分类法的算法是:先在n个数中选最小数,放在第1个数组元素中。取第1个数,与后面n-1(即2到n)个数逐个比较。若第1个数大,则a(1)与参与比较的元素中的值进行互换再将互换后的第1个数与剩下的数据比较,直到最后。*VisualBasic程序设计教程再在第2至n个元素中,选最小数,放在第2个数组元素中。取第2个数,与后面n-2(即3到n)个数逐个比较。若第2个数大,则与数组元素中的值进行互换,…,直到最后。重复以上步骤,直至在最后两个数中选取最小数,放在第n-1个数组元素中。*VisualBasic程序设计教程最后第n个元素已是最大数了。在第i至n个元素中,选最小数并放入a(i)的程序是: Forj=i+1Ton '将a(i)与a(i+1)~a(n)逐一比较 Ifa(i)>a(j)ThenTemp=a(i):a(i)=a(j):a(j)=Temp'互换 Nextj 然后再将i从1循环到n-1,就可构成分类(排序)程序段。*mand1_Click() DimName1()AsString,Score()AsSingle‘动态数组声明 DimTempNameAsString,TempScoreAsSingle DimNAsInteger,iAsInteger,jAsInteger N=Val(InputBox(“请输入运动员人数”,“输入”)) ReDimName1(N),Score(N)’根据人数动态定义数组的大小 :‘清除两个列表框中数据 Fori=1ToN'输入姓名和成绩,放入左列表框 Name1(i)=InputBox("请输入第"&i&"位运动员姓名","姓名") Score(i)=Val(InputBox("请输入第"&i&"位运动员成绩","成绩")) (i)&""&Score(i),0 Nexti*VisualBasic程序设计教程Fori=1ToN-1'开始按成绩从小到大排序 Forj=i+1ToN IfScore(i)>Score(j)Then'同时交换姓名和成绩 TempName=Name1(i):Name1(i)=Name1(j):Name1(j)=TempName TempScore=Score(i):Score(i)=Score(j):Score(j)=TempScore EndIf NextjNextiFori=1ToN'将排序后数据及名次放入右列表框 &""&Name1(i)&""&Score(i)NextiEndSub*VisualBasic程序设计教程