2023年全國碩士研究生考試考研英語一試題真題(含答案詳解+作文范文)_第1頁
已閱讀1頁,還剩1頁未讀, 繼續(xù)免費閱讀

下載本文檔

版權說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權,請進行舉報或認領

文檔簡介

1、在名稱為Fm1的窗體上建立一個文本框(名稱為Text1,MultiLine屬性為True,ScrollBars屬性為2)和兩個命令按鈕(名稱分別為Cmd1和Cmd2,標題分別為“讀入數(shù)據(jù)“和“排序顯示保存“)(如圖所示)。程序運行后,如果單擊“讀入數(shù)據(jù)“按鈕,則讀入“in3.txt“文件中的100個整數(shù),放入一個數(shù)組中(數(shù)組下界為1);如果單擊“排序顯示保存“按鈕,則對這100個整數(shù)按從大到小進行排序,把排序后的全部數(shù)據(jù)在文本框Text

2、1中顯示出來,然后存入考生文件夾的“out3.txt“中。(考生的文件夾下的標準模塊mode1.bas其中的putdata過程可以把指定個數(shù)的數(shù)組元素存入out3.txt文件,考生可以把模塊文件添加到自己的工程中)。注意:文件必須存放在考生文件夾下,窗體文件名為wy18.frm,工程文件名wy18.vbp,排序結果存入out3.txt否則沒有成績。新建工程,雙擊控件面板中的TextBox控件,在窗體上添加一個名稱為Text1的文本框,在

3、屬性窗口中設置MultiLine屬性為True,ScrollBars屬性為2,建立兩個命令按鈕,名稱分別為Cmd1和Cmd2,標題分別為“讀入數(shù)據(jù)“和“排序顯示保存“。雙擊窗體進入代碼窗口填入以下代碼: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

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
  • 4. 未經(jīng)權益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 眾賞文庫僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責。
  • 6. 下載文件中如有侵權或不適當內(nèi)容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論