清华大学vb编程语言基础第7讲

《清华大学vb编程语言基础第7讲》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第七讲常用算法清华大学内容提要自定义数据类型常用算法查找排序数组元素的插入和删除自定义数据类型Type自定义数据类型名元素名1[（下标）]as类型名元素名2[（下标）]as类型名……EndTypeTypestudentNameasstring*20'姓名Noasinteger'学号Ageasinteger'年龄Sexasstring*1'性别Score(4)assingle'5门课成绩Endtype自定义数据类型一般在标准模块(.bas)中定义，默认是Public，在窗体模块中定义，默认是Private。自定义数据类型可以是字符串，但只能是定长字符串。自定义的数据类型名使用上和Integ

2、er、Double等基本类型名相同。自定义数据类型的使用定义了数据类型之后，就可以声明该数据类型的变量，声明的形式为：Dim变量名As自定义数据类型名Dimstuasstudent使用stu变量中的元素，形式为：变量名.元素名stu.namestu.noWithstu.name=“张三”.no=04134.age=18.sex=“男”Fori=0to4.score(i)=int(rnd*101)NextiEndwith自定义数据类型-例定义一个含学号、姓名、成绩3个成员的学生信息数据类型，然后定义一个该类型的数组用来存放学生信息。单击“添加”按钮时将当前文本框text1、text2、te

3、xt3的数据加入学生信息数组，并在标签中显示当前已有的总记录数。单击“查找”按钮，可以按文本框中指定的学号找到学生信息，并显示在对应的文本框text1、text2、text3中。自定义数据类型-例TypestudentNoAsString*6'学号nameAsString*8‘姓名ScoreAsSingle'成绩EndType标准模块Dimmystu()AsstudentDimnAsInteger窗体通用声明PrivateSubCommand1_Click()n=n+1ReDimPreservemystu(1Ton)AsstudentWithmystu(n).No=Text1.name=

4、Text2.Score=Text3EndWithLabel5.Caption="当前总记录数为："+Str(n)EndSubPrivateSubCommand2_Click()Dimi%Fori=1TonIfmystu(i).No=Text4ThenText1=mystu(i).NoText2=mystu(i).nameText3=mystu(i).ScoreEndIfNextiEndSubPrivateSubForm_Load()n=0EndSub枚举类型枚举，是将变量的值一一列举出来。当一个变量只有几种可能的值时，可以定义为枚举类型。Private/PublicEnum类型名称成员名

5、[=常数表达式]成员名[=常数表达式]EndEnum缺省时，枚举中的第一个常数被初始化为0，其后的常数则被初始化为比其前面的常数大1的数值。VB将枚举中的常数值看做长整数，若将一个浮点数赋给一个枚举中的常数，VB会将该数值取整为最接近的长整数。PublicEnumdaysSunday=5mondayTuesdayWednesday=12thursdayFridaySaturdayEndEnum标准模块PrivateSubForm_Click()DimaAsdaysa=thursdayEndSub分类统计常用算法将一批数据按分类的条件统计包含的个数例：输入一串字符，统计各字母出现的次数，不

6、区分大小写统计26个字母出现的个数，先声明一个具有26个元素的数组，每个元素的下标表示对应的字母，元素的值表示对应字母出现的次数。从输入的字符串中逐一取出字符，转换成大写字符（不区分大小写)，进行判断。分类统计PrivateSubCommand1_Click()Dima(1To26)AsIntegerDimstrAsString*1Dimle%,i%,j%le=Len(Text1.Text)Fori=1Tolestr=UCase(Mid(Text1,i,1))Ifstr>="A"Andstr<="Z"Thenj=Asc(str)-65+1a(j)=a(j)+1EndIfNextiForj

7、=1To26Ifa(j)>0ThenPicture1.Print"";Chr$(j+64);"=";a(j);NextjEndSub数组排序-选择法排序常用算法使用选择排序法对随机产生的10个数按从小到大的次序排序并输出。分析：选择排序法算法的步骤是：首先从待排序的n个数中选出最小的数，与第一个数交换位置，然后从其余n-1个数中找出次小的数，与第二个数交换位置，……，重复此过程，最后构成递增序列。a(1)a(2)a(3)a(4)a(