資源描述：
《實驗一VB集成開發(fā)環(huán)境初識》由會員上傳分享，免費在線閱讀，更多相關內(nèi)容在教育資源-天天文庫。
1、實驗十一數(shù)組的基本操作一、預習內(nèi)容1．預習數(shù)組中元素的插入和刪除操作。2．預習動態(tài)數(shù)組的使用方法。二、實驗目的1．掌握刪除數(shù)組中某元素的方法。2．掌握動態(tài)數(shù)組與靜態(tài)數(shù)組的使用方法。三、實驗內(nèi)容編一程序，對已知數(shù)組a()刪除數(shù)組中某個元素的程序。[程序]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．在數(shù)組中插入元素的操作應如何實現(xiàn)。2．能否用靜態(tài)數(shù)組來實現(xiàn)元素的插入或刪除。3．動態(tài)數(shù)組與靜態(tài)數(shù)組有什么區(qū)別。實驗十二字符數(shù)組一、預習內(nèi)容預習字符數(shù)組的定義方法。二、實驗目的1、掌握字符數(shù)組的定義方法。2、
3、掌握字母的自動產(chǎn)生。3、掌握數(shù)組的查找問題。三、實驗內(nèi)容隨機產(chǎn)生15個不重復的A-Z（包括A，Z）的大寫字母，存放在字符數(shù)組中。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的作用是什么？實驗十三自定義類型數(shù)組的應用一、預習內(nèi)容預習自定義類型的聲明、輸入、輸出、排序方法。二、實驗目的1．掌握自定義類型的使用方法。2．掌握自定義數(shù)組的輸入、輸出、排序的方法。三、實驗內(nèi)容自定義一個職工類型，包含職工號、姓名和年齡。聲明一個職工類型的動態(tài)數(shù)組，輸入n個職工的數(shù)據(jù)；要求按年齡遞減的順序排序，并顯示排序的結果，每個職工一行顯示三項信息。[程序]PrivateTypezglxNumAsInte
5、gerNameAsString*10AgeAsIntegerEndTypeDima()Aszglx,k%PrivateSubForm_Load()Dimn%n=InputBox(“輸入職工人數(shù)”)ReDima(1Ton)k=0EndSubPrivateSubCommand1_Click()k=k+1Ifk>nThenMsgBox(“人數(shù)超過數(shù)組范圍”):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．自定義類型的優(yōu)點是什么
7、。實驗十四控件數(shù)組一、預習內(nèi)容預習控件數(shù)組的相關知識，控件數(shù)組的使用方法。二、實驗目的1．掌握控件數(shù)組的建立方法。2．掌握控件數(shù)組中索引號（Index）的作用。三、實驗內(nèi)容建立一個國際象棋的棋盤，設計界面和運行界面分別如圖34和圖35所示。要求：1．設計時窗體上放一個標簽（Label）控件，設置其Index屬性為0，BackColor屬性為黑色。2．程序運行時自動產(chǎn)生64個標簽（Label）控件數(shù)組元素，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(
