vb實驗任務12答案

1、實驗任務實驗任務12課程名稱課程名稱：程序設計基礎程序設計基礎VB實驗名稱實驗名稱——實驗十二實驗十二數(shù)組（數(shù)組（2）一、實驗目的：一、實驗目的：1掌握數(shù)組的聲明和數(shù)組元素的引用掌握數(shù)組的聲明和數(shù)組元素的引用2掌握定長數(shù)組的使用掌握定長數(shù)組的使用3掌握數(shù)組的基本操作算法掌握數(shù)組的基本操作算法4掌握控件數(shù)組的使用掌握控件數(shù)組的使用二、實驗內容（包括實驗要求二、實驗內容（包括實驗要求(題目題目)、實驗步驟、程序清單、運行情況）：、實驗步驟、

2、程序清單、運行情況）：實驗實驗1在課前做好，課上驗證在課前做好，課上驗證實驗實驗1人工寫出如下程序的運行結果，并利用單步調試工具驗證執(zhí)行流程和運行結果，進一步深入弄清和理解數(shù)組的訪問。（1）執(zhí)行下面程序，單擊命令按鈕，輸出結果是。OptionBase1Dimarr()AsIntegerPrivateSubFm_Click()DimiAsIntegerjAsIntegerReDimarr(32)Fi=1To3Fj=1To2arr(ij)=

3、i2jNextjNextiReDimPreservearr(34)Fj=3To4arr(3j)=j9NextjPrintarr(32)arr(34)EndSub（2）運行程序，單擊窗體，則在窗體上顯示的是。OptionBase1PrivateSubFm_Click()DimaSumAsIntegeriSum=0a=Array(1357911131517192123)FEachiInaIfi3=i3ThenSum=SumiNextPrin

4、tSumEndSub實驗實驗2實驗72下列程序代碼讀入N個數(shù)，用選擇排序法對這N個數(shù)按從大到小的順序排序，并在文本框Textl中輸出排序結果。（動態(tài)數(shù)組）（動態(tài)數(shù)組）部分程序代碼如下，請?zhí)羁?。Dima()AsIntegerPrivateSubComm1_C1ick()N=Val(InputBox(“請輸入N:“)):ReDimA(N)FI=1ToNA(I)=Val(InputBox(“請輸入A(“&I&“):“I))（1）界面設計。在窗

5、體上按照圖713所示界面放置一個按鈕（CommadButton）控件，其Caption屬性設置為0，名稱設置為cmdDigit；并將其Index屬性設為0（作為控件數(shù)組的起始索引值），利用復制粘貼的方法復制出其他11個按鈕控件，它們的標題（Caption）屬性分別設置為“1”、“2”、“3”、“4”、“5”、“6”、“7”、“8”、“9”、“00”、“.”構成控件數(shù)組，并按照所示界面排放好各個控件。利用同樣方法設計標題為“”、“?”、“

6、”、“”、“=”的按鈕控件數(shù)組，控件名為cmdOperat；標題為“”、“?”、“”、“”、“=”的Index屬性設分別為0、1、2、3、4。把標題為“1X”、“EXP”、“LOG”和“X^Y”的按鈕控件作為一個控件數(shù)組，控件名為cmdAccumulate；并依次設置它們的Index屬性值為0、1、2、3。將標題為“?”、“C”和“AC”的按鈕控件分別命名為cmdSign、cmdClear和cmdAllClear。放置一個文本框，屬性值

7、默認，文本框左邊上放置標題為“”的Label控件命名為lblOperat。（2）部分程序代碼。DimstrOperat()四則運算符DimblnDigitAsBoolean當前狀態(tài)True表示數(shù)字狀態(tài)False表示運算符狀態(tài)DimdblResult存放第一個操作數(shù)或運算結果PrivateSubFm_Load()strOperat=Array(“““?““““““=“):CallcmdAllClear_ClickEndSubPrivate

8、SubcmdAllClear_Click()單擊一次AC按鈕刪除文本框中光標前的所有數(shù)字dblResult=0:blnDigit=False:Text1.Text=““:lblOperat=““EndSubPrivateSubcmdClear_Click()單擊一次C按鈕刪除文本框中光標的前一個數(shù)字DimintLen%intLen=Len(Text1.Text):IfintLen0ThenText1.Text=Left(Text1.Te

9、xtintLen?1)EndSubPrivateSubcmdDigit_Click(IndexAsInteger)StaticblnDotAsBooleimstrKey$strKey=cmdDigit(Index).CaptionIfstrKey=“.“ThenIfNotblnDotThenblnDot=TrueElseExitSubIfNotblnDigitThenText1.Text=““Text1.Text=Text1.Text&

10、strKeyblnDigit=TrueEndSubPrivateSubcmdOperat_Click(IndexAsInteger)IfblnDigitThenCaselblOperat.CaptionCase““:dblResult=Case“?“:dblResult=Case““:dblResult=Case““IfThendblResult=ElseExitSubEndIfCase“=“:dblResult=EndText1.Te