VB實(shí)驗(yàn)報(bào)告選擇法排序

實(shí)驗(yàn)報(bào)告2：VB程序設(shè)計(jì)四、編寫一個(gè)秒表操作程序，分別顯示開始計(jì)時(shí)的時(shí)間、當(dāng)前時(shí)間和開始于停止的時(shí)間間隔。1、目的和要求（1）熟練掌握控件的使用。（2）掌握Sub過程的定義和參數(shù)傳遞。2、內(nèi)容和步驟（1）創(chuàng)建窗體窗體form1由二個(gè)命令按鈕command1、command2、三個(gè)標(biāo)簽label1、label2、label3、二個(gè)文本框text1、text2組成。（2）設(shè)計(jì)窗體界面及屬性屬性設(shè)置：對象名控件名屬性名屬性值功能commandcommand1Caption排序給數(shù)據(jù)排序Command2Caption結(jié)束結(jié)束程序的執(zhí)行l(wèi)abellabel1Caption需要排序元素的個(gè)數(shù)：提示Label2Caption排序前數(shù)據(jù)：提示Label3Caption排序結(jié)果：提示texttext1Text空顯示排序元素個(gè)數(shù)Text2Text空顯示排序結(jié)果ScrollBars2-Vertical顯示水平滾動條編寫代碼OptionExplicitDimNAsIntegerDima()AsIntegerPrivateSubSort(b()AsInteger)'排序過程DimiAsInteger,jAsInteger,xAsInteger,yAsIntegerDimminAsInteger,tempAsIntegerForx=0ToN-2Fori=xToN-1min=xIfb(min)>b(i)Theny=b(i)b(i)=b(min)b(min)=yEndIfNextiForj=x+1ToN-1Ifb(min)>b(j)Thentemp=b(j)b(j)=b(min)b(min)=tempEndIfNextjNextxEndSubPrivateSubCmdEnd_Click()EndEndSubPrivateSubCmdSort_Click()DimiAsIntegerCallSort(a)Fori=0ToN-1txtResult.Text=txtResult.Text&a(i)&""NextiEndSubPrivateSubtxtN_Change()DimiAsIntegerRandomizeIfVal(txtN.Text)>0AndIsNumeric(Val(txtN.Text))Then'判斷輸入數(shù)據(jù)的有效性N=Val(txtN.Text)ReDima(N)Fori=0ToN-1a(i)=Int(100*Rnd)labNumber.Caption=labNumber.Caption&a(i)&""NextiElseMsgBox"數(shù)據(jù)個(gè)數(shù)出錯(cuò)！",,"數(shù)據(jù)個(gè)數(shù)"EndIfEndSub（4）保存工程，運(yùn)行程序3、調(diào)試過程及運(yùn)行結(jié)果4、實(shí)驗(yàn)心得（1）變量聲明的位置不同，其作用域也不同。（2）