2025年計(jì)算機(jī)二級(jí)VisualBasic程序設(shè)計(jì)專項(xiàng)訓(xùn)練沖刺實(shí)戰(zhàn)試卷版考試時(shí)間：______分鐘總分：______分姓名：______一、選擇題（本大題共20小題，每小題1分，共20分。在每小題列出的四個(gè)選項(xiàng)中，只有一個(gè)是符合題目要求的，請(qǐng)將正確選項(xiàng)字母填在題后的括號(hào)內(nèi)。）1.在VisualBasic中，要設(shè)置一個(gè)窗體上某個(gè)控件不可見(jiàn)，應(yīng)將其Visible屬性設(shè)置為（）。A.TrueB.FalseC.NullD.Any2.下列數(shù)據(jù)類型中，占用內(nèi)存空間最小的是（）。A.IntegerB.SingleC.DoubleD.String3.在VisualBasic中，用于輸出一個(gè)字符串到立即窗口的函數(shù)是（）。A.PrintB.MsgBoxC.MsgBoxD.Debug.Print4.表達(dá)式`Not(5>3And8<6)`的值是（）。A.TrueB.FalseC.-1D.05.在VisualBasic中，若變量`x`是Single類型，`y`是Integer類型，則表達(dá)式`x+y`的結(jié)果是（）類型。A.IntegerB.SingleC.DoubleD.Variant6.以下哪個(gè)語(yǔ)句用于從字符串`str`中取出從第`m`個(gè)字符開(kāi)始的`n`個(gè)字符？（）A.Right(str,n)B.Left(str,n)C.Mid(str,m,n)D.Str(m,n)7.在VisualBasic中，要使一個(gè)文本框`Text1`中的內(nèi)容全部選中，可以使用其`SelStart`和`SelLength`屬性設(shè)置為（）。A.SelStart=0,SelLength=Len(Text1.Text)B.SelStart=Len(Text1.Text),SelLength=0C.SelStart=0,SelLength=Text1.TextD.SelStart=Text1.Text,SelLength=Len(Text1.Text)8.以下控件中，通常不直接用于在窗體上顯示文本的是（）。A.LabelB.TextBoxC.ListBoxD.Frame9.在VisualBasic中，以下關(guān)于`For`循環(huán)的描述，錯(cuò)誤的是（）。A.循環(huán)次數(shù)在執(zhí)行前可以確定。B.可以使用`ExitFor`語(yǔ)句提前退出循環(huán)。C.變量必須是Integer類型。D.可以是反向循環(huán)。10.在VisualBasic中，若要使一個(gè)按鈕在單擊后每隔1秒觸發(fā)一次點(diǎn)擊事件，最合適的方法是使用（）。A.在按鈕的Click事件中添加循環(huán)延時(shí)B.在按鈕的Click事件中調(diào)用另一個(gè)定時(shí)器控件的Timer事件C.使用Timer控件，將Timer事件與按鈕關(guān)聯(lián)D.使用Timer控件，將按鈕的Click事件與Timer控件的Timer事件關(guān)聯(lián)11.以下哪個(gè)屬性用于返回或設(shè)置窗體的標(biāo)題欄文本？（）A.NameB.TextC.CaptionD.Title12.在VisualBasic中，`Len("VisualBasic")`的值是（）。A.15B.16C.14D.1313.以下關(guān)于數(shù)組操作的描述，錯(cuò)誤的是（）。A.在VisualBasic中，數(shù)組下標(biāo)默認(rèn)從0開(kāi)始。B.可以使用`LBound()`函數(shù)獲取數(shù)組的最小下標(biāo)。C.可以使用`UBound()`函數(shù)獲取數(shù)組的最大下標(biāo)。D.語(yǔ)句`Dimarr(10)`定義了一個(gè)包含11個(gè)元素的數(shù)組。14.以下哪個(gè)語(yǔ)句用于在文本框`Text1`的內(nèi)容中查找字符串`"FindThis"`？（）A.Text1.Find("FindThis")B.InStr(Text1.Text,"FindThis")C.Text1.Pos("FindThis")D.Find(Text1,"FindThis")15.在VisualBasic中，要臨時(shí)中斷當(dāng)前正在執(zhí)行的過(guò)程，可以使用（）語(yǔ)句。A.EndB.StopC.ExitSub/ExitFunction/ExitPropertyD.Pause16.以下控件中，最適合用來(lái)顯示一系列選項(xiàng)，供用戶從中選擇一項(xiàng)或多項(xiàng)的是（）。A.TextBoxB.ListBoxC.ComboBoxD.OptionButton17.以下哪個(gè)語(yǔ)句是VisualBasic中合法的賦值語(yǔ)句？（）A.x=y=10B.x=y+z=20C.=xy10D.x="Hello"+y18.在VisualBasic中，若要在程序運(yùn)行時(shí)動(dòng)態(tài)改變窗體的大小，可以設(shè)置窗體的（）屬性。A.Height和WidthB.Top和LeftC.VisibleD.Enabled19.以下關(guān)于文件操作的描述，正確的是（）。A.順序文件讀寫(xiě)操作必須從文件開(kāi)頭開(kāi)始。B.隨機(jī)文件只能讀寫(xiě)固定長(zhǎng)度的記錄。C.二進(jìn)制文件只能讀寫(xiě)文本數(shù)據(jù)。D.讀寫(xiě)隨機(jī)文件時(shí)，必須知道記錄號(hào)。20.在VisualBasic中，`TypeName("ABC")`的值是（）。A.StringB.StrC."ABC"D.Variant二、填空題（本大題共10空，每空2分，共20分。請(qǐng)將答案填寫(xiě)在答題紙的對(duì)應(yīng)位置上。）1.在VisualBasic中，聲明一個(gè)整型變量`count`，應(yīng)使用語(yǔ)句`Dimcount______`。2.若要使一個(gè)按鈕在鼠標(biāo)指針移過(guò)時(shí)改變顏色，應(yīng)為其編寫(xiě)事件代碼，事件名是______。3.表達(dá)式`10Mod3`的值是______。4.在VisualBasic中，要實(shí)現(xiàn)一個(gè)“是”或“否”的簡(jiǎn)單提示，通常使用______函數(shù)。5.聲明一個(gè)包含10個(gè)Integer類型元素的數(shù)組`numbers`，應(yīng)使用語(yǔ)句`Dimnumbers(______)AsInteger`。6.若要使一個(gè)文本框`Text1`中的文本變?yōu)榇髮?xiě)，可以使用其______屬性。7.在`SelectCase`語(yǔ)句中，`CaseIs<表達(dá)式>`用于判斷______的值是否等于該表達(dá)式。8.要在程序中創(chuàng)建一個(gè)定時(shí)器控件`Timer1`，并將其計(jì)時(shí)間隔設(shè)置為500毫秒，應(yīng)設(shè)置其______屬性的值為500。9.讀取隨機(jī)文件中第`n`條記錄，通常使用語(yǔ)句`Get#filenumber,n,recordvariable`，其中`filenumber`是文件號(hào)，`recordvariable`是______類型變量。10.過(guò)程的定義以______語(yǔ)句開(kāi)始，以`EndSub`或`EndFunction`語(yǔ)句結(jié)束。三、簡(jiǎn)答題（本大題共2題，每題10分，共20分。）1.簡(jiǎn)述VisualBasic中“事件驅(qū)動(dòng)”編程模型的基本思想。2.寫(xiě)出實(shí)現(xiàn)以下功能的VisualBasic代碼片段：定義一個(gè)函數(shù)`CalTotal`，接收兩個(gè)Integer類型的參數(shù)`a`和`b`，返回它們的和。如果`a`或`b`不是整數(shù)，則返回-1。四、編程題（本大題共1題，共40分。）編寫(xiě)一個(gè)VisualBasic程序，完成以下功能：1.設(shè)計(jì)一個(gè)窗體`Form1`，包含一個(gè)標(biāo)簽`Label1`（用于提示用戶輸入）、一個(gè)文本框`Text1`（用于輸入數(shù)據(jù)）、兩個(gè)按鈕`Command1`（標(biāo)記為“計(jì)算”）和`Command2`（標(biāo)記為“退出”）。2.當(dāng)用戶在`Text1`中輸入一個(gè)非負(fù)整數(shù)（假設(shè)用戶會(huì)按要求輸入），單擊“計(jì)算”按鈕`Command1`時(shí)，程序應(yīng)計(jì)算該整數(shù)的各位數(shù)字之和，并將結(jié)果顯示在`Label1`的Caption屬性中。例如，如果輸入“123”，則顯示“6”（因?yàn)?+2+3=6）。3.如果用戶輸入的不是非負(fù)整數(shù)，或者`Text1`為空，則在`Label1`的Caption屬性中顯示“輸入錯(cuò)誤”。4.單擊“退出”按鈕`Command2`時(shí)，程序應(yīng)結(jié)束運(yùn)行。要求：程序代碼應(yīng)包含必要的輸入驗(yàn)證邏輯，界面布局清晰合理。試卷答案一、選擇題1.B解析：Visible屬性為T(mén)rue表示控件可見(jiàn)，為False表示控件不可見(jiàn)。2.A解析：Integer類型占用內(nèi)存空間為2字節(jié)，Single占用4字節(jié)，Double占用8字節(jié)，String占用空間與字符串長(zhǎng)度相關(guān)。3.D解析：Debug.Print是用于輸出到立即窗口的函數(shù)，Print和MsgBox用于圖形界面輸出。4.B解析：Not(TrueAndFalse)=Not(False)=True。5.B解析：在數(shù)值運(yùn)算中，不同類型的數(shù)據(jù)會(huì)自動(dòng)轉(zhuǎn)換成其中精度較高的類型，Single和Integer相加結(jié)果為Single。6.C解析：Mid函數(shù)用于從字符串中提取指定部分，格式為Mid(字符串,開(kāi)始位置,長(zhǎng)度)。7.A解析：SelStart設(shè)置為0表示選中文本起始位置，SelLength設(shè)置為T(mén)ext1.Text的長(zhǎng)度表示選中整個(gè)內(nèi)容。8.C解析：ListBox用于顯示列表項(xiàng)，F(xiàn)rame用于分組控件。9.C解析：For循環(huán)的循環(huán)變量可以是Integer,Single,Double,Currency或Boolean類型。10.C解析：使用Timer控件可以實(shí)現(xiàn)定時(shí)任務(wù)，通過(guò)設(shè)置其Interval屬性和編寫(xiě)Timer事件代碼來(lái)實(shí)現(xiàn)間隔觸發(fā)。11.C解析：Caption屬性用于設(shè)置窗體的標(biāo)題欄文本。12.A解析：Len函數(shù)返回字符串的長(zhǎng)度，“VisualBasic”共15個(gè)字符。13.D解析：語(yǔ)句`Dimarr(10)`定義了一個(gè)下標(biāo)從0到10的數(shù)組，包含11個(gè)元素。14.B解析：InStr函數(shù)用于在字符串中查找子字符串的位置。15.C解析：ExitSub,ExitFunction,ExitProperty語(yǔ)句用于立即退出當(dāng)前過(guò)程。16.B解析：ListBox用于顯示選項(xiàng)列表，用戶可選擇一項(xiàng)。17.D解析：選項(xiàng)A、B、C語(yǔ)法錯(cuò)誤，選項(xiàng)D是合法的字符串連接賦值。18.A解析：Height和Width屬性分別控制窗體的高度和寬度。19.B解析：隨機(jī)文件允許按記錄號(hào)直接讀寫(xiě)任意位置的記錄。20.A解析：TypeName函數(shù)返回變量的類型名稱，"ABC"是字符串，其類型為String。二、填空題1.AsInteger解析：使用As關(guān)鍵字指定變量的數(shù)據(jù)類型。2.MousePointer解析：鼠標(biāo)指針移過(guò)事件是MousePointer事件。3.1解析：Mod運(yùn)算符返回兩數(shù)相除的余數(shù)，10Mod3=1。4.MsgBox解析：MsgBox函數(shù)用于顯示消息框。5.9解析：數(shù)組下標(biāo)從0開(kāi)始，`Dimnumbers(9)`表示數(shù)組包含10個(gè)元素（下標(biāo)0-9）。6.Text解析：Text屬性包含文本框中的文本內(nèi)容，使用UCase函數(shù)可將其轉(zhuǎn)換為大寫(xiě)。7.Case表達(dá)式解析：`CaseIs<表達(dá)式>`結(jié)構(gòu)用于比較變量與表達(dá)式的值是否相等。8.Interval解析：Timer控件的Interval屬性用于設(shè)置計(jì)時(shí)間隔，單位為毫秒。9.記錄解析：Get語(yǔ)句讀取隨機(jī)文件記錄時(shí)，recordvariable必須是與記錄結(jié)構(gòu)匹配的變量。10.Sub/Function/Property解析：VisualBasic的過(guò)程（子程序、函數(shù)、屬性）都以相應(yīng)的定義語(yǔ)句開(kāi)始。三、簡(jiǎn)答題1.解析：事件驅(qū)動(dòng)編程模型中，程序不是按照預(yù)定的順序執(zhí)行，而是響應(yīng)用戶或系統(tǒng)觸發(fā)的事件來(lái)執(zhí)行相應(yīng)的代碼。用戶通過(guò)交互（如點(diǎn)擊按鈕、輸入文本）觸發(fā)事件，事件處理器（事件代碼）執(zhí)行特定的操作。程序處于等待狀態(tài)，直到某個(gè)事件發(fā)生，然后執(zhí)行該事件對(duì)應(yīng)的事件代碼。2.解析：```vbFunctionCalTotal(aAsInteger,bAsInteger)AsIntegerIfNotIsNumeric(a)OrNotIsNumeric(b)ThenCalTotal=-1ElseCalTotal=a+bEndIfEndFunction```解析：定義函數(shù)CalTotal，參數(shù)為a和b。使用IsNumeric函數(shù)檢查a和b是否為數(shù)值類型，若不是則返回-1，否則返回a和b的和。函數(shù)返回類型為Integer。四、編程題```vb'窗體Form1的代碼PrivateSubCommand1_Click()DiminputStrAsStringDimsumAsIntegerDimdigitAsIntegerinputStr=Text1.Textsum=0'檢查輸入是否為空IfinputStr=""ThenLabel1.Caption="輸入錯(cuò)誤"ExitSubEndIf'檢查輸入是否為非負(fù)整數(shù)Fori=1ToLen(inputStr)IfNotMid(inputStr,i,1)Like"[0-9]"The