計(jì)算機(jī)二級(jí)VisualBasic程序設(shè)計(jì)押題密卷2025版考試時(shí)間：______分鐘總分：______分姓名：______一、選擇題（每小題2分，共30分。在每小題的備選答案中，只有一個(gè)是正確的，請(qǐng)將正確答案的序號(hào)填在題后的括號(hào)內(nèi)）1.以下不是VisualBasic數(shù)據(jù)類型的是（）。A.IntegerB.SingleC.StringD.Text2.在VisualBasic中，要判斷變量a是否為空值（Null），應(yīng)使用（）。A.a=NullB.IsNull(a)C.aIsNothingD.IsEmpty(a)3.以下運(yùn)算符中，優(yōu)先級(jí)最低的是（）。A.+B.*C.<>D.And4.語(yǔ)句`x=x+1`等價(jià)于（）。A.x+=1B.x=1+xC.x++D.以上都不對(duì)5.在VisualBasic中，要實(shí)現(xiàn)代碼的模塊化，可以使用（）。A.函數(shù)B.子程序C.過(guò)程D.以上都是6.以下關(guān)于過(guò)程和函數(shù)的描述，正確的是（）。A.函數(shù)可以返回值，子程序不能B.子程序可以返回值，函數(shù)不能C.兩者都可以返回值D.兩者都不能返回值7.在VisualBasic中，用于聲明全局變量的關(guān)鍵字是（）。A.DimB.PublicC.PrivateD.Static8.以下控件中，不能接收焦點(diǎn)的是（）。A.TextBoxB.CommandButtonC.LabelD.OptionButton9.在Form的Load事件中，F(xiàn)orm的Name屬性和Caption屬性分別是（）。A.Name,CaptionB.Text,TitleC.Name,TitleD.Text,Caption10.若要使一個(gè)文本框只允許輸入數(shù)字，可以使用該文本框的（）屬性設(shè)置相關(guān)控件。A.MaxLengthB.EnabledC.LockedD.Format11.在VisualBasic中，以下關(guān)于數(shù)組的說(shuō)法，錯(cuò)誤的是（）。A.數(shù)組的大小在聲明后可以改變B.數(shù)組元素的下標(biāo)從0開(kāi)始C.數(shù)組必須先聲明才能使用D.數(shù)組只能是一維的12.以下關(guān)于菜單設(shè)計(jì)的說(shuō)法，正確的是（）。A.菜單項(xiàng)的Caption屬性只能包含文本B.菜單項(xiàng)的Name屬性不能與控件同名C.可以使用菜單項(xiàng)的Visible屬性來(lái)控制顯示與隱藏D.菜單項(xiàng)不能有子菜單13.在VisualBasic中，要實(shí)現(xiàn)一個(gè)應(yīng)用程序窗口有多個(gè)文檔同時(shí)顯示，應(yīng)使用（）。A.單文檔界面（SDI）B.多文檔界面（MDI）C.多層文檔界面D.以上都不是14.以下關(guān)于文件操作的描述，錯(cuò)誤的是（）。A.順序文件讀寫操作方便，但效率較低B.隨機(jī)文件可以直接訪問(wèn)文件中的任意記錄C.二進(jìn)制文件可以存儲(chǔ)任何類型的數(shù)據(jù)D.讀寫文件前必須先打開(kāi)文件15.在VisualBasic中，用于處理運(yùn)行時(shí)錯(cuò)誤的結(jié)構(gòu)是（）。A.SelectCaseB.If...Then...ElseC.OnErrorD.Do...Loop二、填空題（每空2分，共20分。請(qǐng)將答案填寫在橫線上）1.VisualBasic中的基本數(shù)據(jù)類型包括數(shù)值型、______型、邏輯型、日期型和變體型。2.在VisualBasic中，整數(shù)類型可以用______、Long等關(guān)鍵字聲明。3.在程序中，如果需要暫時(shí)保存一個(gè)過(guò)程的局部變量，可以使用______關(guān)鍵字聲明。4.控件的______屬性用于設(shè)置控件在窗體上的位置和大小。5.要使一個(gè)控件在窗體上可見(jiàn)，其______屬性必須設(shè)置為True。6.在VisualBasic中，使用______語(yǔ)句可以打開(kāi)一個(gè)文件。7.當(dāng)用戶點(diǎn)擊一個(gè)命令按鈕時(shí)，通常會(huì)觸發(fā)該按鈕的______事件。8.在面向?qū)ο蟪绦蛟O(shè)計(jì)中，對(duì)象具有______、方法和事件三個(gè)基本特征。9.如果要判斷一個(gè)變量是否為字符串類型，可以使用______函數(shù)。10.在VisualBasic中，可以通過(guò)控件的______屬性來(lái)限制用戶輸入的字符數(shù)。三、閱讀程序?qū)懡Y(jié)果題（每小題10分，共30分。請(qǐng)寫出程序運(yùn)行后輸出的結(jié)果）1.```vbDimaAsInteger,bAsInteger,cAsIntegera=5:b=3:c=a*bPrint"c=";cPrint"a+b=";a+bPrint"a-b=";a-bPrint"a*b=";a*bPrint"a/b=";a/bPrint"aModb=";aModb```2.```vbDimiAsIntegerFori=1To5Step2PrintiNexti```3.```vbDimstrAsStringstr="VisualBasic"PrintMid(str,5,3)PrintLeft(str,5)PrintRight(str,4)```四、閱讀程序選擇題（每小題10分，共20分。在每小題的備選答案中，只有一個(gè)是正確的，請(qǐng)將正確答案的序號(hào)填在題后的括號(hào)內(nèi)）1.以下程序段執(zhí)行后，變量s的值是（）。```vbDimaAsInteger=10DimbAsInteger=20DimsAsIntegers=a:a=b:b=sPrinta;b```A.1020B.2010C.00D.10102.以下程序段的功能是（）。```vbDimiAsIntegerFori=1To6IfiMod2=0ThenPrint"*"ElsePrint"#"EndIfNexti```A.輸出6個(gè)*B.輸出6個(gè)#C.輸出alternating*and#symbols(星號(hào)和井號(hào)交替)D.輸出#*#*#*五、程序改錯(cuò)題（共20分。下列程序中各有一處錯(cuò)誤，請(qǐng)指出錯(cuò)誤所在行號(hào)，并寫出正確的語(yǔ)句）1.程序功能：計(jì)算兩個(gè)數(shù)的和。```vb'錯(cuò)誤1SubAdd(aAsInteger,bAsInteger)c=a+bPrint"Sum=";cEndSub'錯(cuò)誤2PrivateSubCommand1_Click()CallAdd(10,20)EndSub```錯(cuò)誤1所在行號(hào)：______錯(cuò)誤描述及正確語(yǔ)句：______錯(cuò)誤2所在行號(hào)：______錯(cuò)誤描述及正確語(yǔ)句：______2.程序功能：在文本框Text1中顯示當(dāng)前日期。```vb'錯(cuò)誤1PrivateSubForm_Load()Text1.Text=Date()EndSub```錯(cuò)誤1所在行號(hào)：______錯(cuò)誤描述及正確語(yǔ)句：______六、程序設(shè)計(jì)題（共30分。請(qǐng)根據(jù)要求編寫程序代碼）1.程序功能：編寫一個(gè)函數(shù)，接收一個(gè)整數(shù)參數(shù)n，返回n的階乘值。要求：使用遞歸方法實(shí)現(xiàn)。函數(shù)名：Factorial參數(shù)：n(Integer)返回值：n的階乘(Integer)代碼如下：```vbFunctionFactorial(nAsInteger)AsInteger'請(qǐng)?jiān)诖颂幪顚懘aEndFunction```2.程序功能：編寫一個(gè)Sub過(guò)程，接收一個(gè)字符串參數(shù)str，檢查該字符串是否為回文（正讀和反讀相同）。如果是回文，則在窗體上顯示"是回文"；如果不是，則顯示"不是回文"。過(guò)程名：CheckPalindrome參數(shù)：str(String)代碼如下：```vbSubCheckPalindrome(strAsString)'請(qǐng)?jiān)诖颂幪顚懘aEndSub```---試卷答案一、選擇題1.D2.C3.D4.A5.D6.A7.B8.C9.D10.A11.D12.C13.B14.A15.C二、填空題1.字符2.Integer3.Static4.Width,Height（或Location,Size）5.Visible6.Open7.Click8.屬性9.VarType10.MaxLength三、閱讀程序?qū)懡Y(jié)果題1.c=15a+b=8a-b=2a*b=15a/b=1aModb=22.133.BasicVisualtic四、閱讀程序選擇題1.B2.C五、程序改錯(cuò)題1.錯(cuò)誤1所在行號(hào)：2錯(cuò)誤描述及正確語(yǔ)句：缺少參數(shù)聲明，應(yīng)聲明c為Integer類型。正確語(yǔ)句：DimcAsInteger錯(cuò)誤2所在行號(hào)：3錯(cuò)誤描述及正確語(yǔ)句：調(diào)用子程序時(shí)參數(shù)應(yīng)使用括號(hào)。正確語(yǔ)句：CallAdd(10,20)2.錯(cuò)誤1所在行號(hào)：2錯(cuò)誤描述及正確語(yǔ)句：應(yīng)使用Text屬性而非Text()方法。正確語(yǔ)句：Text1.Text=Date()六、程序設(shè)計(jì)題1.```vbFunctionFactorial(nAsInteger)AsIntegerIfn=0Orn=1ThenFactorial=1ElseFactorial=n*Factorial(n-1)EndIfEndFunction```解析思路：遞歸函數(shù)的核心是找到基本情況（n=0或n=1時(shí)階乘為1）和遞歸步驟（n的階乘等于n乘以n-1的階乘）。通過(guò)不斷調(diào)用自身，逐步將問(wèn)題簡(jiǎn)化到基本情況。2.```vbSubCheckPalindrome(strAsString)DimlenAsIntegerDimiAsIntegerDimisPalindromeAsBooleanlen=Len(str)isPalindrome=TrueFori=1Tolen\2IfMid(str,i,1)<>Mid(str,len-i+1,1)ThenisPalindrome=FalseExitFor