讀入數(shù)據(jù)排序顯示保存wy18.frm

1、在名稱為Fm1的窗體上建立一個(gè)文本框（名稱為T(mén)ext1，MultiLine屬性為T(mén)rue，ScrollBars屬性為2）和兩個(gè)命令按鈕（名稱分別為Cmd1和Cmd2，標(biāo)題分別為“讀入數(shù)據(jù)“和“排序顯示保存“）（如圖所示）。程序運(yùn)行后，如果單擊“讀入數(shù)據(jù)“按鈕，則讀入“in3.txt“文件中的100個(gè)整數(shù)，放入一個(gè)數(shù)組中（數(shù)組下界為1）；如果單擊“排序顯示保存“按鈕，則對(duì)這100個(gè)整數(shù)按從大到小進(jìn)行排序，把排序后的全部數(shù)據(jù)在文本框Text

2、1中顯示出來(lái)，然后存入考生文件夾的“out3.txt“中。（考生的文件夾下的標(biāo)準(zhǔn)模塊mode1.bas其中的putdata過(guò)程可以把指定個(gè)數(shù)的數(shù)組元素存入out3.txt文件，考生可以把模塊文件添加到自己的工程中）。注意：文件必須存放在考生文件夾下，窗體文件名為wy18.frm，工程文件名wy18.vbp，排序結(jié)果存入out3.txt否則沒(méi)有成績(jī)。新建工程，雙擊控件面板中的TextBox控件，在窗體上添加一個(gè)名稱為T(mén)ext1的文本框，在

3、屬性窗口中設(shè)置MultiLine屬性為T(mén)rue，ScrollBars屬性為2，建立兩個(gè)命令按鈕，名稱分別為Cmd1和Cmd2，標(biāo)題分別為“讀入數(shù)據(jù)“和“排序顯示保存“。雙擊窗體進(jìn)入代碼窗口填入以下代碼：OptionExplicitDimi(1To100)AsIntegerPrivateSubCmd1_Click()DimjAsIntegerOpenApp.Path&“in.txt“FInputAs#1Fj=1To100Input#1i(

4、j)Text1.Text=Text1.Text&i(j)&Space(5)NextClose#1EndSubPrivateSubCmd2_Click()DimjAsIntegerDimkAsIntegerDimtempAsIntegerDimflagAsBooleanFj=1To100flag=FalseFk=1To100jIfi(k)i(k1)Thentemp=i(k)i(k)=i(k1)i(k1)=tempflag=TrueEndI