2025年計(jì)算機(jī)二級(jí)VB程序設(shè)計(jì)專(zhuān)項(xiàng)訓(xùn)練歷2025年真題解析版考試時(shí)間：______分鐘總分：______分姓名：______一、選擇題1.在VisualBasic中，用于聲明全局變量的關(guān)鍵字是？A.DimB.PrivateC.PublicD.Static2.以下哪個(gè)語(yǔ)句用于在VisualBasic中實(shí)現(xiàn)條件判斷？A.If...Then...ElseB.For...NextC.While...WendD.Do...Loop3.在VisualBasic中，要判斷一個(gè)變量是否為空值，應(yīng)使用哪個(gè)運(yùn)算符？A.=B.<>C.IsD.IsNull4.以下哪個(gè)控件通常用于顯示多行文本？A.LabelB.TextBoxC.ListBoxD.ComboBox5.在VisualBasic中，以下哪個(gè)方法用于關(guān)閉一個(gè)窗體？A.MoveB.HideC.UnloadD.Close6.以下哪個(gè)屬性用于設(shè)置文本框中文本的字體顏色？A.ForeColorB.BackColorC.FontD.Text7.在VisualBasic中，以下哪個(gè)過(guò)程用于在程序中響應(yīng)用戶的按鍵操作？A.ClickB.ChangeC.KeyPressD.MouseDown8.以下哪個(gè)語(yǔ)句用于在VisualBasic中實(shí)現(xiàn)循環(huán)？A.If...Then...ElseB.For...NextC.While...WendD.Do...Loop9.在VisualBasic中，以下哪個(gè)控件用于顯示圖片？A.ImageB.PictureC.PictureBoxD.ImageList10.在VisualBasic中，以下哪個(gè)方法用于將一個(gè)字符串拆分成一個(gè)字符串?dāng)?shù)組？A.SplitB.JoinC.TrimD.Replace11.在VisualBasic中，以下哪個(gè)屬性用于設(shè)置窗體的標(biāo)題欄文本？A.CaptionB.NameC.TextD.Title12.以下哪個(gè)控件通常用于創(chuàng)建下拉列表？A.ListBoxB.ComboBoxC.ListD.DropDown13.在VisualBasic中，以下哪個(gè)語(yǔ)句用于聲明一個(gè)常數(shù)？A.DimB.ConstC.LetD.Public14.在VisualBasic中，以下哪個(gè)方法用于在列表框中添加一項(xiàng)？A.AddB.AppendC.InsertD.AddItem15.以下哪個(gè)屬性用于設(shè)置文本框是否可編輯？A.EnabledB.VisibleC.LockedD.ReadOnly16.在VisualBasic中，以下哪個(gè)控件用于顯示選項(xiàng)按鈕？A.OptionButtonB.RadioButtonC.ToggleButtonD.Choice17.以下哪個(gè)語(yǔ)句用于在VisualBasic中退出循環(huán)？A.ExitForB.ExitDoC.BreakD.ExitSub18.在VisualBasic中，以下哪個(gè)屬性用于設(shè)置列表框中每項(xiàng)的高度？A.ColumnHeightB.ListHeightC.ItemHeightD.Height19.在VisualBasic中，以下哪個(gè)方法用于刪除一個(gè)控件？A.RemoveB.DeleteC.UnloadD.Destroy20.以下哪個(gè)事件在用戶改變文本框中的文本時(shí)發(fā)生？A.ClickB.ChangeC.KeyPressD.MouseMove二、填空題1.在VisualBasic中，默認(rèn)的模塊級(jí)變量聲明關(guān)鍵字是________。2.要使一個(gè)控件在程序運(yùn)行時(shí)不可見(jiàn)，應(yīng)將其________屬性設(shè)置為False。3.在VisualBasic中，用于聲明數(shù)組的關(guān)鍵字是________。4.以下代碼段實(shí)現(xiàn)了求1到10的和，請(qǐng)補(bǔ)充完整。```vbS=0ForI=1To10S=________NextI```5.要在窗體上顯示一個(gè)標(biāo)簽，需要先創(chuàng)建一個(gè)標(biāo)簽控件，然后設(shè)置其________屬性。6.在VisualBasic中，用于打開(kāi)一個(gè)文件的語(yǔ)句是________。7.以下代碼段實(shí)現(xiàn)了從字符串中提取子字符串，請(qǐng)補(bǔ)充完整。```vbStr="HelloWorld"SubStr=________(Str,6,5)```8.要使一個(gè)按鈕在程序運(yùn)行時(shí)不可用，應(yīng)將其________屬性設(shè)置為False。9.在VisualBasic中，用于聲明私有過(guò)程的語(yǔ)句是________。10.以下代碼段實(shí)現(xiàn)了判斷一個(gè)數(shù)是否為偶數(shù)，請(qǐng)補(bǔ)充完整。```vbFunctionIsEven(NAsInteger)AsBooleanIsEven=________EndFunction```三、編程題1.編寫(xiě)一個(gè)VB程序，實(shí)現(xiàn)以下功能：在窗體上顯示一個(gè)文本框、一個(gè)命令按鈕和一個(gè)標(biāo)簽。當(dāng)用戶在文本框中輸入文本并點(diǎn)擊命令按鈕時(shí)，程序?qū)⑽谋究蛑械奈谋巨D(zhuǎn)換為大寫(xiě)，并顯示在標(biāo)簽中。2.編寫(xiě)一個(gè)VB程序，實(shí)現(xiàn)以下功能：在窗體上顯示一個(gè)列表框和一個(gè)命令按鈕。程序啟動(dòng)時(shí)，在列表框中添加一些水果名稱(chēng)（如蘋(píng)果、香蕉、橙子）。當(dāng)用戶點(diǎn)擊命令按鈕時(shí)，程序?qū)⒘斜砜蛑羞x中的水果名稱(chēng)刪除。3.編寫(xiě)一個(gè)VB程序，實(shí)現(xiàn)以下功能：在窗體上顯示一個(gè)文本框和一個(gè)命令按鈕。當(dāng)用戶在文本框中輸入一個(gè)整數(shù)并點(diǎn)擊命令按鈕時(shí)，程序判斷該整數(shù)是否為素?cái)?shù)，并在標(biāo)簽中顯示結(jié)果（是或否）。試卷答案一、選擇題1.C解析：Public用于聲明全局變量，可在模塊內(nèi)的任何位置訪問(wèn)。2.A解析：If...Then...Else語(yǔ)句用于根據(jù)條件執(zhí)行不同的代碼塊，實(shí)現(xiàn)條件判斷。3.D解析：IsNull運(yùn)算符用于判斷一個(gè)變量是否為Null值。4.B解析：TextBox控件可用于輸入和顯示多行文本。5.C解析：Unload語(yǔ)句用于從內(nèi)存中移除窗體，使其不再可見(jiàn)。6.A解析：ForeColor屬性用于設(shè)置控件中文本的顏色。7.C解析：KeyPress事件在用戶按下并釋放鍵盤(pán)上的鍵時(shí)發(fā)生。8.B解析：For...Next語(yǔ)句用于執(zhí)行指定次數(shù)的循環(huán)。9.C解析：PictureBox控件用于顯示圖片。10.A解析：Split方法用于將字符串按指定分隔符拆分成字符串?dāng)?shù)組。11.A解析：Caption屬性用于設(shè)置窗體的標(biāo)題欄文本。12.B解析：ComboBox控件通常用于創(chuàng)建下拉列表。13.B解析：Const語(yǔ)句用于聲明常數(shù)。14.D解析：AddItem方法用于在列表框中添加一項(xiàng)。15.D解析：ReadOnly屬性用于設(shè)置文本框是否可編輯。16.B解析：RadioButton控件用于顯示單選按鈕。17.A解析：ExitFor語(yǔ)句用于退出For循環(huán)。18.C解析：ItemHeight屬性用于設(shè)置列表框中每項(xiàng)的高度。19.C解析：Unload語(yǔ)句用于刪除一個(gè)控件。20.B解析：Change事件在用戶改變文本框中的文本時(shí)發(fā)生。二、填空題1.Dim解析：Dim是VisualBasic中默認(rèn)的模塊級(jí)變量聲明關(guān)鍵字。2.Visible解析：Visible屬性用于設(shè)置控件是否可見(jiàn)。3.Array解析：Array關(guān)鍵字用于聲明數(shù)組。4.+I解析：在For循環(huán)中，需要將當(dāng)前值I累加到S中。5.Caption解析：Caption屬性用于設(shè)置標(biāo)簽上顯示的文本。6.Open解析：Open語(yǔ)句用于打開(kāi)一個(gè)文件進(jìn)行讀寫(xiě)操作。7.Mid解析：Mid函數(shù)用于從字符串中提取子字符串。8.Enabled解析：Enabled屬性用于設(shè)置控件是否可用。9.PrivateSub解析：PrivateSub用于聲明私有過(guò)程。10.NMod2=0解析：判斷一個(gè)數(shù)是否為偶數(shù)，可以使用模運(yùn)算符Mod，如果N除以2的余數(shù)為0，則為偶數(shù)。三、編程題1.```vbPrivateSubCommandButton1_Click()Label1.Caption=TextBox1.Text.ToUpperEndSub```解析：在命令按鈕的點(diǎn)擊事件中，獲取文本框中的文本，并使用ToUpper方法將其轉(zhuǎn)換為大寫(xiě)，然后設(shè)置標(biāo)簽的Caption屬性顯示轉(zhuǎn)換后的文本。2.```vbPrivateSubCommandButton1_Click()IfList1.ListIndex<>-1ThenList1.Remove(List1.ListIndex)EndIfEndSub```解析：在命令按鈕的點(diǎn)擊事件中，首先判斷列表框是否有選中項(xiàng)（ListIndex不為-1），如果有，則使用Remove方法刪除選中的項(xiàng)。3.```vbPrivateSubCommandButton1_Click()DimNAsIntegerDimIsPrimeAsBooleanN=Val(TextBox1.Text)IfN<=1ThenLabel1.Caption="否"ExitSubEndIfIsPrime=TrueForI=2ToSqr(N)IfNModI=0ThenIsPrime=FalseExitForEndIfNextIIfIsPrimeThenLabel1.