6在考生文件夾中有工程文件sj5.vbp及其窗體文件sj5.frm，該程序是不完整的，請在有"?"的地方填入正確內容，然后刪除"?"及代碼前的所有注釋符(即'號)但不能修改其他部分。存盤時不得改變文件名和文件夾。

　　本題描述如下：

　　在名稱為Form1的窗體上有一個文本框，名稱為Text1、MultiLine屬性為True、ScrollBars屬性為2;兩個命令按鈕，名稱分別為Command1和Command2、標題分別為"讀取"和"排序保存"，如圖52-5所示。程序運行后，如果單擊"讀取"按鈕，則讀入in.txt文件中的50個整數，放入一個數組中(數組下界為1);如果單擊"排序保存"按鈕，則對這50個整數按從小到大的順序進行排序，把排序后的全部數據在文本框 Text1中顯示出來，然后存入考生文件夾的out.txt文件中。(考生文件夾下的標準模塊mode5.bas中的writedata過程可以把指定個數的數組元素存入out.txt文件。)

　　圖52-5

　　注意：文件必須存放在考生文件夾下，窗體文件名為sj5.frm，工程文件名為sj5.vbp，排序結果存入out.txt文件中,否則沒有成績。

　　參考解析：

　　根據題意，將一個文本框控件，兩個單選按鈕控件和一個命令按鈕添加到窗體中，文本框的名稱為Text1，單選按鈕的名稱分別為Option1和Option2，Caption分別為“求100到250之間能被5整除的數的個數”和“求300到400之間能被6整除的數的個數”，命令按鈕的名稱為Command1，Caption屬性為“計算顯示”，設置完成后，雙擊Command1進入代碼窗口，補充后的具體代碼如下：

　　Private Sub Command1_Click()

　　Dim min As Integer′下限

　　Dim max As Integer′上限

　　Dim i As Integer′循環計數

　　Dim num As Integer′個數

　　Dim tmp As Integer′除數

　　If Option1.Value=True Then′選中Option1時

　　min=100

　　max=250

　　tmp=5

　　Else′選中Option2時

　　min=300

　　max=400

　　tmp=3

　　End If

　　num=0

　　For i=min To max′利用循環來逐個判斷

　　If i Mod tmp=0 Then

　　num=num+1′如果能被除數整除，則個數加1

　　End If

　　Next i

　　Text1.Text=num′在Text1文本框中顯示出來

　　Open "App.Path&\out5.txt" For Output As #1

　　Print #1, Text1.Text

　　Close #1

　　End Sub

　　單擊按鈕運行程序，并按要求保存。

　　相關推薦：

　　2015年計算機二級考試《VB》考前練習題匯總

　　2015年計算機二級考試《VB》考前預測試卷匯總

　　2015年9月計算機等級考試各科目考前必做試題

　　2015年計算機二級《C語言》沖刺試題及答案匯總