全國(guó)計(jì)算機(jī)二級(jí)VB上機(jī)題庫(kù)(題+答案).doc

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