资源描述：
《实验一VB集成开发环境初识》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、实验十一数组的基本操作一、预习内容1．预习数组中元素的插入和删除操作。2．预习动态数组的使用方法。二、实验目的1．掌握删除数组中某元素的方法。2．掌握动态数组与静态数组的使用方法。三、实验内容编一程序，对已知数组a()删除数组中某个元素的程序。[程序]PrivateSubForm_Click()Dima(),k%,m%,n%a=Array(1,3,8,6,10,9,7,4,2,5)k=Val(InputBox(“输入要删除的值”))Form=Lbound(a)ToUbound(a)Ifk=a(m)ThenForn=m+1ToU
2、bound(a)a(n-1)=a(n)NextjReDimPreservea(Lbound(a)ToUbound(a)-1)Print“删除完成”ExitSubEndIfNextmPrint“未找到要删除的元素”Picture1.PrintSpc(4-Len(Str(s(i,j))));s(i,j);EndSub四、问题1．在数组中插入元素的操作应如何实现。2．能否用静态数组来实现元素的插入或删除。3．动态数组与静态数组有什么区别。实验十二字符数组一、预习内容预习字符数组的定义方法。二、实验目的1、掌握字符数组的定义方法。2、
3、掌握字母的自动产生。3、掌握数组的查找问题。三、实验内容随机产生15个不重复的A-Z（包括A，Z）的大写字母，存放在字符数组中。PrivateSubForm_Click()Dims(1to15)AsString*1,cAsString*1DimFoundAsBooleans(1)=Chr(Int(Rnd*26+65))n=2DoWhilen<=15c=Chr*(Int(Rnd*26+65))Found=FalseForj=1ton-1Ifs(j)=cThenFound=TrueNextjIfNotFoundThens(n)=c
4、n=n+1EndIfLoopFori=1to15Prints(i);NextIEndSub四、问题上述程序中Found的作用是什么？实验十三自定义类型数组的应用一、预习内容预习自定义类型的声明、输入、输出、排序方法。二、实验目的1．掌握自定义类型的使用方法。2．掌握自定义数组的输入、输出、排序的方法。三、实验内容自定义一个职工类型，包含职工号、姓名和年龄。声明一个职工类型的动态数组，输入n个职工的数据；要求按年龄递减的顺序排序，并显示排序的结果，每个职工一行显示三项信息。[程序]PrivateTypezglxNumAsInte
5、gerNameAsString*10AgeAsIntegerEndTypeDima()Aszglx,k%PrivateSubForm_Load()Dimn%n=InputBox(“输入职工人数”)ReDima(1Ton)k=0EndSubPrivateSubCommand1_Click()k=k+1Ifk>nThenMsgBox(“人数超过数组范围”):ExitSubWitha(k).Num=Val(Text1.Text).Name=Text2.Text.Age=Val(Text3.Text)EndWithText1.Text
6、=””:Text2.Text=””:Text3.Text=””EndSubPrivateSubCommand2_Click()Dimj%,i%,tAszglxForj=1Tok-1Fori=j+1TokIfa(i).Age>a(i-1).AgeThent=a(i):a(i)=a(i-1):a(i-1)=tEndIfNextiNextjForj=1TokPicture1.Printa(j).Num;a(j).Name;a(j).AgeNextjEndSub四、问题1．程序中用到三个过程，分别有什么作用。2．自定义类型的优点是什么
7、。实验十四控件数组一、预习内容预习控件数组的相关知识，控件数组的使用方法。二、实验目的1．掌握控件数组的建立方法。2．掌握控件数组中索引号（Index）的作用。三、实验内容建立一个国际象棋的棋盘，设计界面和运行界面分别如图34和图35所示。要求：1．设计时窗体上放一个标签（Label）控件，设置其Index属性为0，BackColor属性为黑色。2．程序运行时自动产生64个标签（Label）控件数组元素，BackColor属性为黑白交替。3．当程序运行后单击某个棋格，改变BackColor属性，即黑色变成白色、白色变成黑色。并
8、在单击的棋格处显示其序号。[程序]PrivateSubForm_Load()Dimtop%,left%,i%,j%,k%top=0Fori=1To8left=50Forj=1To8k=(i-1)*8+jLoadLabel1(k)Label1(k).BackColor=iif(
