2025年計算機二級VisualBasic程序設(shè)計考試沖刺模擬試卷（含解析）考試時間：______分鐘總分：______分姓名：______一、選擇題（每小題2分，共40分。在每小題的四個選項中，只有一項是符合題目要求的，請將正確選項的字母填涂在答題卡相應(yīng)位置上。）1.在VisualBasic中，要設(shè)置一個標(biāo)簽（Label）控件能夠自動根據(jù)其內(nèi)容自動調(diào)整大小，應(yīng)將其【】屬性設(shè)置為True。A.AutoSizeB.WordWrapC.BackStyleD.Visible2.以下哪個不是VisualBasic中的合法常量？A.ABCB.123.45#C.TrueD.12&3.在VB程序中，若要實現(xiàn)代碼的重復(fù)執(zhí)行，可以使用【】結(jié)構(gòu)。A.If...Then...ElseB.SelectCaseC.For...NextD.While4.在過程定義中，用于接收調(diào)用者傳遞給過程的參數(shù)的是【】。A.變量B.形參C.實參D.語句5.以下關(guān)于數(shù)組說法錯誤的是【】。A.數(shù)組是存儲相同數(shù)據(jù)類型元素的集合B.數(shù)組元素的下標(biāo)從0開始C.數(shù)組的大小在定義后可以改變D.數(shù)組名不能是變量名6.在VB中，用于聲明模塊級變量的關(guān)鍵字是【】。A.DimB.PublicC.PrivateD.Static7.語句`PrintSqr(16)`在VB立即窗口中輸出的結(jié)果是【】。A.16B.4C.16.0D.4.08.要使一個文本框（TextBox）控件中的內(nèi)容不可見，但仍然可以輸入和編輯，應(yīng)將其【】屬性設(shè)置為False。A.VisibleB.EnabledC.TextD.MultiLine9.在VB中，若要將一個整數(shù)強制轉(zhuǎn)換為單精度浮點數(shù)，可以使用【】函數(shù)。A.CIntB.CStrC.CLngD.CSng10.下列哪個控件通常用于提供一組互相排斥的選項？A.列表框（ListBox）B.組合框（ComboBox）C.復(fù)選框（CheckBox）D.單選按鈕（OptionButton）11.在VB中，若要使程序在發(fā)生錯誤時執(zhí)行特定的錯誤處理代碼，可以使用【】語句。A.OnErrorResumeNextB.OnErrorGoToErrorHandlerC.IfErr.Number<>0ThenD.Alloftheabove12.以下哪個屬性用于設(shè)置窗體（Form）的背景顏色？A.ForeColorB.BackColorC.FontD.Picture13.在VB中，使用【】方法可以在窗體上畫一個矩形。A.CircleB.LineC.PointD.PSet14.若要使一個控件在窗體上可見，其【】屬性必須設(shè)置為True。A.NameB.TextC.VisibleD.Enabled15.在VisualBasic中，讀取文本文件內(nèi)容最常用的語句是【】。A.Open#1,ForInputAsfilenumberB.Open#1,ForOutputAsfilenumberC.Open#1,ForBinaryAsfilenumberD.BothAandB16.以下哪個事件在用戶移動鼠標(biāo)指針經(jīng)過一個控件時引發(fā)？A.ClickB.DblClickC.MouseMoveD.KeyPress17.在VB中，定義一個函數(shù)過程（Function）的關(guān)鍵字是【】。A.SubB.FunctionC.ProcedureD.Def18.若要設(shè)置窗體的啟動位置為屏幕中心，可以在窗體設(shè)計視圖的屬性窗口中將其【】屬性設(shè)置為True。A.CenterScreenB.StartUpPositionC.AutoCenterD.Maximized19.以下哪個控件沒有Multiline屬性？A.TextBoxB.ListBoxC.ComboBoxD.Label20.在VB中，使用`MsgBox("Error!",vbCritical,"Alert")`語句彈出的消息框中，標(biāo)題欄顯示的內(nèi)容是【】。A.Error!B.AlertC.MsgBoxD.無標(biāo)題二、程序分析題（每小題10分，共20分。閱讀下列程序代碼，回答問題。）程序1：```vbPrivateSubCommand1_Click()DimiAsInteger,sumAsIntegersum=0Fori=1To100IfiMod2=0Thensum=sum+iEndIfNextiLabel1.Caption="Sum="&sumEndSub```(1)該程序段實現(xiàn)的功能是什么？(2)程序運行后，Label1控件顯示的值是多少？程序2：```vbFunctionMultiply(aAsInteger,bAsInteger)AsIntegerMultiply=a*bEndFunctionPrivateSubCommand2_Click()DimresultAsIntegerresult=Multiply(5,Multiply(3,4))MsgBoxresultEndSub```(1)`Multiply`函數(shù)的作用是什么？(2)程序運行后，彈出的消息框中顯示的值是多少？三、編程題（共40分。根據(jù)要求，編寫VisualBasic程序代碼。）1.編寫一個程序，在窗體上畫一個邊長為200像素的正方形，正方形內(nèi)填充紅色背景。假設(shè)窗體名稱為Form1，正方形繪制方法為`Line`。代碼寫在`Form1_Load`事件中。（10分）2.設(shè)計一個簡單計算器，界面包含兩個文本框（Text1用于輸入第一個數(shù)，Text2用于輸入第二個數(shù)），一個下拉列表框（ComboBox）用于選擇運算符（+、-、*、/），一個標(biāo)簽（Label）用于顯示結(jié)果，一個命令按鈕（Command1）用于計算。要求：選擇運算符并點擊按鈕后，在Label上顯示計算結(jié)果。假設(shè)文本框、標(biāo)簽、命令按鈕和下拉列表框的名稱分別為Text1,Text2,Label1,Command1,ComboBox1。（15分）3.編寫一個程序，實現(xiàn)向文本框（Text1）中輸入一行文本，點擊命令按鈕（Command1）后，將文本框中的文本按字符從后向前逆序輸出到另一個文本框（Text2）中。假設(shè)窗體名稱為Form1，Text1,Text2,Command1的名稱保持不變。（15分）試卷答案一、選擇題1.A解析：AutoSize屬性決定標(biāo)簽控件是否根據(jù)其內(nèi)容自動調(diào)整大小。2.D解析：12&是字符&后面跟數(shù)字12，不是有效的數(shù)值常量表示方式。ABC和123.45#都是合法的常量。3.C解析：For...Next結(jié)構(gòu)是用于實現(xiàn)指定次數(shù)循環(huán)的控制結(jié)構(gòu)。While是條件循環(huán)，If/Else是條件判斷，SelectCase是多分支選擇結(jié)構(gòu)。4.B解析：形參（FormalParameter）是在過程定義中聲明的變量，用于接收調(diào)用時傳遞的實參（ActualParameter）。5.D解析：數(shù)組名可以和變量名相同，只要在使用時明確區(qū)分即可。6.B解析：Public關(guān)鍵字用于聲明全局（模塊級）可訪問的變量或常量。7.D解析：Sqr函數(shù)返回平方根，結(jié)果為4。在VB中，整數(shù)除以整數(shù)結(jié)果仍是整數(shù)，浮點表達式的結(jié)果帶有小數(shù)部分。8.A解析：Visible屬性控制控件是否可見。設(shè)置為False使其不可見，但仍然可以操作。Enabled控制是否可用。9.D解析：CSng函數(shù)用于將表達式強制轉(zhuǎn)換為單精度浮點數(shù)（Single類型）。CInt轉(zhuǎn)換為整數(shù)，CStr轉(zhuǎn)換為字符串，CLng轉(zhuǎn)換為長整數(shù)。10.D解析：單選按鈕（OptionButton）組中的選項是互斥的，用戶一次只能選擇一個。11.B解析：OnErrorGoToErrorHandler是標(biāo)準的錯誤處理語句，用于將錯誤流程轉(zhuǎn)移到指定的標(biāo)簽處處理。OnErrorResumeNext會忽略錯誤繼續(xù)執(zhí)行。IfErr.Number<>0Then是判斷是否發(fā)生錯誤的常見方式，但需要放在錯誤處理代碼之前。12.B解析：BackColor屬性設(shè)置窗體的背景顏色。ForeColor前景色，F(xiàn)ont字體，Picture圖片。13.B解析：Line方法用于在窗體上畫直線。Circle畫圓，PSet畫點。14.C解析：Visible屬性為True時，控件可見；為False時不可見。Name是名稱，Text是文本，Enabled是啟用狀態(tài)。15.D解析：A和B都是打開文件進行讀寫的語句格式，都是正確的。Open#1,ForInputAsfilenumber是專門用于讀取文本文件的語句。16.C解析：MouseMove事件在鼠標(biāo)指針在控件上移動時引發(fā)。Click在鼠標(biāo)單擊時引發(fā)，DblClick在鼠標(biāo)雙擊時引發(fā)，KeyPress在按下鍵盤鍵時引發(fā)。17.B解析：Function關(guān)鍵字用于聲明函數(shù)過程，返回一個計算結(jié)果。18.C解析：AutoCenter屬性設(shè)置為True時，窗體在運行時自動在屏幕中心顯示。19.D解析：標(biāo)簽（Label）控件沒有Multiline屬性，用于設(shè)置文本是否多行顯示。TextBox,ListBox,ComboBox都具有此屬性。20.B解析：MsgBox函數(shù)的第三個參數(shù)指定消息框標(biāo)題，這里是"Alert"。二、程序分析題程序1：(1)該程序段計算1到100之間所有偶數(shù)的累加和。(2)程序運行后，Label1控件顯示的值是2550。解析：(1)程序使用For循環(huán)從1遍歷到100。If語句判斷當(dāng)前數(shù)i是否能被2整除（iMod2=0），即判斷是否為偶數(shù)。如果是偶數(shù)，則將其加到變量sum中。循環(huán)結(jié)束后，將sum的值轉(zhuǎn)換為字符串，并通過Label1的Caption屬性顯示出來。(2)1到100的偶數(shù)有2,4,6,...,100。這些數(shù)的和可以通過公式計算：(2+100)*50/2=102*50/2=2550?；蛘咄ㄟ^運行代碼驗證結(jié)果為2550。程序2：(1)`Multiply`函數(shù)的作用是接收兩個整數(shù)參數(shù)a和b，返回它們的乘積。(2)程序運行后，彈出的消息框中顯示的值是60。解析：(1)Multiply是一個函數(shù)過程，定義了兩個整型形參a和b，通過`Multiply=a*b`語句計算a和b的乘積，并將結(jié)果賦值給函數(shù)名Multiply本身，作為返回值。(2)在Command2_Click事件中，首先調(diào)用Multiply(5,Multiply(3,4))。先計算最內(nèi)層的Multiply(3,4)，返回12。然后調(diào)用Multiply(5,12)，返回5*12=60。最后將60作為消息內(nèi)容顯示在消息框中。三、編程題1.代碼示例：```vbPrivateSubForm1_Load()DimiAsIntegerMe.BackColor=&HFF'設(shè)置窗體背景為白色Fori=1To4'畫正方形的四條邊Line(100,100)+(300,100)'上邊Line(300,100)+(300,300)'右邊Line(300,300)+(100,300)'下邊Line(100,300)+(100,100)'左邊Nexti'填充正方形內(nèi)部Me.PenColor=&H00000000'設(shè)置畫筆顏色為黑色（確保能覆蓋邊框顏色）Fori=101To299Line(101,i)+(299,i)'內(nèi)部上邊Line(299,i)+(299,299)'內(nèi)部右邊Line(299,299)+(101,299)'內(nèi)部下邊Line(101,299)+(101,i)'內(nèi)部左邊NextiMe.PenColor=&H000000FF'恢復(fù)畫筆顏色為藍色或其他默認顏色EndSub```解析：在Form1_Load事件中，首先設(shè)置窗體背景色。使用Line方法畫正方形的四條邊。為了填充內(nèi)部，再次使用Line方法，但這次將線條的起點和終點稍微向內(nèi)偏移1像素，覆蓋掉邊框的顏色。注意設(shè)置合適的起點和終點坐標(biāo)以形成200x200的正方形。最后恢復(fù)畫筆顏色。2.代碼示例：```vbPrivateSubCommand1_Click()Dimnum1AsSingleDimnum2AsSingleDimopAsStringDimresultAsSingleDimoperatorIndexAsInteger'獲取輸入值IfIsNumeric(Text1.Text)AndIsNumeric(Text2.Text)Thennum1=Val(Text1.Text)num2=Val(Text2.Text)'獲取選擇的運算符operatorIndex=ComboBox1.ListIndexIfoperatorIndex>=0Thenop=ComboBox1.List(operatorIndex)ElseLabel1.Caption="Pleaseselectanoperator."ExitSubEndIf'執(zhí)行計算SelectCaseopCase"+"result=num1+num2Case"-"result=num1-num2Case"*"result=num1*num2Case"/"'檢查除數(shù)是否為零Ifnum2<>0Thenresult=num1/num2ElseLabel1.Caption="Divisionbyzero!"ExitSubEndIfCaseElseLabel1.Caption="Invalidoperator!"ExitSubEndSelect'顯示結(jié)果Label1.Caption="Result:"&resultElseLabel1.Caption="Pleaseenter