計(jì)算機(jī)二級(jí)VisualBasic程序設(shè)計(jì)專項(xiàng)訓(xùn)練試卷詳解版考試時(shí)間：______分鐘總分：______分姓名：______一、選擇題1.下列哪個(gè)不是VisualBasic的基本數(shù)據(jù)類型？A.IntegerB.SingleC.StringD.Array2.在VisualBasic中，要判斷兩個(gè)字符串是否完全相等，應(yīng)使用的運(yùn)算符是？A.=B.<>C.LikeD.==3.以下哪個(gè)語句用于從當(dāng)前行開始輸入數(shù)據(jù)到文本框Text1中？A.Text1.Text=InputBox("請(qǐng)輸入數(shù)據(jù)")B.Text1.Text=Input("請(qǐng)輸入數(shù)據(jù)")C.Text1.Text=Val(InputBox("請(qǐng)輸入數(shù)據(jù)"))D.Text1.Text=GetInput("請(qǐng)輸入數(shù)據(jù)")4.在VisualBasic程序中，以下哪個(gè)是注釋語句？A.RemThisisacommentB.'ThisisacommentC.BothAandBD.NeitherAnorB5.下列關(guān)于VisualBasic程序的敘述，正確的是？A.程序必須從一個(gè)Sub過程開始執(zhí)行B.程序可以同時(shí)執(zhí)行多個(gè)Sub過程C.模塊級(jí)變量必須用Dim語句聲明D.公共變量可以在所有模塊中被訪問6.在窗體上畫一個(gè)命令按鈕，然后編寫如下代碼：PrivateSubCommand1_Click()x=5Dox=x-1LoopWhilex>0PrintxEndSub運(yùn)行程序，輸出結(jié)果是？A.0B.1C.-1D.57.在VisualBasic中，若要使文本框只能輸入數(shù)字，可以使用該控件的哪個(gè)屬性？A.LockedB.MultiLineC.MaxLengthD.ScrollBars8.以下哪個(gè)控件通常用于顯示多行文本，且用戶可以編輯其中的內(nèi)容？A.LabelB.TextBoxC.ListBoxD.ComboBox9.在VisualBasic中，用于打開一個(gè)文件進(jìn)行讀寫的語句是？A.OpenB.CloseC.WriteD.Read10.下列哪個(gè)控件提供了一種在屏幕上顯示圖形的方法？A.TimerB.ImageC.PictureD.Shape11.在VisualBasic中，要臨時(shí)停止當(dāng)前過程的執(zhí)行，并執(zhí)行同一個(gè)過程中的下一個(gè)可執(zhí)行語句，應(yīng)使用哪個(gè)語句？A.StopB.EndC.ResumeD.Exit12.以下哪個(gè)語句用于關(guān)閉一個(gè)已打開的文件？A.Close#1B.Close(1)C.EndFile#1D.FileClose#113.若要在VisualBasic程序中添加一個(gè)菜單項(xiàng)，應(yīng)使用哪個(gè)菜單編輯器？A.工具欄B.屬性窗口C.菜單編輯器D.窗體設(shè)計(jì)器14.在VisualBasic中，以下哪個(gè)是模塊級(jí)變量的聲明方式？A.DimxAsIntegerB.PublicxAsIntegerC.PrivatexAsIntegerD.Alloftheabove15.下列關(guān)于VisualBasic面向?qū)ο缶幊痰臄⑹?，錯(cuò)誤的是？A.對(duì)象是代碼和數(shù)據(jù)的集合B.屬性是描述對(duì)象特征的數(shù)據(jù)C.方法是對(duì)象可以執(zhí)行的操作D.對(duì)象之間通過消息傳遞進(jìn)行通信二、填空題1.VisualBasic中的`Mod`運(yùn)算符用于計(jì)算兩個(gè)數(shù)相除的______。2.若要使一個(gè)文本框控件中的文本不可編輯，應(yīng)將其`Locked`屬性設(shè)置為______。3.在VisualBasic中，使用`For`循環(huán)語句時(shí)，循環(huán)變量必須先聲明，通常使用______語句。4.要在窗體上顯示一個(gè)水平滾動(dòng)條，需要將控件的`Style`屬性設(shè)置為______。5.語句`Print"ABC","DEF"`在輸出時(shí)，兩個(gè)字符串之間會(huì)插入一個(gè)______。6.在過程參數(shù)傳遞中，若使用`ByVal`關(guān)鍵字聲明參數(shù)，表示參數(shù)按______傳遞。7.要在程序中實(shí)現(xiàn)定時(shí)執(zhí)行某個(gè)操作，通常使用______控件。8.讀取隨機(jī)文件中第10條記錄，可以使用語句`Get#1,10,RecordVar`，其中`RecordVar`應(yīng)該是一個(gè)______類型的變量。9.若要使一個(gè)圖片框控件顯示當(dāng)前目錄下的名為`image.jpg`的圖片，可以使用語句`Picture1.Picture=LoadPicture("______")`。10.在VisualBasic中，用于聲明全局變量（在標(biāo)準(zhǔn)模塊中）的關(guān)鍵字是______。三、程序閱讀理解題閱讀以下VisualBasic程序代碼，回答問題：```vbPrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDimsumAsIntegersum=0Fori=1To5Forj=1Toisum=sum+jNextjNextiPrint"Sum=";sumEndSub```請(qǐng)回答：1.該程序段主要實(shí)現(xiàn)了什么功能？2.變量`sum`在程序中起什么作用？3.程序運(yùn)行結(jié)束后，輸出的`sum`值是多少？四、程序設(shè)計(jì)題設(shè)計(jì)一個(gè)簡單的VB程序，實(shí)現(xiàn)以下功能：1.界面包含一個(gè)標(biāo)簽（Label1），用于顯示提示信息“請(qǐng)輸入兩個(gè)數(shù)：”。包含兩個(gè)文本框（Text1和Text2），用于輸入兩個(gè)整數(shù)。包含一個(gè)命令按鈕（Command1），標(biāo)簽（Label2）用于顯示結(jié)果。2.當(dāng)用戶在Text1和Text2中輸入兩個(gè)整數(shù)后，單擊Command1按鈕，程序計(jì)算這兩個(gè)數(shù)的和，并將結(jié)果顯示在Label2中。3.如果用戶沒有輸入有效的整數(shù)，或者只輸入了一個(gè)數(shù)，程序應(yīng)在Label2中顯示“輸入錯(cuò)誤”。請(qǐng)編寫實(shí)現(xiàn)上述功能的VB代碼。試卷答案一、選擇題1.D2.D3.B4.C5.C6.B7.C8.B9.A10.C11.C12.D13.C14.D15.D二、填空題1.余數(shù)2.True3.Dim4.15.空格6.值7.Timer8.Random9..\image.jpg10.Public三、程序閱讀理解題1.該程序段使用嵌套循環(huán)計(jì)算一個(gè)特定的數(shù)值，具體來說是計(jì)算1+2+3+4+5的和，即求1到5的自然數(shù)之和。2.變量`sum`用于累加循環(huán)中計(jì)算得到的值，最終存儲(chǔ)計(jì)算的總和。3.程序運(yùn)行結(jié)束后，輸出的`sum`值是15。四、程序設(shè)計(jì)題```vbPrivateSubCommand1_Click()Dimnum1AsIntegerDimnum2AsIntegerDimresultAsIntegerDiminputValidAsBooleaninputValid=True'嘗試將文本框內(nèi)容轉(zhuǎn)換為整數(shù)IfIsNumeric(Text1.Text)Thennum1=Val(Text1.Text)ElseinputValid=FalseEndIfIfIsNumeric(Text2.Text)Thennum2=Val(Text2.Text)ElseinputValid=FalseEndIf'判斷輸入是否有效IfinputValidThenresult=num1+num2Label2.Caption="和="&resultElseLabel2.Caption="輸入錯(cuò)誤"EndIfEndSub```解析思路：1.首先聲明必要的變量：`num1`,`num2`存儲(chǔ)輸入的數(shù)，`result`存儲(chǔ)結(jié)果，`inputValid`標(biāo)記輸入是否有效。2.使用`IsNumeric`函數(shù)檢查`Text1.Text`和`Text2.Text`是否可以