全國計算機(jī)二級VB上機(jī)試題庫題答案

1、-. z.一、根本操作題下面出現(xiàn)的考生文件夾均為c:we*am20060001。請根據(jù)以下各小題的要求設(shè)計Visual Basic應(yīng)用程序包括界面和代碼。1在窗體上建立一個二級菜單，該菜單含有文件和幫助兩個主菜單項名稱分別為vbFile和vbHelp，其中文件菜單包括翻開、關(guān)閉和退出三個子菜單項名稱分別為vbOpen、vbClose和vbE*it。只建立菜單，不必定義其事件過程。注意：保存時必須存放在考生文件夾下，窗體文件名為kt1.frm，工程文件名為kt1.vbp。2在名稱為Form1的窗體上建立兩個名稱分別為Cmd1和Cmd2、標(biāo)題分別為喜歡和不喜歡的命令按鈕。編寫適當(dāng)?shù)氖录^程，要求程

2、序運(yùn)行后，如果單擊喜歡命令按鈕，則在窗體上顯示數(shù)理化；如果單擊不喜歡命令按鈕，則在窗體上顯示政史地。程序中不能使用任何變量，直接顯示字符串。注意：保存時必須存放在考生文件夾下，窗體文件名為kt2.frm，工程文件名為kt2.vbp。一、根本操作題答案1【解題步驟】1翻開菜單編輯器。2菜單設(shè)計見表4-1。表4-1標(biāo)題名稱縮符號文件vbFile0翻開vbOpen1關(guān)閉vbClose1退出vbE*it1幫助vbHelp03按要求設(shè)計含有文件和幫助的菜單欄。4為文件菜單設(shè)計翻開、關(guān)閉和退出三個子菜單項。5設(shè)計完成之后，按規(guī)定方式存盤。2【解題步驟】1建立界面和控件并設(shè)置控件屬性。程序中用到的控件及其屬

3、性見表4-2。表4-2控件屬性設(shè)置值按鈕NameCmd1Caption喜歡按鈕NameCmd2Caption不喜歡2編寫程序代碼。參考代碼：Private Sub Cmd1_Click()Print數(shù)理化End SubPrivate Sub Cmd2_Click()Print政史地End Sub3調(diào)試并運(yùn)行程序。4按題目要求存盤。二、簡單應(yīng)用題下面出現(xiàn)的考生文件夾均為c:we*am20060001。1在考生文件夾中有工程文件kt3.vbp及其窗體文件kt3.frm，該程序是不完整的，請在有？號的地方填入正確容，然后刪除？及所有注釋符即號，但不能修改其他局部。保存時不得改變文件名和文件夾。此題描

4、述如下：在窗體上有一個列表框，名稱為List1；一個文本框，名稱為Te*t1；一個命令按鈕，名稱為C1，標(biāo)題為復(fù)制。要求程序運(yùn)行后，在列表框中自動建立4個列表項，分別為Item1、Item2、Item3和Item4。如果選擇列表框中的一項，單擊復(fù)制按鈕，就可以把該項復(fù)制到文本框中。2在考生文件夾中有工程文件kt4.vbp及其窗體文件kt4.frm，該程序是不完整的，請在有？號的地方填入正確容，然后刪除？及所有注釋符即號，但不能修改其他局部。保存時不得改變文件名和文件夾。在窗體上有3個復(fù)選框，名稱分別為Ch1、Ch2和Ch3，標(biāo)題分別為體育、音樂和美術(shù)，還有一個命令按鈕，名稱為C1，標(biāo)題為顯示。

5、要求程序運(yùn)行后，如果選中*個復(fù)選框，當(dāng)單擊顯示命令按鈕時，則顯示相應(yīng)的信息。例如，如果選中體育和美術(shù)復(fù)選框，單擊顯示命令按鈕后，在窗體上顯示我的愛好是體育美術(shù)。二、簡單應(yīng)用題答案1【解析步驟】1首先按要求翻開給定工程文件kt3.vbp及其窗體文件kt3.frm。2在窗體上建立控件并設(shè)置控件屬性。程序中用到的控件及屬性設(shè)置見表4-3。表4-3控件屬性設(shè)置值列表框NameList1文本框NameTe*t1命令按鈕NameC1Caption復(fù)制3進(jìn)入代碼窗口，得到如下程序代碼：Option E*plicitPrivate Sub C1_Click() m i As Integer For i = T

6、o List1.ListCount - 1 If List1.Selected(i) = True Then = List1.List(i) End If Ne*t iEnd SubPrivate Sub Form_Load() List1.AddItem Item1 List1.AddItem Item2 List1.AddItem Item3 List1.AddItem Item4End Sub4For語句循環(huán)變量的起始值為0。5列表框的Te*t屬性為最后一次選中的表項的文本。6修改這兩處的代碼。參考代碼如下：Option E*plicitPrivate Sub C1_Click() Di

7、m i As Integer For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then Te*t1.Te*t = List1.List(i) End If Ne*t iEnd SubPrivate Sub Form_Load() List1.AddItem Item1 List1.AddItem Item2 List1.AddItem Item3 List1.AddItem Item4End Sub7調(diào)試并運(yùn)行。8按題目要求存盤。2【解析步驟】1在窗體上先按要求建立控件，設(shè)置控件屬性，程序中用到的控件及屬性見表4-4。表

8、4-4對象屬性設(shè)置值復(fù)選按鈕NameCh1Caption體育復(fù)選按鈕NameCh2Caption音樂復(fù)選按鈕NameCh2Caption美術(shù)標(biāo)簽Caption愛好按鈕NameC1Caption顯示2翻開代碼窗口，程序提供的代碼如下：Option E*plicitPrivate 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

9、.Caption End If Print End Sub3讀懂程序，分析代碼。通過語句s = 我的愛好是可知s為字符串，所以應(yīng)改為：Dim s As String由語句：s = s + Ch*.Caption可知輸出的變量為s，所以應(yīng)改為：Print s4編寫程序代碼，整理后可得如下參考代碼：Option E*plicitPrivate 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.Capti

10、on End If If Ch3.Value = 1 Then s = s + Ch3.Caption End If Print sEnd Sub5調(diào)試并運(yùn)行程序。6按題目要求存盤。三、綜合應(yīng)用題在考生文件夾中有工程文件kt5.vbp及其窗體文件kt5.frm，該程序是不完整的，請在有？號的地方填入正確容，然后刪除？及所有注釋符即號，但不能修改其他局部。此題描述如下：在名稱為Form1的窗體上有兩個單項選擇按鈕，名稱分別為Opt1和Opt2，標(biāo)題分別為100200之間素數(shù)和200400之間素數(shù)；一個文本框，名稱為Te*t1；兩個命令按鈕，其名稱分別為Cmd1和Cmd2，標(biāo)題分別為計算和存盤。程

11、序運(yùn)行后，如果選中一個單項選擇按鈕并單擊計算按鈕，則計算出該單項選擇按鈕標(biāo)題所指明的所有素數(shù)之和，并在文本框中顯示出來。如果單擊存盤按鈕，則把計算結(jié)果存入out.t*t文件中，該文件必須放在考生文件夾中在考生文件夾中有標(biāo)準(zhǔn)模塊mode.bas，其中的putdata過程可以把結(jié)果存入指定的文件，而isprime函數(shù)可以判斷整數(shù)*是否為素數(shù)，如果是素數(shù)，則函數(shù)返回True，否則返回False，考生可以將該模塊文件添加到自己的工程中。注意：必須把素數(shù)之和存入考生文件夾下的out.t*t文件中，否則沒有成績。保存程序時必須存放在考生文件夾下，窗體文件名為kt5.frm，工程文件名為kt5.vbp。三、

12、綜合應(yīng)用題答案【解析步驟】1建立界面并設(shè)置控件屬性。題目提供了程序用到的控件及其屬性，見表4-5。表4-5控件屬性設(shè)置值單項選擇按鈕NameOp1Caption100200之間素數(shù)單項選擇按鈕NameOp2Caption200400之間素數(shù)文本框NameTe*t1命令按鈕NameCmd1Caption計算命令按鈕NameCmd2Caption存盤2翻開代碼窗口，得到程序提供的代碼如下：標(biāo)準(zhǔn)模塊代碼Option E*plicitSub putdata(t_FileName As String, T_Str As Variant)Dim sFile As String sFile = & t_Fi

13、leName 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 E*it For Ne*t J If J t_I / 2 Then isprime = TrueEnd Function窗體代碼Private Sub Cmd1_Click() Dim i As Integ

14、er Dim temp As Long temp = If Opt2.Value Then For i = 200 To 400 If isprime() Then temp = temp + i End If Ne*t Else For i = 100 To 200 If isprime(i) Then temp = temp + i End If Ne*t End If Te*t1. = tempEnd SubPrivate Sub Cmd2_Click() putdata out.t*t, Te*t1.Te*tEnd Sub3分析代碼，找出答案。 temp用來存放累加和，所以必須初始化，

15、即：temp = 0 Te*t1顯示temp的值，所以使用Te*t1的Te*t屬性，即：Te*t1.Te*t = temp4整理代碼，標(biāo)準(zhǔn)模塊代碼沒有錯誤，得到窗體參考代碼如下：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:we*am20060001。請根據(jù)以下各小題的要求設(shè)計Visual Basic應(yīng)用程序

16、包括界面和代碼。1在名稱為Form1的窗體中，建立一個名稱為Cmd1、標(biāo)題為顯示的命令按鈕。要求程序運(yùn)行后，如果單擊顯示按鈕，則執(zhí)行語句Form1.Print顯示；如果單擊窗體，則執(zhí)行語句Form1.Cls。注意：保存時必須存放在考生文件夾下，窗體文件名為kt1.frm，工程文件名為kt1.vbp。2在名稱為Form1的窗體上建立一個水平滾動條，名稱為HS1，其最大值為100，最小值為0。要求程序運(yùn)行后，每次移動滾動框時，都執(zhí)行語句Form1.Print HS1.Value程序中不能使用任何變量。注意：保存時必須存放在考生文件夾下，窗體文件名為kt2.frm，工程文件名為kt2.vbp。1【解

17、析步驟】1此題只用到了1個命令按鈕，在窗體上建立這個控件。2將其Caption屬性設(shè)置為顯示，將Name屬性設(shè)置為Cmd1。3在窗體上打印信息用Print方法。參考代碼如下：Private Sub Cmd1_Click() Form1.Print 顯示End Sub4去除窗體上的打印信息使用Cls方法。參考代碼如下：Private Sub Form_Click() Form1.ClsEnd Sub5調(diào)試并運(yùn)行程序。6按題目要求存盤。2【解析步驟】1建立界面并設(shè)置控件屬性。本程序中用到1個滾動框，按題意將其命名為HS1，即將其Name屬性設(shè)置為HS1。2HS1的Min和Ma*屬性分別設(shè)置為0和1

18、00。3去除窗體上原來的顯示值可以用Cls方法來實(shí)現(xiàn)。當(dāng)滾動框的位置改變時，觸發(fā)Change事件。參考程序如下：Private Sub HS1_Change() Cls Form1.Print HScroll1.ValueEnd Sub4調(diào)試并運(yùn)行程序。5按題目要求存盤。二、簡單應(yīng)用題下面出現(xiàn)的考生文件夾均為c:we*am20060001。1在考生文件夾中有工程文件kt3.vbp及其窗體文件kt3.frm，該程序是不完整的，請在有？號的地方填入正確容，然后刪除？及所有注釋符即號，但不能修改其他局部。保存時不得改變文件名和文件夾。此題描述如下：在窗體上有兩個單項選擇按鈕，名稱分別為Op1和Op2

19、，標(biāo)題分別為黑體和楷體；一個文本框，名稱為Te*t1，字體為宋體，字號為四號字；有一個命令按鈕，名稱為C1，標(biāo)題為切換。要求程序運(yùn)行后，在文本框中輸入等級考試，并選擇一個單項選擇按鈕。在單擊切換按鈕后，會根據(jù)所選的單項選擇按鈕來切換文本框中所顯示的漢字字體。2在窗體上建立一個名稱為Te*t1的文本框和一個名稱為Cmd1、標(biāo)題為計算的命令按鈕。程序運(yùn)行后，單擊計算命令按鈕，通過在對話框輸入整數(shù)12，放入整型變量a中，然后計算a!提示：運(yùn)算結(jié)果應(yīng)放入Long型變量中，在文本框中顯示結(jié)果，并把結(jié)果存入文件out.t*t中?？忌募A中有一個標(biāo)準(zhǔn)模塊mode.bas，該模塊中提供了保存文件的過程put

20、data，考生可以直接調(diào)用。注意：保存時必須存放在考生文件夾下，窗體文件名為kt4.frm，工程文件名為kt4.vbp。二、簡單應(yīng)用題答案1【解析步驟】1翻開代碼窗口，得到程序代碼：Option E*plicitPrivate Sub C1_Click() If Op1 Then Te*t1.Font = Op1. End If If Op2 Then Te*t1. = 楷體_GB2312 End IfEnd Sub2研讀代碼，修改程序。語句Te*t1.Font = Op1.的目的是選擇黑體，它通過單項選擇按鈕Op1的Caption屬性決定。即：Te*t1.Font = Op1.Caption

21、語句Te*t1. = 楷體_GB2312的目的是選擇楷體，它應(yīng)使用單項選擇按鈕Op1的Caption屬性修改Te*t1的字體屬性。即：Te*t1.FontName = 楷體_GB23123整理代碼。參考代碼如下：Option E*plicitPrivate Sub C1_Click() If Op1 Then Te*t1.Font = Op1.Caption End If If Op2 Then Te*t1.FontName = 楷體_GB2312 End IfEnd Sub4調(diào)試并運(yùn)行程序。5按題目要求存盤。2【解析步驟】1畫1個文本框和1個命令按鈕，建立程序界面。2將命令按鈕的Captio

22、n屬性設(shè)置為計算，Name屬性設(shè)置成Cmd1。3文本框?qū)傩詾槟J(rèn)設(shè)置。4聲明存儲運(yùn)算結(jié)果的Long型變量。在編寫程序代碼時要注意變量圍的設(shè)定，題目要求將計算結(jié)果存入Long變量中，所以把最后放入文本框的變量設(shè)置為長整型。例如：Dim temp As Long5研讀過程putdata的代碼，掌握其調(diào)用格式。標(biāo)準(zhǔn)模塊代碼：Option E*plicitSub putdata(t_FileName As String, T_Str As Variant) Dim sFile As String sFile = & t_FileName Open App.Path & sFile For Output

23、 As #1 Print #1, T_Str Close #1End Sub6過程putdata有兩個參數(shù)，編寫的參考代碼如下：Private Sub Cmd1_Click() Dim a As Integer Dim temp As Long Dim i As Integer a = Val(InputBo*(請輸入, 12) temp = 1 For i = 1 To Val(a) temp = temp * i Ne*t Te*t1.Te*t = temp putdata out.t*t, Te*t1.Te*tEnd Sub7調(diào)試并運(yùn)行程序。8按題目要求存盤。三、綜合應(yīng)用題在考生文件夾中

24、有工程文件kt5.vbp及其窗體文件kt5.frm，該程序是不完整的，請在有？號的地方填入正確容，然后刪除？及所有注釋符即號，但不能修改其他局部。此題描述如下：在名稱為Form1的窗體上有一個文本框，名稱為Te*t1，MultiLine屬性為True，ScrollBars屬性為2；兩個命令按鈕，名稱分別為Cmd1和Cmd2，標(biāo)題分別為讀入數(shù)據(jù)和計算保存。要求程序運(yùn)行后，如果單擊讀入數(shù)據(jù)按鈕，則讀入in.t*t文件中的100個整數(shù)，放入一個數(shù)組中數(shù)組下界為1，同時在文本框中顯示出來；如果單擊計算保存按鈕，則計算數(shù)組于或等于400并且小于800的所有數(shù)之和，并將結(jié)果在文本框Te*t1中顯示出來，同

25、時把結(jié)果存入考生文件夾的result.t*t文件中在prog.bas中的putdata過程可以把結(jié)果存入result.t*t文件。注意：文件必須存放在考生文件夾下，窗體文件名為kt5.frm，工程文件名為kt5.vbp，計算結(jié)果存入result.t*t文件中，否則沒有成績。三、綜合應(yīng)用題答案【解析步驟】1建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見表4-6。表4-6控件屬性設(shè)置值文本框NameTe*t1Scrollbars2MultilineTrue命令按鈕NameCmd1Caption讀入數(shù)據(jù)命令按鈕NameCmd2Caption計算保存3修改代碼。語句Input #1, i()是讀入

26、數(shù)據(jù)，它與語句For j = 1 To 100配合，所以為：Input #1, i(j)語句Te*t1.= temp是將結(jié)果temp顯示在文本框Te*t1中，即：Te*t1.Te*t = temp4參考代碼如下：Dim i(1 To 100) As IntegerPrivate Sub Cmd1_Click() Dim j As Integer j = 0 Open App.Path & in.t*t For Input As #1 For j = 1 To 100 Input #1, i(j) Ne*t Close #1 For j = 1 To 100 Te*t1.Te*t = Te*t1

27、.Te*t & i(j) & Space(5) Ne*tEnd 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 Function3可以使用isprime函數(shù)判斷整數(shù)*是否為素數(shù)。如果是，則將該素數(shù)計入。If isprime(i) Thentemp = temp + i4temp應(yīng)聲明為Long型。5使用如下調(diào)用形式把結(jié)果存入文件out.t*t中：putdata out.t*t,

28、temp6Cmd1_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 Ne*t Te*t1.Te*t = tempputdata out.t*t, tempEnd Sub7調(diào)試并運(yùn)行程序。8按題目要求存盤。三、綜合應(yīng)用題在考生文件夾中有工程文件kt5.vbp及其窗體文件kt5.frm，該程序是不完整的，請在有？號的地方填入正確容，然后刪除？及所有注釋符即號

29、，但不能修改其他局部。此題描述如下：在名稱為Form1的窗體上有一個文本框，名稱為Te*t1，MultiLine屬性為True，ScrollBars屬性為2；兩個命令按鈕，名稱分別為Cmd1和Cmd2，標(biāo)題分別為讀入數(shù)據(jù)和保存數(shù)據(jù)。程序運(yùn)行后，如果單擊讀入數(shù)據(jù)按鈕，則讀入in.t*t文件中的100個整數(shù)，放入一個數(shù)組中數(shù)組下界為1，并在文本框Te*t1中顯示出來；如果單擊保存數(shù)據(jù)按鈕，則把數(shù)組中的前50個數(shù)據(jù)在文本框Te*t1中顯示出來，并存入考生文件夾中的result.t*t文件中考生文件夾中有標(biāo)準(zhǔn)模塊prog.bas，其中的putdata過程可以把指定個數(shù)的數(shù)組元素存入result.t*t

30、文件。注意：保存時必須存放在考生文件夾下，窗體文件名為kt5.frm，工程文件名為kt5.vbp，結(jié)果存入out.t*t文件。窗體代碼Dim i(1 To 100) As IntegerPrivate Sub Cmd1_Click() Dim j As Integer j = 0 Open App.Path & in.t*t For Input As #1 For j = 1 To 100 Input #1, i(j) Ne*t Close #1 For j = 1 To 100 Te*t1.Te*t = Te*t1.Te*t&i(j)&Space(5) Ne*tEnd SubPrivate

31、Sub Cmd2_Click() Dim temp As Long Dim j As Integer Te*t1.Te*t = For j = 1 To 50 Te*t1.Te*t = Te*t1.Te*t&i(j)&Space(5) Ne*t putdata i, 50End Sub一、根本操作題下面出現(xiàn)的考生文件夾均為c:we*am20060001。請根據(jù)以下各小題的要求設(shè)計Visual Basic應(yīng)用程序包括界面和代碼。1在名稱為Form1的窗體上建立一個名稱為Te*t1的文本框，一個名稱為Cmd1、標(biāo)題為輸出的命令按鈕。要求程序運(yùn)行后，在文本框輸入幾個字符，單擊輸出按鈕，則在窗體上顯示

32、文本框中輸入的字符。注意：在程序中不能使用任何變量。保存時必須存放在考生文件夾下，窗體文件名為kt1.frm，工程文件名為kt1.vbp。2在名稱為Form1的窗體上建立兩個名稱分別為Cmd1和Cmd2、標(biāo)題分別為按鈕一和按鈕二的命令按鈕。要求程序運(yùn)行后，如果單擊按鈕一，則把按鈕二移到按鈕一上，使兩個按鈕重合。注意：在程序中不得使用任何變量必須通過屬性設(shè)置來移動控件。保存時必須存放在考生文件夾下，窗體文件名為kt2.frm，工程文件名為kt2.vbp。一、根本操作題答案1【解析步驟】1先建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見表4-11。表4-11控件屬性設(shè)置值文本框NameTe*t

33、1續(xù)表按鈕NameCmd1Caption輸出Private Sub Cmd1_Click() Cls Print Te*t1.Te*tEnd 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二、簡單應(yīng)用題下面出現(xiàn)的考生文件夾均為c:we

34、*am20060001。1在考生文件夾下有一個工程文件kt3.vbp，窗體上已經(jīng)有一個標(biāo)簽L1，請畫一個單項選擇按鈕數(shù)組，名稱為Op1，含三個單項選擇按鈕，它們的Inde*屬性分別為0、1和2，標(biāo)題依次為飛機(jī)、火車和汽車，再畫一個名稱為Te*t1的文本框。窗體文件中已經(jīng)給出了Op1的Click事件過程，但不完整，要求去掉程序中的注釋符即號，把程序中的？改為正確的容，使得在運(yùn)行時單擊飛機(jī)或火車單項選擇按鈕時，在Te*t1中顯示我坐飛機(jī)去或我坐火車去，單擊汽車單項選擇按鈕時，在Te*t1中顯示我開汽車去。注意：不能修改程序中的其他局部。最后把修改后的文件按原文件名保存。2在窗體上建立一個名稱為Te

35、*t1的文本框，建立一個名稱為Cmd1、標(biāo)題為計算的命令按鈕。要求程序運(yùn)行后，如果單擊計算按鈕，則求出100200之間所有能被3整除的數(shù)的總和，在文本框中顯示出來，并把結(jié)果存入考生文件夾下的out.t*t文件中在考生的文件夾下有一個mode.bas標(biāo)準(zhǔn)模塊，該模塊中提供了保存文件的過程putdata，考生可以直接調(diào)用。注意：保存時必須存放在考生文件夾下，窗體文件名為kt4.frm，工程文件名為kt4.vbp，結(jié)果存入out.t*t文件。二、簡單應(yīng)用題答案1【解題步驟】1建立界面并設(shè)置控件屬性。程序用到的控件及其屬性見表4-13。表4-13對象屬性設(shè)置值Te*tName Te*t1單項選擇按鈕N

36、ameOp1(0)Caption飛機(jī)單項選擇按鈕NameOp1(1)Caption火車單項選擇按鈕NameOp1(2)Caption汽車標(biāo)簽框NameLablelCaption請選擇參考代碼：Private Sub Op1_Click(Inde* As Integer) Dim a As String, b As String, c As String a=我坐 b=我開 Select Case Inde* Case 0 Te*t1.Te*t = a+Me.Op1(0).Caption + 去 Case 1 Te*t1.Te*t = a+Me.Op1(1).Caption + 去 Case 2

37、 Te*t1.Te*t = b+Me.Op1(2).Caption + 去 End SelectEnd Sub2【解析步驟】控件屬性設(shè)置值按鈕NameCmd1Caption計算文本框NameTe*t1Option E*plicitSub 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 Sub3將用來存放結(jié)果的變量設(shè)計成Long型。4能

38、被3整除，即i Mod 3 = 05參考代碼如下：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 Ne*t Te*t1.Te*t = temp putdata out.t*t, tempEnd Sub三、綜合應(yīng)用題下面出現(xiàn)的考生文件夾均為c:we*am20060001。在考生文件夾中有工程文件kt5.vbp及其窗體文件kt5.frm，該程序是不完整的，請在有？號的地方填入正確容，然后刪除？及所有注釋符即

39、號，但不能修改其他局部。此題描述如下：在名稱為Form1的窗體上有一個文本框，名稱為Te*t1，MultiLine屬性為True，ScrollBars屬性為2；兩個命令按鈕，名稱分別為Cmd1和Cmd2，標(biāo)題分別為讀入數(shù)據(jù)和排序顯示保存。程序運(yùn)行后，如果單擊讀入數(shù)據(jù)按鈕，則讀入in.t*t文件中的100個整數(shù)，放入一個數(shù)組中數(shù)組下界為1；如果單擊排序顯示保存按鈕，則對這100個整數(shù)按從小到大進(jìn)展排序，并把排序后的全部數(shù)據(jù)在文本框Te*t1中顯示出來，然后存入考生文件夾中的文件result.t*t中在程序中的標(biāo)準(zhǔn)模塊prog.bas過程可以把指定個數(shù)的數(shù)組元素存入result.t*t文件中。注意

40、：文件必須存放在考生文件夾下，窗體文件名為kt5.frm，工程文件名為kt5.vbp，排序結(jié)果存入result.t*t文件，否則沒有成績。Option E*plicitDim i(1 To 100) As IntegerPrivate Sub Cmd1_Click() Dim j As Integer Open in.t*tFor Input As #1 For j = 1 To 100 Input #1, i(j) Te*t1.Te*t = Te*t1.Te*t&i(j)&Space(5) Ne*t Close #1End SubPrivate Sub Cmd2_Click() Dim j

41、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 Ne*t If Not flag Then E*it For End If Ne*t Te*t1.Te*t = For j = 1 To 100 Te*t1.Te*t= Te*t1.Te*t&i(j)&

42、Space(5) Ne*t putdata i, 100End Sub一、根本操作題下面出現(xiàn)的考生文件夾均為c:we*am20060001。請根據(jù)以下各小題的要求設(shè)計Visual Basic應(yīng)用程序包括界面和代碼。1在名稱為Form1的窗體上建立一個水平滾動條，并在屬性窗口中將其名稱設(shè)置為HS1，Ma*屬性設(shè)置為100，Min屬性設(shè)置為0，Value屬性設(shè)置為100。程序運(yùn)行后，滾動框位于滾動條最右端，如果單擊滾動條之外的窗體局部，則滾動框跳到最左端。注意：只能直接為相應(yīng)的屬性賦值，不得使用任何變量。保存時必須存放在考生文件夾下，窗體文件名為kt1.frm，工程文件名為kt1.vbp。2在名稱

43、為Form1的窗體中建立1個標(biāo)簽，名稱為L1，在標(biāo)簽上顯示選課，其字體大小為小四；再建立3個復(fù)選框，名稱分別為Chk1、Chk2和Chk3，標(biāo)題分別為操作系統(tǒng)、數(shù)據(jù)庫原理和概率論，字體大小均為小四，其中概率論被禁用。注意：保存時必須存放在考生文件夾下，窗體文件名為kt2.frm，工程文件名為kt2.vbp。1控件屬性設(shè)置值滾動條NameHS1Min0Ma*100Value100Private Sub Form_Click() HS1.Value = 0End Sub2控件屬性設(shè)置值標(biāo)簽NameL1Caption選課FontSize小四復(fù)選框NameChk1Caption操作系統(tǒng)FontSize

44、小四復(fù)選框NameChk2Caption數(shù)據(jù)庫原理FontSize小四復(fù)選框NameChk3Caption概率論FontSize小四EnabledFalse二、簡單應(yīng)用題下面出現(xiàn)的考生文件夾均為c:we*am20060001。1在考生文件夾中有工程文件kt3.vbp及其窗體文件kt3.frm，該程序是不完整的，請在有？號的地方填入正確容，然后刪除？及所有注釋符即號，但不能修改其他局部。保存時不得改變文件名和文件夾。此題描述如下：在窗體上有一個名稱為Te*t1的文本框，一個名稱為C1、標(biāo)題為校驗的命令按鈕。其中文本框用來輸入口令，要求在文本框中輸入的容都必須以*顯示請考生通過屬性窗口設(shè)置。要求程

45、序運(yùn)行后，輸入口令，單擊命令按鈕后，對口令進(jìn)展校驗。如果輸入的容是ABC這3個大寫字母，則用MsgBo*信息框輸出正確，否則輸出錯誤。2在考生文件夾中有工程文件kt4.vbp及其窗體文件kt4.frm，該程序是不完整的，請在有？號的地方填入正確容，然后刪除？及所有注釋符即號，但不能修改其他局部。保存時不得改變文件名和文件夾。此題描述如下：在窗體上有3個名稱分別為Ch1、Ch2和Ch3的復(fù)選框，標(biāo)題分別為程序設(shè)計、數(shù)據(jù)庫原理和計算機(jī)網(wǎng)絡(luò)，還有一個名稱為C1、標(biāo)題為選課的命令按鈕。要求程序運(yùn)行后，如果選擇*個復(fù)選框，當(dāng)單擊選課命令按鈕時在窗體上顯示相應(yīng)的信息。例如：如果選擇程序設(shè)計和計算機(jī)網(wǎng)絡(luò)復(fù)選

46、框，單擊選課命令按鈕后，將在窗體上顯示我選的課程是程序設(shè)計計算機(jī)網(wǎng)絡(luò)。二、簡單應(yīng)用題答案1【解析步驟】1在窗體上建立控件，設(shè)置控件屬性。程序中用到的控件及其屬性見表4-18。表4-18控件屬性設(shè)置值文本框NameTe*t1PasswordChar*按鈕NameC1Caption校驗2按鈕的標(biāo)題通過Caption屬性設(shè)置；要使文本框的容在輸入時顯示為*，則應(yīng)該將PasswordChar屬性設(shè)置為*。5修改代碼。在語句If Te*t1.Te*t = Then MsgBo* Else MsgBo* 錯誤中，第1個號處應(yīng)該是If語句的條件表達(dá)式，填置口令A(yù)BC，第2個號處應(yīng)該是輸出正確信息。6參考代碼

47、如下：Option E*plicitPrivate Sub C1_Click() If Te*t1.Te*t = ABC Then MsgBo* 正確 Else MsgBo* 錯誤End Sub。2【解析步驟】1建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見表4-20。表4-20控件屬性設(shè)置值按鈕NameC1Caption選課標(biāo)簽Caption 課程復(fù)選框NameCh1Caption程序設(shè)計復(fù)選框NameCh2Caption數(shù)據(jù)庫原理復(fù)選框NameCh3Caption計算機(jī)網(wǎng)絡(luò)4參考代碼如下：Option E*plicitPrivate Sub C1_Click() Dim s As St

48、ring s = 我選的課程是 If Ch1.Value = 1 Then s = s & 程序設(shè)計 End If If Ch2.Value = 1 Then s = s & 數(shù)據(jù)庫原理 End If If Ch3.Value = 1 Then s = s & Ch3.Caption End If Print sEnd Sub二、簡單應(yīng)用題下面出現(xiàn)的考生文件夾均為c:we*am20060001。1在考生文件夾中有工程文件kt3.vbp及其窗體文件kt3.frm，該程序是不完整的，請在有？號的地方填入正確容，然后刪除？及所有注釋符即號，但不能修改其他局部。保存時不得改變文件名和文件夾。此題描述如

49、下：在窗體上有一個名稱為Te*t1的文本框，一個名稱為C1、標(biāo)題為校驗的命令按鈕。其中文本框用來輸入口令，要求在文本框中輸入的容都必須以*顯示請考生通過屬性窗口設(shè)置。要求程序運(yùn)行后，輸入口令，單擊命令按鈕后，對口令進(jìn)展校驗。如果輸入的容是ABC這3個大寫字母，則用MsgBo*信息框輸出正確，否則輸出錯誤。2在考生文件夾中有工程文件kt4.vbp及其窗體文件kt4.frm，該程序是不完整的，請在有？號的地方填入正確容，然后刪除？及所有注釋符即號，但不能修改其他局部。保存時不得改變文件名和文件夾。此題描述如下：在窗體上有3個名稱分別為Ch1、Ch2和Ch3的復(fù)選框，標(biāo)題分別為程序設(shè)計、數(shù)據(jù)庫原理和

50、計算機(jī)網(wǎng)絡(luò)，還有一個名稱為C1、標(biāo)題為選課的命令按鈕。要求程序運(yùn)行后，如果選擇*個復(fù)選框，當(dāng)單擊選課命令按鈕時在窗體上顯示相應(yīng)的信息。例如：如果選擇程序設(shè)計和計算機(jī)網(wǎng)絡(luò)復(fù)選框，單擊選課命令按鈕后，將在窗體上顯示我選的課程是程序設(shè)計計算機(jī)網(wǎng)絡(luò)。二、簡單應(yīng)用題答案1【解析步驟】1在窗體上建立控件，設(shè)置控件屬性。程序中用到的控件及其屬性見表4-18。表4-18控件屬性設(shè)置值文本框NameTe*t1PasswordChar*按鈕NameC1Caption校驗2按鈕的標(biāo)題通過Caption屬性設(shè)置；要使文本框的容在輸入時顯示為*，則應(yīng)該將PasswordChar屬性設(shè)置為*。5修改代碼。在語句If Te

51、*t1.Te*t = Then MsgBo* Else MsgBo* 錯誤中，第1個號處應(yīng)該是If語句的條件表達(dá)式，填置口令A(yù)BC，第2個號處應(yīng)該是輸出正確信息。6參考代碼如下：Option E*plicitPrivate Sub C1_Click() If Te*t1.Te*t = ABC Then MsgBo* 正確 Else MsgBo* 錯誤End Sub2【解析步驟】1建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見表4-20。表4-20控件屬性設(shè)置值按鈕NameC1Caption選課標(biāo)簽Caption 課程復(fù)選框NameCh1Caption程序設(shè)計復(fù)選框NameCh2Captio

52、n數(shù)據(jù)庫原理復(fù)選框NameCh3Caption計算機(jī)網(wǎng)絡(luò)4參考代碼如下：Option E*plicitPrivate Sub C1_Click() Dim s As String s = 我選的課程是 If Ch1.Value = 1 Then s = s & 程序設(shè)計 End If If Ch2.Value = 1 Then s = s & 數(shù)據(jù)庫原理 End If If Ch3.Value = 1 Then s = s & Ch3.Caption End If Print sEnd Sub三、綜合應(yīng)用題下面出現(xiàn)的考生文件夾均為c:we*am20060001。在考生文件夾中有工程文件kt5.

53、vbp及其窗體文件kt5.frm，該程序是不完整的，請在有？號的地方填入正確容，然后刪除？及所有注釋符即號，但不能修改其他局部。保存時不得改變文件名和文件夾。此題描述如下：在名稱為Form1的窗體上有一個文本框，名稱為Te*t1，MultiLine屬性為True，ScrollBars屬性為2；兩個命令按鈕，名稱分別為Cmd1和Cmd2，標(biāo)題分別為讀入數(shù)據(jù)和排序顯示保存。程序運(yùn)行后，如果單擊讀入數(shù)據(jù)按鈕，則讀入in.t*t文件中的100個整數(shù)，放入一個數(shù)組中數(shù)組下界為1；如果單擊排序顯示保存按鈕，則對這100個整數(shù)按從大到小進(jìn)展排序，并把排序后的全部數(shù)據(jù)在文本框Te*t1中顯示出來，然后存入考生

54、文件夾的out.t*t文件中考生文件夾下的標(biāo)準(zhǔn)模塊mode1.bas中的putdata過程可以把指定個數(shù)的數(shù)組元素存入out.t*t文件。注意：文件必須存放在考生文件夾下，窗體文件名為kt5.frm，工程文件名kt5.vbp，排序結(jié)果存入out.t*t文件中，否則沒有成績。三、綜合應(yīng)用題答案【解析步驟】1文本框顯示的容通過Te*t屬性設(shè)置，Multiline屬性決定文本框是否可以多行顯示。如果需要多行顯示，必須將Multiline的屬性設(shè)置為True，將Scrollbars的屬性設(shè)置為2。5完整的參考代碼如下：mode1.bas代碼Sub putdata(a() As Integer, n A

55、s Integer) Dim sFile As String sFile = out.t*t Open App.Path & sFile For Output As #1 For i = 1 To n Print #1, a(i); Ne*t Close #1End Sub窗體代碼Option E*plicitDim i(1 To 100) As IntegerPrivate Sub Cmd1_Click() Dim j As Integer Open App.Path & in.t*t For Input As #1 For j = 1 To 100 Input #1, i(j) Te*t1

56、.Te*t = Te*t1.Te*t&i(j)&Space(5) Ne*t Close #1End SubPrivate Sub Cmd2_Click()Dim j As IntegerDim k As IntegerDim temp As IntegerDim flag As BooleanFor 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 Ne*t If Not flag

57、Then E*it For End If Ne*t Te*t1.Te*t = For j = 1 To 100 Te*t1.Te*t = Te*t1.Te*t & i(j)& Space(5) Ne*t putdata i, 100End Sub一、根本操作題下面出現(xiàn)的考生文件夾均為c:we*am20060001。請根據(jù)以下各小題的要求設(shè)計Visual Basic應(yīng)用程序包括界面和代碼。1在名稱為Form1的窗體上建立一個名稱為Cmd1、標(biāo)題為顯示的命令按鈕，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊顯示命令按鈕，則在窗體上顯示等級考試。程序中不得使用任何變量，直接顯示字符串。注意：保存時必須存

58、放在考生文件夾下，窗體文件名為kt1.frm，工程文件名為kt1.vbp。2在名稱為Form1的窗體上建立一個名稱為L1的標(biāo)簽；兩個名稱分別為Cmd1和Cmd2、標(biāo)題分別為顯示1和顯示2的命令按鈕。編寫適當(dāng)?shù)氖录^程，要求程序運(yùn)行后，如果單擊顯示1命令按鈕，則在標(biāo)簽上顯示字符串a(chǎn)aa；如果單擊顯示2命令按鈕，則在標(biāo)簽上顯示字符串bbb。程序中不能使用任何變量，直接顯示字符串。注意：保存時必須存放在考生文件夾下，窗體文件名為kt2.frm，工程文件名為kt2.vbp?？丶傩栽O(shè)置值按鈕NameCmd1Caption顯示Private Sub Cmd1_Click()Print 等級考試End S

59、ub參考代碼如下：Private Sub Cmd1_Click() L1.Caption = aaaEnd SubPrivate Sub Cmd2_Click() L1.Caption = bbbEnd Sub二、簡單應(yīng)用題下面出現(xiàn)的考生文件夾均為c:we*am20060001。1在窗體上建立一個名稱為Te*t1的文本框，然后建立兩個主菜單，其標(biāo)題分別為商品類別和幫助，名稱分別為vbMenu和vbHelp，其中商品類別菜單包括百貨、食品和家電三個子菜單，名稱分別為vbMenu1、vbMenu2和vbMenu3。程序運(yùn)行后，如果在商品類別的下拉菜單中選擇百貨，則在文本框顯示大類核算；如果選擇食品

60、，則在文本框顯示中類核算；如果選擇家電，則在文本框顯示小類核算。程序中不能使用任何變量，直接顯示字符串。注意：保存時必須存放在考生文件夾下，窗體文件名為kt3.frm，工程文件名為kt3.vbp。2在考生文件夾中有文件kt4.vbp及其窗體文件kt4.frm，該程序是不完整的，請在有？號的地方填入正確容，然后刪除？及所有注釋符即號，但不能修改其他局部。保存時不得改變文件夾和文件名。此題描述如下：窗體上有一個名稱為Te*t1的文本框；兩個復(fù)選框，名稱分別為Ch1和Ch2、標(biāo)題分別為英語班和計算機(jī)班。要求程序運(yùn)行后，如果只選中Ch1，單擊窗體，則在文本框中顯示報名參加英語班；如果只選中Ch2，單擊