2025年計(jì)算機(jī)二級(jí)VisualBasic程序設(shè)計(jì)沖刺押題預(yù)測(cè)試卷考試時(shí)間：______分鐘總分：______分姓名：______一、選擇題（每小題2分，共40分。在每小題的備選答案中，只有一個(gè)是正確的，請(qǐng)將正確答案的字母代號(hào)填在題后的括號(hào)內(nèi)。)1.在VB中，以下哪個(gè)不是基本數(shù)據(jù)類型？(A)Integer(B)Single(C)String(D)Array2.以下哪個(gè)語(yǔ)句用于在VB中聲明一個(gè)單行注釋？(A)REM(B)//(C)'(D)Allofabove3.若變量a和b分別被賦值為10和20，則表達(dá)式`aMod7+b\3`的值是？(A)3(B)4(C)5(D)64.在VB中，要實(shí)現(xiàn)代碼的重復(fù)執(zhí)行，可以使用哪種語(yǔ)句結(jié)構(gòu)？(A)If...Then...Else(B)For...Next(C)While...Wend(D)Allofabove5.以下哪個(gè)控件通常用于顯示多行文本，且支持滾動(dòng)條？(A)Label(B)TextBox(C)ListBox(D)Frame6.在VB中，如果一個(gè)過(guò)程沒有任何返回值，應(yīng)該使用哪種過(guò)程定義語(yǔ)句？(A)Function(B)Sub(C)Property(D)Custom7.以下哪個(gè)屬性用于設(shè)置或返回控件的名稱？(A)Name(B)Text(C)Caption(D)Visible8.在VB中，以下哪個(gè)語(yǔ)句用于退出一個(gè)For...Next循環(huán)？(A)ExitSub(B)ExitFor(C)ExitDo(D)ExitFunction9.以下哪個(gè)語(yǔ)句用于將光標(biāo)移動(dòng)到窗體的左上角？(A)Move0,0(B)SetFocus0,0(C)Cls0,0(D)Locate0,010.在VB中，要判斷一個(gè)變量是否為空值（Nothing），應(yīng)使用哪個(gè)關(guān)鍵字？(A)IsNull(B)IsEmpty(C)IsNothing(D)IsNull()11.以下哪個(gè)控件提供了一個(gè)標(biāo)準(zhǔn)的對(duì)話框用于選擇顏色？(A)CommonDialog(B)ColorDialog(C)FileDialog(D)Dialog12.以下哪個(gè)運(yùn)算符用于字符串的連接？(A)+(B)&(C)*(D)|13.在VB中，以下哪個(gè)方法用于向列表框（ListBox）中添加一項(xiàng)？(A)RemoveItem(B)AddItem(C)Clear(D)Item14.若變量`strName`的值為"VisualBasic"，則表達(dá)式`Len(strName)`的值是？(A)10(B)11(C)12(D)1315.在VB中，以下哪個(gè)語(yǔ)句用于退出一個(gè)Sub或Function過(guò)程？(A)EndSub(B)ExitSub(C)BothAandB(D)NeitherAnorB16.以下哪個(gè)控件通常用于在兩個(gè)窗體之間傳遞信息？(A)MDIForm(B)Parameter(C)Variable(D)Global17.以下哪個(gè)屬性用于設(shè)置文本框（TextBox）中文本的字體顏色？(A)Font(B)ForeColor(C)BackColor(D)FontColor18.在VB中，以下哪個(gè)語(yǔ)句用于從字符串中刪除前導(dǎo)和尾隨的空格？(A)Trim(B)LTrim(C)RTrim(D)RemoveSpace19.以下哪個(gè)控件允許用戶選擇一個(gè)日期？(A)TextBox(B)DateTimePicker(C)Calendar(D)DateEdit20.以下哪個(gè)語(yǔ)句用于在VB中聲明一個(gè)常量？(A)Dim(B)Const(C)Let(D)Public二、程序填空題（每空2分，共20分。請(qǐng)將答案填寫在橫線上。)1.下面這個(gè)程序段的功能是計(jì)算1到10的和。請(qǐng)?jiān)赺___處填寫正確的循環(huán)語(yǔ)句開始符。```vbs=0i=1______s=s+ii=i+1Nexti```2.下面這個(gè)程序段的功能是將字符串`s`中的所有大寫字母轉(zhuǎn)換為小寫字母。請(qǐng)?jiān)赺___處填寫合適的字符串函數(shù)。```vbs="HelloVB"s=LCase(s)______=UCase(______)```3.在VB中，要聲明一個(gè)包含10個(gè)元素的整數(shù)數(shù)組`numbers`，請(qǐng)?jiān)赺___處填寫正確的聲明語(yǔ)句。```vb______numbers(9)```4.如果想判斷變量`x`是否為數(shù)值型數(shù)據(jù)，可以使用_______函數(shù)。如果`x`是數(shù)值型，則該函數(shù)返回True，否則返回False。5.以下程序段用于在窗體上繪制一個(gè)紅色的矩形。請(qǐng)?jiān)赺___處填寫合適的圖形方法。```vbForm1.Line(100,100)-(300,200),RGB(255,0,0),BFForm1.Line______```三、程序改錯(cuò)題（每題15分，共30分。請(qǐng)指出每題中錯(cuò)誤的位置（行號(hào)）并改正錯(cuò)誤代碼。錯(cuò)誤可能有1-3處。)1.錯(cuò)誤位置：(第2行)(第4行)```vbPrivateSubCommand1_Click()a=10:b=20Ifa>bThenPrint"aisgreater"ElsePrint"bisgreater"EndSub```2.錯(cuò)誤位置：(第3行)```vbPrivateSubForm_Load()DimiAsIntegerFori=1To5Print"VBisfun!"NextiEndSub```四、程序設(shè)計(jì)題（共30分。請(qǐng)根據(jù)要求編寫程序代碼。)1.編寫一個(gè)程序，要求用戶通過(guò)一個(gè)命令按鈕（Command1）輸入兩個(gè)整數(shù)（分別存放在文本框Text1和Text2中），再通過(guò)另一個(gè)命令按鈕（Command2）計(jì)算這兩個(gè)整數(shù)的最大公約數(shù)，并將結(jié)果顯示在標(biāo)簽Label3中。最大公約數(shù)的計(jì)算可以通過(guò)輾轉(zhuǎn)相除法實(shí)現(xiàn)。請(qǐng)補(bǔ)充完整程序代碼。```vbPrivateSubCommand1_Click()'用戶輸入兩個(gè)整數(shù)EndSubPrivateSubCommand2_Click()'計(jì)算最大公約數(shù)，結(jié)果存入Label3Dimnum1,num2,gcdAsIntegernum1=Val(Text1.Text)num2=Val(Text2.Text)'你的代碼開始EndSub```---試卷答案一、選擇題1.D2.A3.C4.B5.C6.B7.A8.B9.A10.C11.B12.B13.B14.B15.C16.D17.B18.A19.B20.B解析1.Array是動(dòng)態(tài)數(shù)組的一種表示，不是基本數(shù)據(jù)類型。2.REM用于聲明單行注釋。3.aMod7=3,b\3=6,3+6=9.4.For...Next,While...Wend都是實(shí)現(xiàn)重復(fù)執(zhí)行的循環(huán)結(jié)構(gòu)。If...Then...Else是條件判斷語(yǔ)句。5.ListBox支持多行顯示和滾動(dòng)條。6.Sub用于聲明無(wú)返回值的過(guò)程。7.Name屬性用于設(shè)置控件的名稱。8.ExitFor用于退出For...Next循環(huán)。9.Move0,0將控件移動(dòng)到其坐標(biāo)系中的(0,0)位置，通常指窗體左上角。10.IsNothing用于判斷變量是否為Nothing（空值）。11.ColorDialog是CommonDialog控件的一種，專門用于選擇顏色。12.&運(yùn)算符用于字符串連接。13.AddItem方法用于向ListBox添加項(xiàng)目。14.Len("VisualBasic")=11.15.BothEndSubandExitSubcanbeusedtoexitaSuborFunction.16.Global變量或參數(shù)可以在不同過(guò)程間傳遞信息。17.ForeColor屬性用于設(shè)置控件中文本的顏色。18.Trim函數(shù)用于刪除字符串前后的空格。19.DateTimePicker控件允許用戶選擇日期和時(shí)間。20.Const用于聲明常量。二、程序填空題1.For2.s,s3.Dimnumbers(9)AsInteger4.IsNumeric(x)5.(100,200)-(300,400)解析1.需要一個(gè)For循環(huán)從1到10迭代。2.LCase將大寫轉(zhuǎn)為小寫，UCase將小寫轉(zhuǎn)為大寫。需要將`s`的小寫部分賦值回`s`本身。3.聲明一個(gè)有10個(gè)元素的整數(shù)數(shù)組，下標(biāo)通常從0到9，所以需要Dimnumbers(9)。4.IsNumeric函數(shù)判斷變量是否為數(shù)值型。5.Line方法繪制矩形，需要指定起點(diǎn)(100,200)和終點(diǎn)(300,400)。三、程序改錯(cuò)題1.錯(cuò)誤位置：第2行(應(yīng)改為`a=Val(Text1.Text)`),第4行(應(yīng)改為`Label3.Caption="bisgreater"`或`Print"bisgreater"`，取決于Label3是否已設(shè)置Caption)```vbPrivateSubCommand1_Click()a=Val(Text1.Text):b=Val(Text2.Text)Ifa>bThenPrint"aisgreater"ElsePrint"bisgreater"EndSub```解析：Command1點(diǎn)擊事件需要從文本框獲取數(shù)值，應(yīng)使用Val函數(shù)轉(zhuǎn)換。輸出結(jié)果應(yīng)賦值給Label的Caption屬性或使用Print語(yǔ)句輸出到窗體。2.錯(cuò)誤位置：第3行(應(yīng)改為`Print"VBisfun!"`，如果是在Form上輸出)```vbPrivateSubForm_Load()DimiAsIntegerFori=1To5Print"VBisfun!"NextiEndSub```解析：Print語(yǔ)句用于輸出，如果是在窗體上輸出，可以直接使用Print，如果要在其他控件上輸出，需要指定控件名，例如`Form1.Print"VBisfun!"`。四、程序設(shè)計(jì)題1.```vbPrivateSubCommand1_Click()'用戶輸入兩個(gè)整數(shù)Diminput1AsStringinput1=InputBox("請(qǐng)輸入第一個(gè)整數(shù)：")IfNotIsNumeric(input1)ThenMsgBox"輸入無(wú)效，請(qǐng)輸入整數(shù)。"ExitSubEndIfDiminput2AsStringinput2=InputBox("請(qǐng)輸入第二個(gè)整數(shù)：")IfNotIsNumeric(input2)ThenMsgBox"輸入無(wú)效，請(qǐng)輸入整數(shù)。"ExitSubEndIfText1.Text=input1Text2.Text=input2EndSubPrivateSubCommand2_Click()'計(jì)算最大公約數(shù)，結(jié)果存入L