計(jì)算機(jī)二級(jí)(VB)機(jī)試

1、計(jì)算機(jī)二級(jí)VB機(jī)試1考試 2021-05-30 10:29:23 閱讀201 評(píng)論0 字號(hào)：大中小 訂閱 . 一、根本操作題 1. 注意：下面出現(xiàn)的考生文件夾均為c;wexam25160001。 請根據(jù)以下各小題的要求設(shè)計(jì)Visual Basic應(yīng)用程序(包括界面和代碼)。 (1)在窗體上建立一個(gè)二級(jí)菜單，該菜單含有文件和幫助 (名稱分別為vbFile和vbHelp)兩個(gè)主菜單項(xiàng)，其中文件菜單包括翻開、關(guān)閉和退出三個(gè)子菜單項(xiàng)(名稱分別為vbOpen、 vbClose和vbExit)，如圖1-1所示。只建立菜單，不必定義其事件過程。 注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sjt1.fr

2、m，工程文件名為sjt1.vbp。 (2)在名為Form1的窗體上畫一個(gè)框架，名稱為Frm1，標(biāo)題為框架，高度為2500，寬度為4000，框架內(nèi)建立一文本框，距左邊框600，距框架的上邊框1200，文本框中的初始內(nèi)容設(shè)置為文本框。如圖1-2所示。 注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sjt2.frm，工程文件名為sjt2.vbp (1) 。 參考答案 (1分)(1)在Visual Basic中，菜單項(xiàng)通過菜單編輯器來建立。解題步驟： 第一步：翻開菜單編輯器窗口，建立菜單項(xiàng)。用到的菜單項(xiàng)及其屬性見表1-1。 第二步：調(diào)試并運(yùn)行程序。 第三步：按題目要求存盤。 (2)在窗體上建立好控件

3、后，再按題目要求設(shè)置各自的屬性即可。需要指出的是在框架里的控件需要畫出框架后，單擊工具箱里的控件然后在框架里拖動(dòng)畫出所需控件，不可以用雙擊的方法，否那么所需的控件放不到框架里。窗體中的控件的具體位置由控件的Top、Left屬性設(shè)置，大小由屬性Height Width設(shè)置。解題步驟： 第一步：設(shè)置框架的Height、Width屬性分別為2500，4000；文本框的Left、Top屬性值分別為600，1200。(以上均可在屬性欄里沒置) 第二步：調(diào)試并運(yùn)行程序。 第三步：按題目要求存盤。二、簡單應(yīng)用題 簡單應(yīng)用題 (2小題，每題20分，共計(jì)40分) 注意：下面出現(xiàn)的考生文件夾均為c:wexam25

4、160001。 (1)在考生文件夾中有工程文件sjt3.vbp及其窗體文件sjt3.frm，該程序是不完整的，請?jiān)谟?號(hào)的地方填入正確內(nèi)容，然后刪除?及所有注釋符(即號(hào))，但不能修改其他局部。存盤時(shí)不得改變文件名和文件夾。 此題描述如下： 在窗體上有一個(gè)列表框，名稱為List1，一個(gè)文本框，名稱為Text1，和一個(gè)命令按鈕，名稱為C1，標(biāo)題為復(fù)制。要求程序運(yùn)行后，在列表框中自動(dòng)建立4個(gè)列表項(xiàng)，分別為Item1、Item2、Item3、Item4如果選擇列表框中的一項(xiàng)，那么單擊復(fù)制按鈕時(shí)，可以把該項(xiàng)復(fù)制到文本框中，如圖1-3所示。 (2)在考生文件夾中有工程文件sjt4.vbp及其窗體文件sjt

5、4.frm，該程序是不完整的，請?jiān)谟?號(hào)的地方填入正確內(nèi)容，然后刪除?及所有注釋符(即號(hào))但不能修改其他局部。存盤時(shí)不得改變文件名和文件夾。 在窗體有3個(gè)復(fù)選框，名稱分別為Chi、Ch2和Ch3，標(biāo)題分別為體育、音樂、美術(shù)，還有一個(gè)命令按鈕，名稱為C1，標(biāo)題為顯示。要求程序運(yùn)行后，如果選中某個(gè)復(fù)選框，當(dāng)單擊顯示命令按鈕時(shí)，那么顯示相應(yīng)的信息。例如，如果選中體育和美術(shù)復(fù)選框，單擊顯示命令按鈕后，在窗體上顯示我的愛好是體育美術(shù)，如圖1-4所示 (2) 。參考答案 (1分)(1)在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。 向列表框中添加工程可以用AddItem方法，也可以在屬性窗口中進(jìn)行

6、。但題目中要求是程序運(yùn)行后自動(dòng)添加，所以利用代碼實(shí)現(xiàn)。列表框的Text屬性為最后一次選中的表項(xiàng)的文本。解題步驟： 第一步；建立界面并設(shè)置控件屬性。程序中用到的控件及屬性設(shè)置見表1-2。 第二步：編寫程序代碼。 程序提供的代碼： Option Explicit Private Sub C1 Click() Dim i As Integer If List1.Selected(i) = True Then ? = List1.List(i) End If Next i End Sub Private Sub Form Load()dItem Item1 List 1.AddItem Item2 L

7、ist 1.AddItem Item3 List 1.AddItem Item4 End Sub 參考代碼： Option Explicit Private Sub Cl _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 i End Sub Private Sub Form Load() List1.AddItem Item1 List1.AddItem Item2 List1.Add

8、Item Item3 List1.AddItem Item4 End Sub 第三步：調(diào)試并運(yùn)行。 第四步：按題目要求存盤。 (2)在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。 單擊命令按鈕觸發(fā)Click事件，程序中需要檢測復(fù)選按鈕的狀態(tài)，可以通過Value屬性來實(shí)現(xiàn)。如果復(fù)選按鈕被選中，那么Value值為1，否那么Value值為0。解題步驟： 第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及屬性見表1-3。第二步：編寫程序代碼。 程序提供的代碼： Option Explicit Private Sub C1_Click() Dim s As ? s=我的愛好是 If Ch1.Va

9、lue = 1 Then End If If Ch2.Value = 1 Thenon End If If Ch3.Value = 1 Then End If Print ? End Sub 參考代碼： Option Explicit Private Sub C1 Click() Dim s As String s =我的愛好是 If Ch1.Value = 1 Then End If If Ch2.Value = 1 Then End If If Ch3.Value = 1 Then End If Print s End Sub 第三步：調(diào)試并運(yùn)行程序。 第四步：按題目要求存盤。三、綜合應(yīng)用

10、題 在考生文件夾中有工程文件sjt5.vbp及其窗體文件sjt5.frm，該程序是不完整的，請?jiān)谟?號(hào)的地方填入正確內(nèi)容，然后刪除?及所有注釋符(即，號(hào))但不能修改其他局部。存盤時(shí)不得改變文件名和文件夾。 此題描述如下： 在名稱為Form1的窗體上有兩個(gè)單項(xiàng)選擇按鈕，名稱分別為Opt1和Opt2，標(biāo)題分別為100-200之間素?cái)?shù)和 200-400之間素?cái)?shù)，一個(gè)文本框，名稱為Text1，和兩個(gè)命令按鈕，其名稱分別為Cmd1和Cmd2，標(biāo)題分別為計(jì)算和存盤，如圖1-5所示。程序運(yùn)行后，如果選中一個(gè)單項(xiàng)選擇按鈕并單擊計(jì)算按鈕，那么計(jì)算出該單項(xiàng)選擇按鈕標(biāo)題所指明的所有素?cái)?shù)之和。并在文本框中顯示出來。如

11、果單擊存盤按鈕，那么把計(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，考生可以將該模塊文件添加到自己的工程中。) 注意：必須把200-400之間的素?cái)?shù)之和存入考生文件夾下的out.txt文件中，否那么沒有成績。保存程序時(shí)必須存放在考生文件夾下，窗體文件名為sjt5.frm，工程文件名為 sjt5.vbp 。 (3) 參考答案 (1分)素?cái)?shù)的判斷準(zhǔn)那么就是看是否該數(shù)除了1和其本身外別無其

12、他約數(shù)即可。 文本框用丁Text屬性來顯示計(jì)算結(jié)果：命令按鈕的標(biāo)題由Caption屬性來設(shè)置，單擊命令按鈕觸發(fā)Click事件；為了檢測單項(xiàng)選擇按鈕是否選中，可以通過檢測Value屬性來實(shí)現(xiàn)，當(dāng)Value為了me時(shí)，表示單項(xiàng)選擇按鈕被選中，否那么未被選中。解題步驟： 第一步：建立界面并設(shè)置控件屬性。題目提供了程序用到的控件及其屬性，見表1-4。 第二步：編寫程序代碼。 程序提供的代碼： 標(biāo)準(zhǔn)模塊代碼 Option Explicit Sub putdata( t_FileName As String，T_Str As Variant) Dim sFile As String SFile = & t

13、 FileName Open App.Path & SFile For Output As #l Print #1， T Str Close #1 End Sub Function 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 = True End Function 窗體代碼 Private Sub Cmd1_Click() Dim i

14、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.? = temp End Sub Private Sub Cmd2 Click() End Sub 參考代碼： Private Sub Cmd1_Click() Dim i As Inte

15、ger Dim temp As Long temp = 0 If Opt2.Value Then For i = 200 To 400 If isprime(i) 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.Text = temp End Sub Private Sub Cmd2 Click() End Sub 第三步：調(diào)試并運(yùn)行程序。第四步：按題目要求存盤。 計(jì)算機(jī)二級(jí)VB機(jī)試2 考試 2021-05-3

16、0 10:30:58 閱讀655 評(píng)論0 字號(hào)：大中小 訂閱 . 一、根本操作題 注意：下面出現(xiàn)的“考生文件夾均為c:wexam25160001。 請根據(jù)以下各小題的要求設(shè)計(jì)Visual Basic應(yīng)用程序(包括界面和代碼)。 (1)在名稱為Form1的窗體中建立一個(gè)名稱為Cmd1，標(biāo)題為“顯示的命令按鈕，如圖2-1所示。要求程序運(yùn)行后，如果單擊“顯示“顯示：如果單擊窗體，那么執(zhí)行語句 Form1.Cls。 注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sjt1.frm，工程文件名為sjt1.vbp。 (2)在名稱為Form1的窗體上建立一個(gè)水平滾動(dòng)條，名稱為HS1，其最大值為100，最小值

17、為0。要求程序運(yùn)行后，每次移動(dòng)滾動(dòng)框時(shí)，都執(zhí)行語句FormlPrint HSlValue，如圖2-2所示(程序中不能使用任何變量)。 注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sjt2.frm，工程文件名為sjt2.vbp。 參考答案 (1分)(1)在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。命令按鈕的標(biāo)題由Caption屬性設(shè)置，單擊命令按鈕觸發(fā)Click事件。在窗體上打印信息用Print方法，去除窗體上的打印信息使用Cls方法，這兩條語句在題目中已經(jīng)給出，只要將其放入適當(dāng)?shù)氖录^程中即可。解題步驟： 第一步：建立界面并設(shè)置控件屬性。 此題只用到了1個(gè)命令按鈕，將其Capti

18、on屬性設(shè)置為“顯示，Name屬性設(shè)置為Cmd1。 第二步：編寫代碼。 參考代碼： Private Sub Cmd1_Click()“顯示 End Sub Private Sub Form_Click() End Sub 第三步：調(diào)試并運(yùn)行程序。 第四步：按題目要求存盤。 (2)在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。 滾動(dòng)條表示的最大值由Max屬性設(shè)置，最小值由Min屬性設(shè)置，滾動(dòng)條的當(dāng)前值由Value屬性設(shè)置；當(dāng)滾動(dòng)框的位置改變時(shí)，觸發(fā)Change事件。去除窗體上原來的顯示的值可以用Cls方法來實(shí)現(xiàn)。解題步驟： 第一步：建立界面并沒置控件屬性。本程序中用到1個(gè)滾動(dòng)框，將其名稱

19、即Name屬性設(shè)置為HS1，Min和Max屬性屬性分別設(shè)置為0和100。 第二步：編寫程序代碼。 參考代碼： Private Sub HS1_Change() Cls Form1.Print HS1 End Sub 第三步：調(diào)試并運(yùn)行程序。 第四步：按題目要求存盤。二、簡單應(yīng)用題 注意：下面出現(xiàn)的“考生文件夾均為c:wexam25160001。 (1)在考生文件夾中有工程文件sjt3.vbp及其窗體文件sjt3.frm，該程序是不完整的，請?jiān)谟?號(hào)的地方填入正確內(nèi)容，然后刪除?及所有注釋符(即號(hào))但不能修改其他局部。存盤時(shí)不得改變文件名和文件夾。 此題描述如下： 在窗體上有兩個(gè)單項(xiàng)選擇按鈕，名

20、稱分別為Op1和Op2，標(biāo)題分別為“黑體和“楷體，一個(gè)文本框，名稱為Text1，字體為宋體，字號(hào)為四號(hào)字，還有一個(gè)命令按鈕，名稱為C1，標(biāo)題為“切換。要求程序運(yùn)行后，在文本框中輸入“等級(jí)考試，并選擇一個(gè)單項(xiàng)選擇按鈕，如圖2-3所示。在單擊“切換按鈕后，會(huì)根據(jù)所選的單項(xiàng)選擇按鈕來切換文本框中所顯示的漢字字體，如圖2-4所示。 (2)在窗體上建立一個(gè)名稱為Text1的文本框和一個(gè)名稱為Cmd1，標(biāo)題為“計(jì)算的命令按鈕，如圖2-5所示。程序運(yùn)行后，單擊“計(jì)算命令按鈕，通過在對(duì)話框輸入整數(shù)12，放入整型變量a中，然后計(jì)算a!，(提示：運(yùn)算結(jié)果應(yīng)放入Long型變量中)，在文本框中顯示結(jié)果，并把結(jié)果存入文

21、件out.txt中。在考生文件夾中有一個(gè)標(biāo)準(zhǔn)模塊mode.bas，該模塊中提供了保存文件的過程putdata,考生可以直接調(diào)用。 注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sjt4.frm，工程文件名為sjt4.vbp。 (1) 參考答案 (1分)(1)窗體的控件及屬性已經(jīng)建好，只需編寫事件過程空缺的代碼即可。 單項(xiàng)選擇按鈕和“切換按鈕的是通過它們的Caption屬性來設(shè)置的，當(dāng)點(diǎn)擊“切換時(shí)觸發(fā)它的Click事件來使文本框的內(nèi)容改變的。文本框的字體設(shè)置是通過它的Font屬性來實(shí)現(xiàn)的。 解題步驟： 第一步：編寫程序代碼。 程序提供的代碼： Option Explicit Private S

22、ub C1_Click() If Op1 The n Text1.Font = Op1.? End If If Op2 Then Text1?：“楷體GB2312 End If End Sub 參考代碼： Option Explicit Private Sub C1_Click() If Op1 Then End If If Op2 Then Text1.FontName =“楷體GB2312 End If End Sub 第二步：調(diào)試并運(yùn)行程序。 第三步：按題目要求存盤。 (2)在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。 當(dāng)運(yùn)行程序后所彈出的對(duì)話框是由Visual Basic系統(tǒng)

23、本身提供的，通過調(diào)用函數(shù)InputBox來實(shí)現(xiàn)，此題的主要思想是考查循環(huán)語句的應(yīng)用。計(jì)算一個(gè)數(shù)值的階乘時(shí)使用了for循環(huán)，最后調(diào)用了所給模塊中的過程將結(jié)果進(jìn)行保存。解題步驟： 第一步：建立界面并設(shè)置控件屬性。此題用到了1個(gè)文本框和1個(gè)命令按鈕，將命令按鈕的Caption屬性設(shè)置為“計(jì)算， Name屬性設(shè)置成Cmd1，文本框?qū)傩詾槟J(rèn)設(shè)置。 第二步：編寫程序代碼。 在編寫程序代碼時(shí)要注意變量范圍的設(shè)定，題目要求將計(jì)算結(jié)果存入Long變量中，所以把最后放入文本框內(nèi)的變量設(shè)置為長整型，然后保存結(jié)果。 參考代碼： Private Sub Cmd1_Click() Dim a As Integer Di

24、m 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 End Sub 標(biāo)準(zhǔn)模塊代碼： Option Explicit Sub 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_

25、Str Close #1 End Sub 第三步：調(diào)試并運(yùn)行程序。 第四步：按題目要求存盤。三、綜合應(yīng)用題 綜合應(yīng)用題 (1小題，共計(jì)30分) 在考生文件夾中有工程文件sjt5.vbp及其窗體文件sjt5.frm，該程序是不完整的，請?jiān)谟?號(hào)的地方填入正確內(nèi)容，然后刪除?及所有注釋符(即號(hào))但不能修改其他局部。存盤時(shí)不得改變文件名和文件夾。 此題描述如下： 在名稱為Form1的窗體上有一個(gè)文本框，名稱為Text1，MultiLine屬性為True，ScrollBars屬性為2；兩個(gè)命令按鈕，名稱分別為Cmd1和Cmd2，標(biāo)題分別為“讀入數(shù)據(jù)和“計(jì)算保存，如圖2-6所示。要求程序運(yùn)行后，如果單擊

26、“讀入數(shù)據(jù)按鈕，那么讀入“文件中的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文件)。 注意：文件必須存放在考生文件夾下，窗體文件名為sjt5.frm，工程文件名為sjt5.vbp，計(jì)算結(jié)果存入 result,txt文件中，否那么沒有成績。 (3) .參考答案 (1分)文本框顯示的內(nèi)容由Text屬性設(shè)置；按鈕的標(biāo)題

27、由Caption屬性設(shè)置，單擊命令按鈕觸發(fā)Click事件；在此題中涉及到文件的操作，讀入順序文件以順序的方式翻開，用Input#語句讀取數(shù)據(jù)，另外需要注意的是對(duì)文件操作完后，一定要關(guān)閉文件。解題步驟： 第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見表2-1。第二步：編寫程序代碼。 程序提供的代碼： 窗體代碼 Dim i(1 To 100) As Integer Private Sub Cmd1_Click() Dim j As Integer j = 0 Open App. Path & in.txt For Input As #1 For j = 1 To 100 Input #

28、1, i(?) Next Close #1 For j = 1 To 100 Text1.Text = Text1.Text & i(j) & Space(5) Next End Sub Private Sub Cmd2_Click() Dim temp As Long Dim j As Integer For ? = 1 To 100 If i(j) = 400 And i(j) 800 Then temp = temp + i(j) End If Next Text1.?= temp putdata temp End Sub 標(biāo)準(zhǔn)模塊代碼： Sub putdata(ByVal a As I

29、nteger) Dim sFile As String sFile = result.txt Open App. Path& sFile For Output As #1 Print #1, a; Close #1 End Sub 參考代碼： Dim i(1 To 100) As Integer Private 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 T

30、ext1.Text = Text1.Text & i(j) & Space(5) Next End Sub Private Sub Cmd2_Click() Dim temp As Long Dim j As Integer For j = 1 To 100 If i(j) = 400 And i(j) 800 Then temp = temp + i(j) End If Next Text1.Text = temp putdata temp End Sub 第三步：調(diào)度并運(yùn)行程序。 第四步：按題目要求存盤。計(jì)算機(jī)二級(jí)VB機(jī)試3 考試 2021-05-30 10:31:58 閱讀145 評(píng)論0

31、 字號(hào)：大中小 訂閱 . 一、根本操作題 注意：下面出現(xiàn)的“考生文件夾均為c:wexam25160001。 請根據(jù)以下各小題的要求設(shè)計(jì)Visual Basic應(yīng)用程序(包括界面和代碼)。 (1)在名稱為Form1的窗體上建立一個(gè)名稱為P1的圖片框和兩個(gè)命令按鈕，名稱分別為Cmd1和 Cmd2，標(biāo)題分 別為“輸出和“去除，如圖3-1所示。要求程序運(yùn)行后，每單擊一次“輸出按鈕，不使用任何變量而直接在圖片框中顯示小寫字母“l(fā)oad me：如果單擊“去除按鈕，那么去除圖片框中的內(nèi)容。 注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sjt1.frm，工程文件名為sjt1.vbp。 (2)在名稱為For

32、m1的窗體上建立一個(gè)名稱為List1的列表框。要求：在程序運(yùn)行后，通過 Form_Load()事件過程加載窗體時(shí)，執(zhí)行語句List1.AddItemAAA，每當(dāng)單擊某個(gè)列表項(xiàng)時(shí)，都執(zhí)行語句List1.AddItem List1. Text一次，如圖3-2所示。 注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sjt2.frm，工程文件名為sjt2.vbp (0) 。 參考答案 (1分)(1)在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。 命令按鈕的標(biāo)題由Caption屬性設(shè)置，單擊命令按鈕觸發(fā)Click事件。打印信息用Print方法，去除用Cls方法。題目要求在圖片框中打印信息，所以在

33、編寫代碼是應(yīng)指定Print方法和Cls方法的使用對(duì)象。解題步驟： 第一步：建立界面并設(shè)置控件屬性。程序用到的控件及其屬性見表3-1。 第二步：編寫代碼。 參考代碼： Private Sub Cmd1_Click() P1.Printload me End Sub Private Sub Cmd2 Click() End Sub 第三步：調(diào)試并運(yùn)行程序。 第四步：按題目要求存盤。 (2)在窗體上建立好列表框后，先設(shè)置屬性，再編寫事件過程。 列表框用于在很多工程中做出選擇的操作。向列表框中添加工程既可以在屬性窗口進(jìn)行，也可以在程序代碼中進(jìn)行單擊列表框中的工程觸發(fā)Click事件，題目要求使用AddI

34、tem方法給列表框添加工程，所以應(yīng)該將List1.AddItem List1.Text語句寫入列表框的Click事件中。解題步驟： 第一步：建立界面并設(shè)置控件屬性。 程序中只用到1個(gè)列表框控件。在窗體上畫出列表框，其“Name屬性默認(rèn)為“List1“AAA語句使程序開始運(yùn)行的時(shí)在列表框中添加“AAA。 第二步：編寫程序代碼。 參考代碼： Private Sub Form_Load() List1.AddItem AAA End Sub Private Sub List1_Click() End Sub 第三步：調(diào)試并運(yùn)行程序。 第四步：按題目要求存盤。二、簡單應(yīng)用題 簡單應(yīng)用題(2小題，每題2

35、0分，共計(jì)40分) 注意：下面出現(xiàn)的“考生文件夾均為c:wexam25160001。 (1)在名稱為Form1的窗體上建立兩個(gè)主菜單，其標(biāo)題分別為“文件和“幫助，名稱分別為vbFile和vbHelp，在“文件菜單下有3個(gè)子菜單項(xiàng)，標(biāo)題分別為“新建、“翻開和“存盤，名稱分別為 vbNew、vbOpen和vbSave。要求程序運(yùn)行后，如果選中“文件下的某個(gè)菜單項(xiàng)，那么通過MsgBox對(duì)話框顯示該菜單項(xiàng)的標(biāo)題，如圖3-3所示。 注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sjt3.frm，工程文件名為sjt3.vbp。 (2)在窗體上建立一個(gè)名稱為Text1的文本框，再建立一個(gè)名稱為Cmd1，標(biāo)

36、題為“計(jì)算的命令按鈕，如圖3-4所示。要求程序運(yùn)行后，單擊命令按鈕，將計(jì)算100-200之間所有素?cái)?shù)之和，在文本框中顯示結(jié)果，同時(shí)把結(jié)果存入文件out.txt中。 (在考生文件夾中有標(biāo)準(zhǔn)模塊mode.bas,其中的putdata過程可以把結(jié)果存入文件，而isprime函數(shù)可以判斷整數(shù)x是否為素?cái)?shù)，如果是素?cái)?shù)，那么函數(shù)返回True，否那么返回 False，考生可以把該模塊文件添加到自己的工程中。) 注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sjt4.frm，工程文件名為sjt4.vbp，結(jié)果存入out.txt文件 (1) 。 參考答案 (1分)(1)在Visual Basic中，菜單項(xiàng)通過

37、菜單編輯器來建立；選擇菜單那么是觸發(fā)其Click事件。 MsgBox函數(shù)在對(duì)話框中顯示消息，等待用戶單擊按鈕，并返回1個(gè)Integer告訴用戶單擊哪一個(gè)按鈕。 語法：MsgBox(prompt，buttons，title，helpfile，context) MsgBox函數(shù)的語法具有以下幾個(gè)命名參數(shù)： Prompt必需的。字符串表達(dá)式，作為顯示在對(duì)話框中的消息。 Buttons可選的。數(shù)值表達(dá)式是值的總和，指定顯示按鈕的數(shù)目及形式。 Title可選的。在對(duì)話框標(biāo)題欄中顯示的字符串表達(dá)式。如果省略title，那么將應(yīng)用程序名放在標(biāo)題欄中。 Helpfile可選的。字符串表達(dá)式，識(shí)別用來向?qū)υ捒蛱?/p>

38、供上下文相關(guān)幫助的幫助文件。 Context可選的。數(shù)值表達(dá)式，由幫助文件的作者指定給適當(dāng)?shù)膸椭黝}的幫助上下文編號(hào)。解題步驟： 第一步：建立菜單項(xiàng)。程序中用到的菜單項(xiàng)及其屬性見表3-2。 第二步：編寫程序代碼。 參考代碼： Private Sub vbNew_Click() MsgBox“新建，vbOKOnly End Sub Private Sub vbOpen_Click() MsgBox“翻開，vbOKOnly End Sub Private Sub vbSave_Click() MsgBox“存盤，vbOKOnly End Sub 第三步：調(diào)試并運(yùn)行程序。 第四步：按題目要求存盤。

39、(2)在窗體上建立好控件后，先設(shè)置控件的屬性值，再編寫事件過程。 文本框中顯示的內(nèi)容由Text屬性設(shè)置，命令按鈕的標(biāo)題由Caption屬性設(shè)置，單擊命令按鈕觸發(fā)Click事件。解題步驟： 第一步：建立菜單項(xiàng)。程序中用到的控件及其屬性見表3-3。 第二步：編寫程序代碼。 參考代碼： 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 = temp putdata

40、 out.txt，temp End Sub 標(biāo)準(zhǔn)模塊代碼： Option Explicit Sub 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 #1 End Sub Function isprime(t_I As Integer) As Boolean Dim J As Integer isprime = False For J=2 To t

41、I / 2 If t I Mod J = 0 Then Exit For Next J If Jt I/2 Then isprime = True End Function 第三步：調(diào)試并運(yùn)行程序。 第四步：按題目要求存盤。三、綜合應(yīng)用題 綜合應(yīng)用題(1小題，共計(jì)30分) 在考生文件夾中有工程文件sjt5.vbp及其窗體文件sjt5.frm，該程序是不完整的，請?jiān)谟?號(hào)的地方填入正確內(nèi)容，然后刪除?及所有注釋符(即，號(hào))但不能修改其他局部。存盤時(shí)不得改變文件名和文件夾。 此題描述如下： 在名稱為Form1的窗體上有一個(gè)文本框，名稱為Text1，MultiLine屬性為True，ScrollBa

42、rs屬性為2，兩個(gè)命令按鈕，名稱分別為Cmd1和Cmd2，標(biāo)題分別為“讀入數(shù)據(jù)和“保存數(shù)據(jù))，如圖3-5所示。程序運(yùn)行后，如果單擊“讀入數(shù)據(jù)按鈕，那么讀入“文件中的100個(gè)整數(shù)，放入一個(gè)數(shù)組中(數(shù)組下界為1)，并在文本框Text1中顯示出來；如果單擊“保存數(shù)據(jù)按鈕，那么把數(shù)組中的前50個(gè)數(shù)據(jù)在文本框Text1中顯示出來，并存入考生文件夾中的文件“中。 (考生文件夾中有標(biāo)準(zhǔn)模塊prog.bas，其中的putdata過程可以 把指定個(gè)數(shù)的數(shù)組元素存入result.txt文件。) 注意：上面出現(xiàn)的“考生文件夾均為c:wexam25160001，文件必須存放在考生文件夾下，窗體文件名為sjt5.frm

43、，工程文件名為sjt5.vbp，結(jié)果存入result.txt文件，否那么沒有成績 (3) 。參考答案 (1分)文本框顯示的內(nèi)容由Text屬性設(shè)置，Multiline屬性決定文本框是否可多行顯示；按鈕的標(biāo)題由Caption屬性設(shè)置，單擊命令按鈕觸發(fā)Click事件。題中涉及到文件的操作，讀入順序文件以順序的方式翻開，用Input#語句讀取數(shù)據(jù)，另外需要注意的是對(duì)文件操作完成后，一定要關(guān)閉文件。 解題步驟： 第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及屬性設(shè)置見表3-4。 第二步：編寫程序代碼。 程序提供的代碼。 prog.bas的代碼： Sub putdata(a() As Integer，

44、n As Integer) Dim sFile As String sFile =result.txt Open App.Path & sFile For Output As #1 For i = 1 To n Print #1，a(i)； Next Close #1 End Sub 窗體代碼： Dim i(1 To 100) As Integer Private 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(?) Next

45、? #1 For j = 1 To 100 Text1.Text = Text1.Text & i(j) & Space(5) Next End Sub Private 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, 50 End Sub 參考代碼： Dim i(1 To 100) As Integer Private Sub Cmd1_Click() Dim j A

46、s 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) Next End Sub Private 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(

47、5) Next putdata i, 50 End Sub 第三步：調(diào)度并運(yùn)行程序： 第四步：按題目要求存盤：計(jì)算機(jī)二級(jí)VB機(jī)試4 考試 2021-05-30 10:33:03 閱讀101 評(píng)論0 字號(hào)：大中小 訂閱 . 一、根本操作題 根本操作題 (2小題，每題15分，共計(jì)30分) 注意：下面出現(xiàn)的“考生文件夾均為c:wexam25160001。 請根據(jù)以下各小題的要求設(shè)計(jì)Visual Basic應(yīng)用程序(包括界面和代碼)。 (1)在名稱為Form1的窗體上建立一個(gè)名稱為Text1的文本框，一個(gè)名稱為Cmd1，標(biāo)題為“輸出的命令按鈕，如圖4-1所示。要求程序運(yùn)行后，在文本框輸入幾個(gè)字符，單擊

48、“輸出按鈕，那么在窗體上顯示文本框中的文字。 注意：在程序中不能使用任何變量。保存時(shí)必須存放在考生文件夾下，窗體文件名為sjt1.frm，工程文件名為sjt1.vbp。 (2)在名稱為Form1的窗體上建立兩個(gè)名稱分別為Cmd1和Cmd2，標(biāo)題為“按鈕一和“按鈕二的命令按鈕，如圖4-2所示。要求程序運(yùn)行后，如果單擊“按鈕一，那么把“按鈕二移到“按鈕一上，使兩個(gè)按鈕重合，如圖4-3所示。 注意：在程序中不得使用任何變量(必須通過屬性設(shè)置來移動(dòng)控件)。保存時(shí)必須存放在考生文件夾下，窗體文件名為sjt2.frm，工程文件名為sjt2.vbp (1) .參考答案 (1分)(1)在窗體上建立好控件后，先

49、設(shè)置控件屬性，再編寫事件過程。 通過命令按鈕的Caption屬性來設(shè)置其標(biāo)題，單擊命令按鈕觸發(fā)Click事件；文本框顯示內(nèi)容是用Text屬性。文本框中的內(nèi)容通過其Text屬性得到，在命令按鈕的Click事件中利用Print方法將文本框中的內(nèi)容輸出，完成題目要求。 解題步驟： 第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見表4-1。 第二步：編寫程序代碼。 參考代碼： Private Sub Cmd1_Click() Cls End Sub 第三步：調(diào)試并運(yùn)行程序。 第四步：按題目要求存盤。 (2)在窗體上建立好控件后，先設(shè)置控件的屬性，再編寫事件過程。 命令按鈕的Caption屬性

50、用來設(shè)置其標(biāo)題，單擊命令按鈕觸發(fā)Click事件，此題考查的是按鈕的擺放位置的設(shè)置，涉及到對(duì)象的Left和Top屬性。Left表示控件與所在窗體的左邊之間的距離，Top表示控件與所在窗體的頂邊之間的距離。讓兩個(gè)按鈕位置重合只需將兩個(gè)按鈕的Left和Top設(shè)置相同即可。 解題步驟： 第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見表4-2。 第二步：編寫程序代碼。 參考代碼： Private Sub Cmd1_Click() End Sub 第三步：調(diào)試并運(yùn)行程序。 第四步：按題目要求存盤。二、簡單應(yīng)用題 簡單應(yīng)用題(2小題，每題20分，共計(jì)40分) 注意：下面出現(xiàn)的“考生文件夾均為c:

51、wexam25160001。 (1)在考生文件夾中有工程文件sjt3.vbp及其窗體文件sjt3.frm，該程序是不完整的。請?jiān)谟?號(hào)的地方填入正確內(nèi)容，然后刪除?及所有注釋符(即號(hào))但不能修改其他局部。存盤時(shí)不得改變文件名和文件夾。 此題描述如下： 在窗體上有3個(gè)名稱分別為Text1、Text2和Text3的文本框，一個(gè)名稱為C1，標(biāo)題為“計(jì)算的命令按鈕，如圖4-4所示。要求程序運(yùn)行后，在Text1和Text2中分別輸入兩個(gè)整數(shù)，單擊“計(jì)算按鈕后，可把兩個(gè)整數(shù)之間的所有整數(shù)(含兩個(gè)整數(shù))累加起來并在Text3中顯示。 (2)在窗體上建立一個(gè)名稱為Text1的文本框，建立一個(gè)名稱為Cmd1，標(biāo)

52、題為“計(jì)算的命令按鈕，如圖4-5所示。要求程序運(yùn)行后，如果單擊“計(jì)算按鈕，那么求出100-200之間所有可以被3整除的數(shù)的總和，在文本框中顯示出來，并把結(jié)果存入考生文件夾下的out.txt文件中。 (在考生的文件夾下有一個(gè) mode.bas標(biāo)準(zhǔn)模塊，該模塊中提供了保存文件的過程putdata，考生可以直接調(diào)用。) 注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sjt4.frm。工程文件名為sjt4.vbp，結(jié)果存入out.txt文件 (2) 。參考答案 (1分)(1)在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。 要使文本框中的字符用于算術(shù)運(yùn)算，首先要利用Val將文本框中輸入的數(shù)字字符轉(zhuǎn)換為數(shù)字類型(文本框中的內(nèi)容默認(rèn)為字符串類型)。 解題步驟： 第一步：建立界面并設(shè)置控件屬性。 第