全國計算機二級VB上機題庫(題+答案).doc

一、基本操作題下面出現(xiàn)的“考生文件夾”均為c:wexam20060001。請根據(jù)以下各小題的要求設計Visual Basic應用程序（包括界面和代碼）。1在窗體上建立一個二級菜單，該菜單含有“文件”和“幫助”兩個主菜單項（名稱分別為vbFile和vbHelp），其中“文件”菜單包括“打開”、“關閉”和“退出”三個子菜單項（名稱分別為vbOpen、vbClose和vbExit）。只建立菜單，不必定義其事件過程。注意：保存時必須存放在考生文件夾下，窗體文件名為kt1.frm，工程文件名為kt1.vbp。2在名稱為Form1的窗體上建立兩個名稱分別為Cmd1和Cmd2、標題分別為“喜歡”和“不喜歡”的命令按鈕。編寫適當?shù)氖录^程，要求程序運行后，如果單擊“喜歡”命令按鈕，則在窗體上顯示“數(shù)理化”；如果單擊“不喜歡”命令按鈕，則在窗體上顯示“政史地”。程序中不能使用任何變量，直接顯示字符串。注意：保存時必須存放在考生文件夾下，窗體文件名為kt2.frm，工程文件名為kt2.vbp。一、基本操作題答案1【解題步驟】（1）打開“菜單編輯器”。（2）菜單設計見表4-1。表4-1標 題名 稱內縮符號文件vbFile0打開vbOpen1關閉vbClose1退出vbExit1幫助vbHelp0（3）按要求設計含有“文件”和“幫助”的菜單欄。（4）為“文件”菜單設計“打開”、“關閉”和“退出”三個子菜單項。（5）設計完成之后，按規(guī)定方式存盤。2【解題步驟】（1）建立界面和控件并設置控件屬性。程序中用到的控件及其屬性見表4-2。表4-2控 件屬 性設置值按鈕NameCmd1Caption喜歡按鈕NameCmd2Caption不喜歡（2）編寫程序代碼。參考代碼：Private Sub Cmd1_Click()Print數(shù)理化End SubPrivate Sub Cmd2_Click()Print政史地End Sub（3）調試并運行程序。（4）按題目要求存盤。二、簡單應用題下面出現(xiàn)的“考生文件夾”均為c:wexam20060001。1在考生文件夾中有工程文件kt3.vbp及其窗體文件kt3.frm，該程序是不完整的，請在有“？”號的地方填入正確內容，然后刪除“？”及所有注釋符（即“”號），但不能修改其他部分。保存時不得改變文件名和文件夾。本題描述如下：在窗體上有一個列表框，名稱為List1；一個文本框，名稱為Text1；一個命令按鈕，名稱為C1，標題為“復制”。要求程序運行后，在列表框中自動建立4個列表項，分別為Item1、Item2、Item3和Item4。如果選擇列表框中的一項，單擊“復制”按鈕，就可以把該項復制到文本框中。2在考生文件夾中有工程文件kt4.vbp及其窗體文件kt4.frm，該程序是不完整的，請在有“？”號的地方填入正確內容，然后刪除“？”及所有注釋符（即“”號），但不能修改其他部分。保存時不得改變文件名和文件夾。在窗體上有3個復選框，名稱分別為Ch1、Ch2和Ch3，標題分別為“體育”、“音樂”和“美術”，還有一個命令按鈕，名稱為C1，標題為“顯示”。要求程序運行后，如果選中某個復選框，當單擊“顯示”命令按鈕時，則顯示相應的信息。例如，如果選中“體育”和“美術”復選框，單擊“顯示”命令按鈕后，在窗體上顯示“我的愛好是體育美術”。二、簡單應用題答案1【解析步驟】（1）首先按要求打開給定工程文件kt3.vbp及其窗體文件kt3.frm。（2）在窗體上建立控件并設置控件屬性。程序中用到的控件及屬性設置見表4-3。表4-3控 件屬 性設置值列表框NameList1文本框NameText1命令按鈕NameC1Caption復制（3）進入代碼窗口，得到如下程序代碼：Option ExplicitPrivate Sub C1_Click() m i As Integer For i = ? To List1.ListCount - 1 If List1.Selected(i) = True Then ? = List1.List(i) End If Next iEnd SubPrivate Sub Form_Load() List1.AddItem Item1 List1.AddItem Item2 List1.AddItem Item3 List1.AddItem Item4End Sub（4）For語句循環(huán)變量的起始值為0。（5）列表框的Text屬性為最后一次選中的表項的文本。（6）修改這兩處的代碼。參考代碼如下：Option ExplicitPrivate Sub C1_Click() Dim i As Integer For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then Text1.Text = List1.List(i) End If Next iEnd SubPrivate Sub Form_Load() List1.AddItem Item1 List1.AddItem Item2 List1.AddItem Item3 List1.AddItem Item4End Sub（7）調試并運行。（8）按題目要求存盤。 2【解析步驟】（1）在窗體上先按要求建立控件，設置控件屬性，程序中用到的控件及屬性見表4-4。表4-4對 象屬 性設置值復選按鈕NameCh1Caption體育復選按鈕NameCh2Caption音樂復選按鈕NameCh2Caption美術標簽Caption愛好按鈕NameC1Caption顯示（2）打開代碼窗口，程序提供的代碼如下：Option ExplicitPrivate Sub C1_Click() Dim s As ? s = 我的愛好是 If Ch1.Value = 1 Then s = s + Ch1.CaptionEnd IfIf Ch2.Value = 1 Thens = s + Ch2.CaptionEnd If If Ch3.Value = 1 Then s = s + Ch3.Caption End If Print ?End Sub（3）讀懂程序，分析代碼。 通過語句s = 我的愛好是可知s為字符串，所以應改為：Dim s As String 由語句：s = s + Chx.Caption可知輸出的變量為s，所以應改為：Print s（4）編寫程序代碼，整理后可得如下參考代碼：Option ExplicitPrivate Sub C1_Click() Dim s As String s = 我的愛好是 If Ch1.Value = 1 Then s = s + Ch1.Caption End If If Ch2.Value = 1 Then s = s + Ch2.Caption End If If Ch3.Value = 1 Then s = s + Ch3.Caption End If Print sEnd Sub（5）調試并運行程序。（6）按題目要求存盤。三、綜合應用題在考生文件夾中有工程文件kt5.vbp及其窗體文件kt5.frm，該程序是不完整的，請在有“？”號的地方填入正確內容，然后刪除“？”及所有注釋符（即“”號），但不能修改其他部分。本題描述如下：在名稱為Form1的窗體上有兩個單選按鈕，名稱分別為Opt1和Opt2，標題分別為“100200之間素數(shù)”和“200400之間素數(shù)”；一個文本框，名稱為Text1；兩個命令按鈕，其名稱分別為Cmd1和Cmd2，標題分別為“計算”和“存盤”。程序運行后，如果選中一個單選按鈕并單擊“計算”按鈕，則計算出該單選按鈕標題所指明的所有素數(shù)之和，并在文本框中顯示出來。如果單擊“存盤”按鈕，則把計算結果存入out.txt文件中，該文件必須放在考生文件夾中（在考生文件夾中有標準模塊mode.bas，其中的putdata過程可以把結果存入指定的文件，而isprime函數(shù)可以判斷整數(shù)x是否為素數(shù)，如果是素數(shù)，則函數(shù)返回True，否則返回False，考生可以將該模塊文件添加到自己的工程中）。注意：必須把素數(shù)之和存入考生文件夾下的out.txt文件中，否則沒有成績。保存程序時必須存放在考生文件夾下，窗體文件名為kt5.frm，工程文件名為kt5.vbp。三、綜合應用題答案【解析步驟】（1）建立界面并設置控件屬性。題目提供了程序用到的控件及其屬性，見表4-5。表4-5控 件屬 性設置值單選按鈕NameOp1Caption100200之間素數(shù)單選按鈕NameOp2Caption200400之間素數(shù)文本框NameText1命令按鈕NameCmd1Caption計算命令按鈕NameCmd2Caption存盤（2）打開代碼窗口，得到程序提供的代碼如下：標準模塊代碼Option ExplicitSub putdata(t_FileName As String, T_Str As Variant)Dim sFile As String sFile = & t_FileName Open App.Path & sFile For Output As #1 Print #1, T_Str Close #1End SubFunction isprime(t_I As Integer) As Boolean Dim J As Integer isprime = False For J = 2 To t_I / 2 If t_I Mod J = 0 Then Exit For Next J If J t_I / 2 Then isprime = TrueEnd Function窗體代碼Private Sub Cmd1_Click() Dim i As Integer Dim temp As Long temp = ? If Opt2.Value Then For i = 200 To 400 If isprime(?) Then temp = temp + i End If Next Else For i = 100 To 200 If isprime(i) Then temp = temp + i End If Next End If Text1.? = tempEnd SubPrivate Sub Cmd2_Click() putdata out.txt, Text1.TextEnd Sub（3）分析代碼，找出答案。 temp用來存放累加和，所以必須初始化，即：temp = 0 Text1顯示temp的值，所以使用Text1的Text屬性，即：Text1.Text = temp（4）整理代碼，標準模塊代碼內沒有錯誤，得到窗體參考代碼如下：Private Sub Cmd1_Click() Dim i As Integer Dim temp As Long temp = 0 If Opt2.Value Then For i = 200 To 400 If isprime(i) Then temp = temp + i End If一、基本操作題下面出現(xiàn)的“考生文件夾”均為c:wexam20060001。請根據(jù)以下各小題的要求設計Visual Basic應用程序（包括界面和代碼）。1在名稱為Form1的窗體中，建立一個名稱為Cmd1、標題為“顯示”的命令按鈕。要求程序運行后，如果單擊“顯示”按鈕，則執(zhí)行語句Form1.Print顯示；如果單擊窗體，則執(zhí)行語句Form1.Cls。注意：保存時必須存放在考生文件夾下，窗體文件名為kt1.frm，工程文件名為kt1.vbp。2在名稱為Form1的窗體上建立一個水平滾動條，名稱為HS1，其最大值為100，最小值為0。要求程序運行后，每次移動滾動框時，都執(zhí)行語句Form1.Print HS1.Value（程序中不能使用任何變量）。注意：保存時必須存放在考生文件夾下，窗體文件名為kt2.frm，工程文件名為kt2.vbp。1【解析步驟】（1）本題只用到了1個命令按鈕，在窗體上建立這個控件。（2）將其Caption屬性設置為“顯示”，將Name屬性設置為Cmd1。（3）在窗體上打印信息用Print方法。參考代碼如下：Private Sub Cmd1_Click() Form1.Print 顯示End Sub（4）清除窗體上的打印信息使用Cls方法。參考代碼如下：Private Sub Form_Click() Form1.ClsEnd Sub（5）調試并運行程序。（6）按題目要求存盤。2【解析步驟】（1）建立界面并設置控件屬性。本程序中用到1個滾動框，按題意將其命名為HS1，即將其Name屬性設置為HS1。（2）HS1的Min和Max屬性分別設置為0和100。（3）清除窗體上原來的顯示值可以用Cls方法來實現(xiàn)。當滾動框的位置改變時，觸發(fā)Change事件。參考程序如下：Private Sub HS1_Change() Cls Form1.Print HScroll1.ValueEnd Sub（4）調試并運行程序。（5）按題目要求存盤。二、簡單應用題下面出現(xiàn)的“考生文件夾”均為c:wexam20060001。1在考生文件夾中有工程文件kt3.vbp及其窗體文件kt3.frm，該程序是不完整的，請在有“？”號的地方填入正確內容，然后刪除“？”及所有注釋符（即“”號），但不能修改其他部分。保存時不得改變文件名和文件夾。本題描述如下：在窗體上有兩個單選按鈕，名稱分別為Op1和Op2，標題分別為“黑體”和“楷體”；一個文本框，名稱為Text1，字體為宋體，字號為四號字；有一個命令按鈕，名稱為C1，標題為“切換”。要求程序運行后，在文本框中輸入“等級考試”，并選擇一個單選按鈕。在單擊“切換”按鈕后，會根據(jù)所選的單選按鈕來切換文本框中所顯示的漢字字體。2在窗體上建立一個名稱為Text1的文本框和一個名稱為Cmd1、標題為“計算”的命令按鈕。程序運行后，單擊“計算”命令按鈕，通過在對話框輸入整數(shù)12，放入整型變量a中，然后計算a!（提示：運算結果應放入Long型變量中），在文本框中顯示結果，并把結果存入文件out.txt中。考生文件夾中有一個標準模塊mode.bas，該模塊中提供了保存文件的過程putdata，考生可以直接調用。注意：保存時必須存放在考生文件夾下，窗體文件名為kt4.frm，工程文件名為kt4.vbp。二、簡單應用題答案1【解析步驟】（1）打開代碼窗口，得到程序代碼：Option ExplicitPrivate Sub C1_Click() If Op1 Then Text1.Font = Op1.? End If If Op2 Then Text1.? = 楷體_GB2312 End IfEnd Sub（2）研讀代碼，修改程序。 語句Text1.Font = Op1.?的目的是選擇“黑體”，它通過單選按鈕Op1的Caption屬性決定。即：Text1.Font = Op1.Caption 語句Text1.? = 楷體_GB2312的目的是選擇“楷體”，它應使用單選按鈕Op1的Caption屬性修改Text1的字體屬性。即：Text1.FontName = 楷體_GB2312（3）整理代碼。參考代碼如下：Option ExplicitPrivate Sub C1_Click() If Op1 Then Text1.Font = Op1.Caption End If If Op2 Then Text1.FontName = 楷體_GB2312 End IfEnd Sub（4）調試并運行程序。（5）按題目要求存盤。2【解析步驟】（1）畫1個文本框和1個命令按鈕，建立程序界面。（2）將命令按鈕的Caption屬性設置為“計算”，Name屬性設置成Cmd1。（3）文本框屬性為默認設置。（4）聲明存儲運算結果的Long型變量。在編寫程序代碼時要注意變量范圍的設定，題目要求將計算結果存入Long變量中，所以把最后放入文本框內的變量設置為長整型。例如：Dim temp As Long（5）研讀過程putdata的代碼，掌握其調用格式。標準模塊代碼：Option ExplicitSub putdata(t_FileName As String, T_Str As Variant) Dim sFile As String sFile = & t_FileName Open App.Path & sFile For Output As #1 Print #1, T_Str Close #1End Sub（6）過程putdata有兩個參數(shù)，編寫的參考代碼如下：Private Sub Cmd1_Click() Dim a As Integer Dim temp As Long Dim i As Integer a = Val(InputBox(請輸入, 12) temp = 1 For i = 1 To Val(a) temp = temp * i Next Text1.Text = temp putdata out.txt, Text1.TextEnd Sub（7）調試并運行程序。（8）按題目要求存盤。三、綜合應用題在考生文件夾中有工程文件kt5.vbp及其窗體文件kt5.frm，該程序是不完整的，請在有“？”號的地方填入正確內容，然后刪除“？”及所有注釋符（即“”號），但不能修改其他部分。本題描述如下：在名稱為Form1的窗體上有一個文本框，名稱為Text1，MultiLine屬性為True，ScrollBars屬性為2；兩個命令按鈕，名稱分別為Cmd1和Cmd2，標題分別為“讀入數(shù)據(jù)”和“計算保存”。要求程序運行后，如果單擊“讀入數(shù)據(jù)”按鈕，則讀入in.txt文件中的100個整數(shù)，放入一個數(shù)組中（數(shù)組下界為1），同時在文本框中顯示出來；如果單擊“計算保存”按鈕，則計算數(shù)組中大于或等于400并且小于800的所有數(shù)之和，并將結果在文本框Text1中顯示出來，同時把結果存入考生文件夾的result.txt文件中（在prog.bas中的putdata過程可以把結果存入result.txt文件）。注意：文件必須存放在考生文件夾下，窗體文件名為kt5.frm，工程文件名為kt5.vbp，計算結果存入result.txt文件中，否則沒有成績。三、綜合應用題答案【解析步驟】（1）建立界面并設置控件屬性。程序中用到的控件及其屬性見表4-6。表4-6控 件屬 性設置值文本框NameText1Scrollbars2MultilineTrue命令按鈕NameCmd1Caption讀入數(shù)據(jù)命令按鈕NameCmd2Caption計算保存（3）修改代碼。 語句Input #1, i(?)是讀入數(shù)據(jù)，它與語句For j = 1 To 100配合，所以為：Input #1, i(j) 語句Text1.?= temp是將結果temp顯示在文本框Text1中，即：Text1.Text = temp（4）參考代碼如下： Dim i(1 To 100) As IntegerPrivate Sub Cmd1_Click() Dim j As Integer j = 0 Open App.Path & in.txt For Input As #1 For j = 1 To 100 Input #1, i(j) Next Close #1 For j = 1 To 100 Text1.Text = Text1.Text & i(j) & Space(5) NextEnd SubPrivate Sub Cmd2_Click() Dim temp As Long Dim j As Integer For j = 1 To 100 If i(j) = 400 And i(j) t_I / 2 Then isprime = TrueEnd Function（3）可以使用isprime函數(shù)判斷整數(shù)x是否為素數(shù)。如果是，則將該素數(shù)計入。If isprime(i) Thentemp = temp + i（4）temp應聲明為Long型。（5）使用如下調用形式把結果存入文件out.txt中：putdata out.txt, temp（6）Cmd1_Click()事件的參考代碼如下：Private Sub Cmd1_Click() Dim i As Integer Dim temp As Long temp = 0 For i = 100 To 200 If isprime(i) Then temp = temp + i End If Next Text1.Text = tempputdata out.txt, tempEnd Sub（7）調試并運行程序。（8）按題目要求存盤。三、綜合應用題在考生文件夾中有工程文件kt5.vbp及其窗體文件kt5.frm，該程序是不完整的，請在有“？”號的地方填入正確內容，然后刪除“？”及所有注釋符（即“”號），但不能修改其他部分。本題描述如下：在名稱為Form1的窗體上有一個文本框，名稱為Text1，MultiLine屬性為True，ScrollBars屬性為2；兩個命令按鈕，名稱分別為Cmd1和Cmd2，標題分別為“讀入數(shù)據(jù)”和“保存數(shù)據(jù)”。程序運行后，如果單擊“讀入數(shù)據(jù)”按鈕，則讀入“in.txt”文件中的100個整數(shù)，放入一個數(shù)組中（數(shù)組下界為1），并在文本框Text1中顯示出來；如果單擊“保存數(shù)據(jù)”按鈕，則把數(shù)組中的前50個數(shù)據(jù)在文本框Text1中顯示出來，并存入考生文件夾中的result.txt文件中（考生文件夾中有標準模塊prog.bas，其中的putdata過程可以把指定個數(shù)的數(shù)組元素存入result.txt文件）。注意：保存時必須存放在考生文件夾下，窗體文件名為kt5.frm，工程文件名為kt5.vbp，結果存入out.txt文件。窗體代碼Dim i(1 To 100) As IntegerPrivate Sub Cmd1_Click() Dim j As Integer j = 0 Open App.Path & in.txt For Input As #1 For j = 1 To 100 Input #1, i(j) Next Close #1 For j = 1 To 100 Text1.Text = Text1.Text&i(j)&Space(5) NextEnd SubPrivate Sub Cmd2_Click() Dim temp As Long Dim j As Integer Text1.Text = For j = 1 To 50 Text1.Text = Text1.Text&i(j)&Space(5) Next putdata i, 50End Sub一、基本操作題下面出現(xiàn)的“考生文件夾”均為c:wexam20060001。請根據(jù)以下各小題的要求設計Visual Basic應用程序（包括界面和代碼）。1在名稱為Form1的窗體上建立一個名稱為Text1的文本框，一個名稱為Cmd1、標題為“輸出”的命令按鈕。要求程序運行后，在文本框輸入幾個字符，單擊“輸出”按鈕，則在窗體上顯示文本框中輸入的字符。注意：在程序中不能使用任何變量。保存時必須存放在考生文件夾下，窗體文件名為kt1.frm，工程文件名為kt1.vbp。2在名稱為Form1的窗體上建立兩個名稱分別為Cmd1和Cmd2、標題分別為“按鈕一”和“按鈕二”的命令按鈕。要求程序運行后，如果單擊“按鈕一”，則把“按鈕二”移到“按鈕一”上，使兩個按鈕重合。注意：在程序中不得使用任何變量（必須通過屬性設置來移動控件）。保存時必須存放在考生文件夾下，窗體文件名為kt2.frm，工程文件名為kt2.vbp。一、基本操作題答案1【解析步驟】（1）先建立界面并設置控件屬性。程序中用到的控件及其屬性見表4-11。表4-11控 件屬 性設置值文本框NameText1續(xù) 表按鈕NameCmd1Caption輸出Private Sub Cmd1_Click() Cls Print Text1.TextEnd Sub2【解析步驟】（1）建立界面并設置控件屬性。程序中用到的控件及其屬性見表4-12。（2）命令按鈕的Caption屬性用來設置其標題，單擊命令按鈕觸發(fā)Click事件。表4-12控 件屬 性設置值按鈕NameCmd1Caption按鈕一按鈕NameCmd2Caption按鈕二Private Sub Cmd1_Click() Cmd2.Left = Cmd1.Left Cmd2.Top = Cmd1.TopEnd Sub二、簡單應用題下面出現(xiàn)的“考生文件夾”均為c:wexam20060001。1在考生文件夾下有一個工程文件kt3.vbp，窗體上已經有一個標簽L1，請畫一個單選按鈕數(shù)組，名稱為Op1，含三個單選按鈕，它們的Index屬性分別為0、1和2，標題依次為“飛機”、“火車”和“汽車”，再畫一個名稱為Text1的文本框。窗體文件中已經給出了Op1的Click事件過程，但不完整，要求去掉程序中的注釋符（即“”號），把程序中的“？”改為正確的內容，使得在運行時單擊“飛機”或“火車”單選按鈕時，在Text1中顯示“我坐飛機去”或“我坐火車去”，單擊“汽車”單選按鈕時，在Text1中顯示“我開汽車去”。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名保存。2在窗體上建立一個名稱為Text1的文本框，建立一個名稱為Cmd1、標題為“計算”的命令按鈕。要求程序運行后，如果單擊“計算”按鈕，則求出100200之間所有能被3整除的數(shù)的總和，在文本框中顯示出來，并把結果存入考生文件夾下的out.txt文件中（在考生的文件夾下有一個mode.bas標準模塊，該模塊中提供了保存文件的過程putdata，考生可以直接調用）。注意：保存時必須存放在考生文件夾下，窗體文件名為kt4.frm，工程文件名為kt4.vbp，結果存入out.txt文件。二、簡單應用題答案1【解題步驟】（1）建立界面并設置控件屬性。程序用到的控件及其屬性見表4-13。表4-13對 象屬 性設置值TextName Text1單選按鈕NameOp1(0)Caption飛機單選按鈕NameOp1(1)Caption火車單選按鈕NameOp1(2)Caption汽車標簽框NameLablelCaption請選擇參考代碼：Private Sub Op1_Click(Index As Integer) Dim a As String, b As String, c As String a=我坐 b=我開 Select Case Index Case 0 Text1.Text = a+Me.Op1(0).Caption + 去 Case 1 Text1.Text = a+Me.Op1(1).Caption + 去 Case 2 Text1.Text = b+Me.Op1(2).Caption + 去 End SelectEnd Sub2【解析步驟】控 件屬 性設置值按鈕NameCmd1Caption計算文本框NameText1Option ExplicitSub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String sFile = & t_FileName Open App.Path & sFile For Output As #1 Print #1, t_Str Close #1End Sub（3）將用來存放結果的變量設計成Long型。（4）能被3整除，即i Mod 3 = 0（5）參考代碼如下：Private Sub Cmd1_Click() Dim temp As Long Dim i As Integer For i = 100 To 200 If i Mod 3 = 0 Then temp = temp + i End If Next Text1.Text = temp putdata out.txt, tempEnd Sub三、綜合應用題下面出現(xiàn)的“考生文件夾”均為c:wexam20060001。在考生文件夾中有工程文件kt5.vbp及其窗體文件kt5.frm，該程序是不完整的，請在有“？”號的地方填入正確內容，然后刪除“？”及所有注釋符（即“”號），但不能修改其他部分。本題描述如下：在名稱為Form1的窗體上有一個文本框，名稱為Text1，MultiLine屬性為True，ScrollBars屬性為2；兩個命令按鈕，名稱分別為Cmd1和Cmd2，標題分別為“讀入數(shù)據(jù)”和“排序顯示保存”。程序運行后，如果單擊“讀入數(shù)據(jù)”按鈕，則讀入in.txt文件中的100個整數(shù)，放入一個數(shù)組中（數(shù)組下界為1）；如果單擊“排序顯示保存”按鈕，則對這100個整數(shù)按從小到大進行排序，并把排序后的全部數(shù)據(jù)在文本框Text1中顯示出來，然后存入考生文件夾中的文件result.txt中（在程序中的標準模塊prog.bas過程可以把指定個數(shù)的數(shù)組元素存入result.txt文件中）。注意：文件必須存放在考生文件夾下，窗體文件名為kt5.frm，工程文件名為kt5.vbp，排序結果存入result.txt文件，否則沒有成績。Option ExplicitDim i(1 To 100) As IntegerPrivate Sub Cmd1_Click() Dim j As Integer Open in.txtFor Input As #1 For j = 1 To 100 Input #1, i(j) Text1.Text = Text1.Text&i(j)&Space(5) Next Close #1End SubPrivate Sub Cmd2_Click() Dim j As Integer Dim k As Integer Dim temp As Integer Dim flag As Boolean For j = 1 To 100 flag = False For k = 1 To 100 - j If i(k) i(k+1)Then temp = i(k) i(k) = i(k+1) i(k + 1) = temp flag = True End If Next If Not flag Then Exit For End If Next Text1.Text = For j = 1 To 100 Text1.Text= Text1.Text&i(j)&Space(5) Next putdata i, 100End Sub一、基本操作題下面出現(xiàn)的“考生文件夾”均為c:wexam20060001。請根據(jù)以下各小題的要求設計Visual Basic應用程序（包括界面和代碼）。1在名稱為Form1的窗體上建立一個水平滾動條，并在屬性窗口中將其名稱設置為HS1，Max屬性設置為100，Min屬性設置為0，Value屬性設置為100。程序運行后，滾動框位于滾動條最右端，如果單擊滾動條之外的窗體部分，則滾動框跳到最左端。注意：只能直接為相應的屬性賦值，不得使用任何變量。