數(shù)組實(shí)驗(yàn)二:對(duì)于一個(gè)給定的整數(shù)數(shù)組，將數(shù)組中的元素按值的(遞增)不減排序。程序運(yùn)行后的結(jié)果如下：實(shí)驗(yàn)二的主要步驟：１、在G盤上創(chuàng)建一個(gè)VBTest0731的文件夾。２、新建一個(gè)VisualBasic.NET的Windows應(yīng)用程序項(xiàng)目Array2。打開VisualBasic.NET2005開發(fā)環(huán)境，從菜單中選擇“文件”｜“新建項(xiàng)目”，彈出“新建項(xiàng)目對(duì)話框”，在對(duì)話框的“項(xiàng)目類型”中選擇“VisualBasic｜Windows”，在模板中選擇“Windows應(yīng)用程序”。輸入項(xiàng)目名稱為Array2，如圖１，點(diǎn)擊“確定”進(jìn)入項(xiàng)目開發(fā)環(huán)境。圖１新建項(xiàng)目３、保存項(xiàng)目到G:\VBTest0731目錄下，項(xiàng)目名稱為Array2. 在項(xiàng)目開發(fā)環(huán)境中，選擇菜單中選擇“文件”｜“全部保存”，彈出“保存對(duì)話框”，點(diǎn)擊“游覽”按鈕，選擇G:\VBTest0731文件夾，輸入名稱Array2，如圖２。圖２保存項(xiàng)目３、界面設(shè)計(jì)從工具箱中拖兩個(gè)文本框TextBox控件、兩個(gè)標(biāo)簽控件Label與一個(gè)按鈕Button控件到窗體上，設(shè)計(jì)界面如圖３。圖３程序界面按表１設(shè)置各控件的屬性。表１各控件的屬性控件屬性屬性值FormNameFrmSortText對(duì)數(shù)組進(jìn)行排序LabelText請(qǐng)輸入數(shù)組的元素，以逗號(hào)隔開：LabelText排序后的結(jié)果：TextBoxNametxtInputTextTextBoxNametxtResTextButtonNamebtnSortText排序Click事件btnSort_Clcik４、代碼設(shè)計(jì) 打開“設(shè)計(jì)器”窗口，用鼠標(biāo)在程序界面中Button“排序”上雙擊，產(chǎn)生btnSort_Clcik事件，并自動(dòng)切換到“代碼”窗口。在btnSort_Click中編寫如下代碼:PrivateSubbtnSort_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesbtnSort.Click'定義一個(gè)變量s用來保存從TextBox輸入的字符串DimsAsString'將TextBox輸入的字符串保存到變量s中s=txtInput.Text'定義一個(gè)字符串?dāng)?shù)組strs用來存放從界面TextBox中輸入的數(shù)字Dimstrs()AsString'將字符串s中數(shù)據(jù)按逗號(hào)分隔開，并保存到字符串?dāng)?shù)組strs中strs=s.Split(",")'定義一個(gè)整數(shù)數(shù)組ints來存放從界面輸入的經(jīng)過轉(zhuǎn)換后的數(shù)字Dimints(strs.Length-1)AsInteger'定義循環(huán)計(jì)數(shù)變量iDimi,jAsInteger'將字符串?dāng)?shù)組轉(zhuǎn)換成整數(shù)數(shù)組,Cint是一個(gè)函數(shù)，用來將字符串轉(zhuǎn)換成數(shù)字Fori=0Tostrs.Length-1ints(i)=CInt(strs(i))Next'下面的代碼用來對(duì)數(shù)組ints中元素按從小到大進(jìn)行排序DimkAsInteger'k用來記錄程序運(yùn)行過程中的那個(gè)最大元素的下標(biāo)值DimtmpAsInteger'定義一個(gè)臨時(shí)變量tmp來存放元素交換時(shí)的中間結(jié)果k=0Fori=0Toints.Length-1'第一層循環(huán)，依次處理數(shù)組中的每個(gè)元素Forj=iToints.Length-1'第二層循環(huán)，從數(shù)組i到無級(jí)最后的元素中選擇一個(gè)最小的元素，放置到下標(biāo)i處Ifints(i)>ints(j)Then'if語句塊表示判定當(dāng)ints(i)中元素值大于其他元素時(shí)時(shí)，將兩個(gè)元素的位置進(jìn)行交換tmp=ints(i)ints(i)=ints(j)ints(j)=tmpEndIfNextNext'程序計(jì)算完成，數(shù)組ints中的保存的是排序后的結(jié)果,通過程序界面上的txtRes控件顯示結(jié)果txtRes.Text=""'首先清空內(nèi)容 '循環(huán)，對(duì)排序后的數(shù)組ints中的元素進(jìn)行顯示Fori=0Toints.Length-1txtRes.Text=txtRes.Text&ints(i)txtRes.Text=txtRes.Text&""