2025年春季計(jì)算機(jī)二級(jí)VisualBasic程序設(shè)計(jì)押題沖刺試卷解析考試時(shí)間：______分鐘總分：______分姓名：______一、選擇題（每小題1分，共40分。請(qǐng)將正確選項(xiàng)的字母填在括號(hào)內(nèi)）1.VB中，用于聲明全局變量的關(guān)鍵字是（）。A.DimB.PublicC.StaticD.Private2.以下哪個(gè)不是VisualBasic的基本數(shù)據(jù)類型？（）A.IntegerB.SingleC.StringD.Date3.表達(dá)式`5Mod2`的值是（）。A.2B.3C.1D.04.在VB中，要改變標(biāo)簽Label1的標(biāo)題，應(yīng)使用其（）屬性。A.NameB.TextC.CaptionD.Font5.下面哪個(gè)控件通常用于顯示多行文本，用戶可以編輯其內(nèi)容？（）A.TextBoxB.LabelC.ListBoxD.ComboBox6.當(dāng)用戶在命令按鈕上單擊時(shí)，觸發(fā)的事件是（）。A.LoadB.ClickC.DblClickD.Change7.在VB中，若要使一個(gè)窗體不可見(jiàn)但不關(guān)閉，應(yīng)設(shè)置其（）屬性為False。A.VisibleB.EnableC.ActiveD.Enable8.以下哪個(gè)語(yǔ)句用于結(jié)束一個(gè)For循環(huán)？（）A.ExitForB.ExitDoC.EndForD.Stop9.若要使程序在遇到錯(cuò)誤時(shí)執(zhí)行特定的錯(cuò)誤處理代碼，應(yīng)使用（）語(yǔ)句。A.If...Then...ElseB.SelectCaseC.OnErrorGoToD.Try...Catch10.下面哪個(gè)函數(shù)用于獲取當(dāng)前系統(tǒng)日期？（）A.Time()B.Date()C.Now()D.Year()11.在VB中，定義一個(gè)子過(guò)程的正確語(yǔ)句是（）。A.FunctionProcName()B.SubProcName()C.DefProcNameD.ProcedureProcName12.以下關(guān)于數(shù)組說(shuō)法錯(cuò)誤的是（）。A.數(shù)組的大小在定義后可以改變B.數(shù)組的下標(biāo)通常從0開(kāi)始C.數(shù)組是相同類型數(shù)據(jù)的集合D.只能定義一維數(shù)組13.要在文本框Text1中輸入字符時(shí)進(jìn)行驗(yàn)證，應(yīng)將文本框的（）屬性設(shè)置為True。A.MultiLineB.ScrollBarC.LockedD.MaxLength14.以下哪個(gè)控件沒(méi)有文本屬性（Text）？（）A.TextBoxB.LabelC.CommandButtonD.ListBox15.用于在窗體上繪制直線或矩形等圖形的控件是（）。A.LineB.ShapeC.PictureD.Image16.在VB中，要使一個(gè)控件在運(yùn)行時(shí)不可見(jiàn)，應(yīng)設(shè)置其（）屬性為False。A.VisibleB.EnableC.DefaultD.Enabled17.If語(yǔ)句的三種形式不包括（）。A.單行IfB.塊IfC.選擇IfD.條件If18.讀取文本文件內(nèi)容，應(yīng)使用（）語(yǔ)句。A.WriteB.PrintC.ReadD.Input19.在過(guò)程中，用于傳遞參數(shù)的方式有（）種。A.1B.2C.3D.420.下列哪個(gè)屬性用于設(shè)置窗體的初始位置？（）A.WidthB.HeightC.TopD.StartUpPosition21.能夠使程序暫停一段時(shí)間，暫停時(shí)間由參數(shù)決定，該參數(shù)單位是秒的函數(shù)是（）。A.Sleep()B.Wait()C.Pause()D.Delay()22.在ComboBox控件中，要選擇最后一項(xiàng)，可以使用其（）屬性。A.ListIndexB.TextC.CountD.List23.在VB中，表達(dá)式`"123"+45"`的結(jié)果數(shù)據(jù)類型是（）。A.IntegerB.StringC.SingleD.Boolean24.聲明變量`DimaAsInteger`后，給a賦值`a="Hello"`會(huì)產(chǎn)生（）錯(cuò)誤。A.算術(shù)B.類型不匹配C.語(yǔ)法D.運(yùn)行時(shí)25.要使列表框List1中的第一項(xiàng)被選中，應(yīng)執(zhí)行語(yǔ)句（）。A.List1.Text=List1.List(0)B.List1.ListIndex=0C.List1.Selected(0)=TrueD.List1.Value=026.以下哪個(gè)控件不支持多行顯示？（）A.TextBoxB.ListBoxC.ComboBoxD.Label27.在窗體上畫一個(gè)命令按鈕，然后編寫如下代碼：PrivateSubCommand1_Click()x=5DoWhilex>0x=x-2LoopPrintxEndSub運(yùn)行上述程序，輸出結(jié)果是（）。A.0B.2C.3D.428.下面哪個(gè)語(yǔ)句用于打開(kāi)一個(gè)已存在的文本文件進(jìn)行讀寫操作？（）A.Open"filename.txt"ForOutputAs#1B.Open"filename.txt"ForInputAs#1C.Open"filename.txt"ForAppendAs#1D.Open"filename.txt"ForBinaryAs#129.在VB中，要使程序在發(fā)生任何未經(jīng)處理的錯(cuò)誤時(shí)中斷執(zhí)行并顯示錯(cuò)誤信息，可以在標(biāo)準(zhǔn)模塊中添加代碼`OnErrorGoToErrHandler`，其中`ErrHandler`應(yīng)該是一個(gè)（）。A.標(biāo)簽的名稱B.變量的名稱C.過(guò)程的名稱D.函數(shù)的名稱30.以下哪個(gè)控件沒(méi)有Change事件？（）A.TextBoxB.ComboBoxC.ListBoxD.Label31.若要設(shè)置窗體在屏幕中間顯示，應(yīng)將其`StartUpPosition`屬性設(shè)置為（）。A.0B.1C.2D.332.定義一個(gè)記錄學(xué)生姓名（字符串）和年齡（整數(shù)）類型的數(shù)據(jù)結(jié)構(gòu)，應(yīng)使用（）。A.數(shù)組B.字典C.類型聲明（Type）D.結(jié)構(gòu)體33.以下哪個(gè)方法用于使窗體消失并繼續(xù)運(yùn)行程序？（）A.HideB.ShowC.UnloadD.Close34.在VB中，邏輯值True在參與算術(shù)運(yùn)算時(shí)，其數(shù)值等同于（）。A.0B.-1C.1D.Null35.以下哪個(gè)語(yǔ)句用于關(guān)閉一個(gè)打開(kāi)的文件？（）A.Close#文件號(hào)B.EndFile#文件號(hào)C.CloseFile#文件號(hào)D.End#文件號(hào)36.在VB中，要向列表框List1中添加一項(xiàng)內(nèi)容"NewItem"，應(yīng)使用語(yǔ)句（）。A.List1.List(0)="NewItem"B.List1.AddItem"NewItem"C.List1.Text="NewItem"D.List1.ListIndex="NewItem"37.以下哪個(gè)控件通常用于顯示一幅圖片？（）A.PictureBoxB.ImageC.LabelD.TextBox38.在過(guò)程中，如果參數(shù)是按地址傳遞（ByRef），則形參和實(shí)參在內(nèi)存中（）。A.有獨(dú)立的地址B.有相同的地址C.地址無(wú)關(guān)緊要D.可能相同可能不同39.以下哪個(gè)語(yǔ)句用于退出Do循環(huán)？（）A.ExitDoB.ExitSubC.ExitFunctionD.EndDo40.在文本框中輸入文本時(shí)，觸發(fā)的事件是（）。A.ClickB.DblClickC.ChangeD.KeyPress二、填空題（每空1分，共20分。請(qǐng)將答案填在橫線上）1.在VB中，邏輯值False在參與關(guān)系運(yùn)算時(shí)，其值等同于0。2.若要使一個(gè)過(guò)程能夠被其他模塊調(diào)用，通常需要將其訪問(wèn)修飾符設(shè)置為Public。3.控件的`Name`屬性在程序運(yùn)行時(shí)通常不能通過(guò)屬性窗口修改。4.要在程序中實(shí)現(xiàn)延時(shí)1秒的效果，可以使用DoEvents語(yǔ)句配合計(jì)時(shí)器控件或Sleep函數(shù)。5.在聲明數(shù)組時(shí)，可以使用`Dimarr(5,-2To2)AsInteger`來(lái)聲明一個(gè)二維數(shù)組，其元素個(gè)數(shù)為36。6.如果要在運(yùn)行時(shí)向窗體上添加一個(gè)新控件，應(yīng)使用控件容器的`Controls`集合。7.要判斷一個(gè)字符串s是否為空字符串，可以使用條件`s=""`。8.文件操作中，`Open`語(yǔ)句用于打開(kāi)文件并設(shè)置訪問(wèn)模式。9.在`SelectCase`語(yǔ)句中，`CaseIs<表達(dá)式>`用于判斷表達(dá)式的值是否等于指定的表達(dá)式。10.控件的`Enabled`屬性決定控件是否可用（響應(yīng)事件）。11.`MsgBox`函數(shù)可以用來(lái)顯示消息框。12.在使用`ForEach...Next`循環(huán)遍歷集合或數(shù)組時(shí)，循環(huán)變量是臨時(shí)聲明的。13.要在命令按鈕的`Click`事件代碼中訪問(wèn)窗體的Text1文本框，應(yīng)使用`Form1.Text1`。14.VB中，`Not`是一個(gè)邏輯非運(yùn)算符。15.`Len`函數(shù)用于返回字符串的長(zhǎng)度。16.控件的`Font`屬性用于設(shè)置控件的字體樣式。17.`InputBox`函數(shù)可以用來(lái)獲取用戶輸入的文本。18.聲明變量`DimiAsInteger`后，若要使i的值加1，可以使用`i=i+1`或`i+=1`。19.`With`語(yǔ)句可以簡(jiǎn)化對(duì)同一對(duì)象的多個(gè)屬性或方法的操作。20.`ExitSub`或`ExitFunction`語(yǔ)句用于立即退出子過(guò)程或函數(shù)。三、程序閱讀理解題（每小題5分，共15分）1.閱讀以下程序代碼：PrivateSubCommand1_Click()DimiAsInteger,sumAsIntegersum=0Fori=1To50Step2sum=sum+iNextiText1.Text=Str(sum)EndSub運(yùn)行上述程序，文本框Text1中將顯示的值是（）。2.閱讀以下程序代碼：PrivateSubForm_Load()DimsAsStrings="VisualBasic"MsgBoxs(6)&s(3)&s(11)EndSub運(yùn)行上述程序，將彈出的消息框中顯示的內(nèi)容是（）。3.閱讀以下程序代碼：PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=10:y=20Ifx>yThenz=xx=yy=zEndIfText1.Text=CStr(x)&"+"&CStr(y)&"="&CStr(x+y)EndSub假設(shè)用戶點(diǎn)擊Command1按鈕，文本框Text1中將顯示的值是（）。四、程序設(shè)計(jì)題（共25分）1.編寫一個(gè)VB程序，包含一個(gè)窗體和一個(gè)命令按鈕（名為Command1）。程序運(yùn)行后，點(diǎn)擊Command1按鈕，在窗體上（例如使用文本框或標(biāo)簽）顯示從1加到100的所有整數(shù)之和。（15分）2.編寫一個(gè)子過(guò)程`SubReverseStr(strAsString)`，其功能是將輸入的字符串`str`中的字符順序顛倒，并將結(jié)果返回。例如，調(diào)用`ReverseStr("Visual")`后，應(yīng)返回`"liuvis"`。（10分）試卷答案一、選擇題1.B解析：Public用于聲明全局變量。2.D解析：Date是日期/時(shí)間類型，不是基本數(shù)據(jù)類型。3.C解析：5Mod2取模運(yùn)算結(jié)果為1。4.C解析：Caption屬性用于設(shè)置標(biāo)簽顯示的文本標(biāo)題。5.A解析：TextBox允許多行文本且可編輯，其他控件通常不可編輯。6.B解析：命令按鈕的默認(rèn)點(diǎn)擊事件是Click。7.A解析：Visible屬性控制窗體是否可見(jiàn)。8.A解析：ExitFor用于立即退出For循環(huán)。9.C解析：OnErrorGoTo用于錯(cuò)誤處理。10.B解析：Date()函數(shù)獲取當(dāng)前系統(tǒng)日期。11.B解析：Sub用于定義子過(guò)程。12.D解析：VB支持一維、二維及更高維數(shù)組。13.D解析：MaxLength限制文本框輸入的最大字符數(shù)。14.D解析：ListBox和ComboBox有Text屬性表示選中項(xiàng)，Label和CommandButton沒(méi)有。15.B解析：Shape控件用于繪制直線、矩形、橢圓等圖形。16.A解析：Visible屬性控制控件是否可見(jiàn)。17.D解析：VB的If語(yǔ)句有單行、塊If和SelectCase（多分支選擇）。18.C解析：Read語(yǔ)句用于從文本文件中讀取數(shù)據(jù)。19.B解析：VB參數(shù)傳遞方式有傳值（ByVal）和傳址（ByRef）兩種。20.D解析：StartUpPosition設(shè)置窗體啟動(dòng)位置。21.A解析：Sleep(n)使程序暫停n秒。22.A解析：ListIndex表示選中項(xiàng)的索引，從0開(kāi)始。23.B解析：字符串與數(shù)字相加，結(jié)果為字符串"12345"。24.B解析：試圖將字符串賦值給整數(shù)變量產(chǎn)生類型不匹配錯(cuò)誤。25.B解析：設(shè)置ListIndex為0選中第一項(xiàng)。26.D解析：Label控件僅用于顯示文本，不支持多行。27.B解析：循環(huán)執(zhí)行兩次，x最終值為2。28.C解析：Append模式在文件末尾添加內(nèi)容。29.A解析：OnErrorGoToErrHandler將錯(cuò)誤處理程序指向標(biāo)簽。30.D解析：Label控件沒(méi)有Change事件。31.B解析：StartUpPosition=1表示屏幕中心。32.C解析：Type關(guān)鍵字用于定義自定義數(shù)據(jù)類型。33.C解析：Unload窗體使其消失并釋放資源。34.B解析：邏輯True在算術(shù)運(yùn)算中等同于-1。35.A解析：Close#文件號(hào)正確關(guān)閉文件。36.B解析：AddItem方法用于向列表框添加項(xiàng)。37.A解析：PictureBox控件主要用于顯示和編輯圖片。38.B解析：傳址傳遞時(shí)形參和實(shí)參共享內(nèi)存地址。39.A解析：ExitDo用于退出Do循環(huán)。40.C解析：Change事件在控件的值改變時(shí)觸發(fā)。二、填空題1.0解析：邏輯值False在關(guān)系運(yùn)算中等同于0。2.Public解析：Public修飾符使過(guò)程可在其他模塊訪問(wèn)。3.Name解析：運(yùn)行時(shí)不能通過(guò)屬性窗口修改控件的Name屬性。4.DoEvents/Sleep函數(shù)解析：DoEvents允許其他事件處理，Sleep實(shí)現(xiàn)延時(shí)。5.36解析：(5-(-2)+1)*(2-(-2)+1)=36。6.Controls解析：Controls集合包含控件容器中的所有控件。7.s=""解析：判斷字符串是否為空即判斷其是否等于""。8.Open解析：Open語(yǔ)句是文件操作的第一步，用于打開(kāi)文件。9.Is<表達(dá)式>解析：CaseIs<表達(dá)式>用于比較值是否相等。10.Enabled解析：Enabled屬性控制控件是否可用。11.MsgBox解析：MsgBox函數(shù)用于創(chuàng)建消息框。12.臨時(shí)聲明解析：ForEach...Next中的變量是臨時(shí)聲明的。13.Form1.Text1解析：訪問(wèn)不同窗體的同名控件需加窗體名。14.Not解析：Not是邏輯非運(yùn)算符，否定布爾值。15.Len解析：Len函數(shù)返回字符串的字符數(shù)。16.Font解析：Font屬性用于設(shè)置控件的字體樣式。17.InputBox解析：InputBox函數(shù)用于獲取用戶輸入的文本。18.i=i+1/i+=1解析：都是將i加1的常用方式。19.With解析：With語(yǔ)句簡(jiǎn)化對(duì)同一對(duì)象的多個(gè)屬性的操作。20.ExitSub/ExitFunction解析：用于立即退出子過(guò)程或函數(shù)。三、程序閱讀理解題1.1275解析：計(jì)算1到50之間所有奇數(shù)之和，等差數(shù)列求和公式S=n/2*(首項(xiàng)+末項(xiàng))=25*(1+49)=1250。但題目是1到50，包含偶數(shù)，總和是1+2+...+50=1275。奇數(shù)和=總和-偶數(shù)和=1275-(2+4+...+50)=1275-2*(1+2+...+25)=1275-2*325=1275。或者直接計(jì)算奇數(shù)和：(1+49)*25/2=1250。題目范圍是1到50