全國(guó)計(jì)算機(jī)等級(jí)二級(jí)vb考試試題

2002年9月二級(jí)VB(1)在設(shè)計(jì)階段，當(dāng)雙擊窗體上的某個(gè)控件時(shí)，所打開的窗口是A)工程資源管理器窗口 B)工具箱窗口 C)代碼窗口 D)屬性窗口(2)以下敘述中正確的是A)窗體的Name屬性指定窗體的名稱，用來(lái)標(biāo)識(shí)一個(gè)窗體B)窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本C)可以在運(yùn)行期間改變對(duì)象的Name屬性的值D)對(duì)象的Name屬性值可以為空(3)剛建立一個(gè)新的標(biāo)準(zhǔn)EXE工程后，不在工具箱中出現(xiàn)的控件是A)單選按鈕B)圖片框C)通用對(duì)話框 D)文本框(31)以下敘述中錯(cuò)誤的是A)一個(gè)工程中只能有一個(gè)SubMain過(guò)程B)窗體的Show方法的作用是將指定的窗體裝入內(nèi)存并顯示該窗體C)窗體的Hide方法和Unload方法的作用完全相同D)若工程文件中有多個(gè)窗體，可以根據(jù)需要指定一個(gè)窗體為啟動(dòng)窗體(32)以下敘述中錯(cuò)誤的是A)一個(gè)工程中可以包含多個(gè)窗體文件B)在一個(gè)窗體文件中用Private定義的通用過(guò)程能被其他窗體調(diào)用C)在設(shè)計(jì)VB程序時(shí)，窗體、標(biāo)準(zhǔn)模塊、類模塊等需要分別保存為不同類型的磁盤文件D)全局變量必須在標(biāo)準(zhǔn)模塊中定義2003年4月二級(jí)VB(1)以下不能在"工程資源管理器”窗口中列出的文件類型是A).BasB).ResC).FrmD).Ocx(2)以下關(guān)于窗體的描述中，錯(cuò)誤的是A)執(zhí)行UnloadForrnl語(yǔ)句后，窗體Forml消失，但仍在內(nèi)存中B)窗體的Load事件在加載窗體時(shí)發(fā)生C)當(dāng)窗體的Enabled屬性為False時(shí)，通過(guò)鼠標(biāo)和鍵盤對(duì)窗體的操作都被禁止D)窗體的Height、Width屬性用于設(shè)置窗體的高和寬2003年9月二級(jí)VB(1)以下敘述中錯(cuò)誤的是VisualBasic是事件驅(qū)動(dòng)型可視化編程工具VisualBasic應(yīng)用程序不具有明顯的開始和結(jié)束語(yǔ)句VisualBasic工具箱中的所有控件都具有寬度(Width)和高度(Height)屬性VisualBasic中控件的某些屬性只能在運(yùn)行時(shí)設(shè)置(2)以下敘述中錯(cuò)誤的是A)在工程資源管理器窗口中只能包含一個(gè)工程文件及屬于該工程的其他文件B)以.BAS為擴(kuò)展名的文件是標(biāo)準(zhǔn)模塊文件C)窗體文件包含該窗體及其控件的屬性D)一個(gè)工程中可以含有多個(gè)標(biāo)準(zhǔn)模塊文件(4)以下不屬于VisualBasic系統(tǒng)的文件類型是A).FrmB).BatC).VbgD).Vbp(5)以下敘述中錯(cuò)誤的是A)打開一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件B)保存VisualBasic程序時(shí)，應(yīng)分別保存窗體文件及工程文件C)VisualBasic應(yīng)用程序只能以解釋方式執(zhí)行D)事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)(13)如果一個(gè)工程含有多個(gè)窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯(cuò)誤的是A）如果工程中含有SubMain過(guò)程，則程序一定首先執(zhí)行該過(guò)程B）不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動(dòng)模塊C）用Hide方法只是隱藏一個(gè)窗體，不能從內(nèi)存中清除該窗體D）任何時(shí)刻最多只有一個(gè)窗體是活動(dòng)窗體2005年9月二級(jí)VB（11）假定一個(gè)VisualBasic應(yīng)用程序由一個(gè)窗體模塊和一個(gè)標(biāo)準(zhǔn)模塊構(gòu)成。為了保存該應(yīng)用程序，以下正確的操作是A）只保存窗體模塊文件B）分別保存窗體模塊、標(biāo)準(zhǔn)模塊和工程文件C）只保存窗體模塊和標(biāo)準(zhǔn)模塊文件D）只保存工程文件（12）為了清除窗體上的一個(gè)控件，下列正確的操作是A）按回車鍵B）按Esc鍵C）選擇（單擊）要清除的控件，然后按Del鍵D）選擇（單擊）耍清除的控件，然后按回車鍵（13）以下敘述中錯(cuò)誤的是A）打開一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件B）當(dāng)程序運(yùn)行時(shí)，雙擊一個(gè)窗體，則觸發(fā)該窗體的Dblclick事件C）VisualBasic應(yīng)用程序只能以解釋方式執(zhí)行D）事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)（33）如果一個(gè)工程含有多個(gè)窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯(cuò)誤的是A）任何時(shí)刻最多只有一個(gè)窗體是活動(dòng)窗體B）不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動(dòng)模塊C）用Hide方法只是隱藏?個(gè)窗體，不能從內(nèi)存中清除該窗體D）如果工程中含有SubMain過(guò)程，則程序一定首先執(zhí)行該過(guò)程二、常用控件2002年9月二級(jí)VB（11）以下能夠觸發(fā)文本框Change事件的操作是A）文本框失去焦點(diǎn) B）文本框獲得焦點(diǎn)C）設(shè)置文本框的焦點(diǎn) D）改變文本框的內(nèi)容（12）在窗體上有一個(gè)文本框控件，名稱為Txttime：一個(gè)計(jì)時(shí)器控件，名稱為TimerL要求每?一秒鐘在文本框中顯示?次當(dāng)前的時(shí)間。程序?yàn)椋篜rivateSubTimer1 （）Txttime.Text=TimeEndSub在下劃線上應(yīng)填入的內(nèi)容是A）EnabledB）VisibleC）Interval D）Timer（13）在窗體上畫兩個(gè)單選按鈕，名稱分別為Optionl、Option2,標(biāo)題分別為“宋體”和“黑體”;一個(gè)復(fù)選框，名稱為Check1,標(biāo)題為“粗體”：一個(gè)文本框，名稱為Textl,Text屬性為“改變文字字體”。要求程序運(yùn)行時(shí)，“宋體”單選按鈕和“粗體”復(fù)選框被選中（窗體外觀如下圖），則能夠?qū)崿F(xiàn)上述要求的語(yǔ)句序列是

Option!.Value=TrueCheck1.Value=FalseOption1.Value=TrucOption!.Value=TrueCheck1.Value=FalseOption1.Value=TrucCheckl.Value=TrueC)Option2.Value=False D)Option1.Value=TrueCheck1.Value=True Checkl.Value=l(14)為了在按下Esc鍵時(shí)執(zhí)行某個(gè)命令按鈕的Click事件過(guò)程，需要把該命令按鈕的一個(gè)屬性設(shè)置為True,這個(gè)屬性是A)Value B)DefaultC)CancelD)Enabled(16)圖像框有一個(gè)屬性，可以自動(dòng)調(diào)整圖形的大小，以適應(yīng)圖像框的尺寸，這個(gè)屬性是A)AutosizeB)StretchC)AutoredrawD)Appearance(26)以下敘述中錯(cuò)誤的是A)在Keyup和Keydown事件過(guò)程中，從鍵盤上輸入A或a被視作相同的字母(即具有相同的Keycode)B)在Keyup和Keydown事件過(guò)程中，將鍵盤上的“1”和右側(cè)小鍵盤上的力”視作不同的數(shù)字(具有不同的Keycode)Keypress事件中不能識(shí)別鍵盤上某個(gè)鍵的按下與釋放Keypress事件中可以識(shí)別鍵盤上某個(gè)鍵的按下與釋放(27)以下敘述中錯(cuò)誤的是A)在同?窗體的菜單項(xiàng)中，不允許出現(xiàn)標(biāo)題相同的菜單項(xiàng)B)在菜單的標(biāo)題欄中，所引導(dǎo)的字母指明了訪問(wèn)該菜單項(xiàng)的訪問(wèn)鍵C)程序運(yùn)行過(guò)程中，可以重新設(shè)置菜單的Visible屬性D)彈出式菜單也在菜單編輯器中定義(28)設(shè)在菜單編輯器中定義了一個(gè)菜單項(xiàng)，名為Menul。為了在運(yùn)行時(shí)隱藏該菜單項(xiàng)，應(yīng)使用的語(yǔ)句是A)Menu1.Enabled=TrueB)Munu1.Enabled=FalseC)Menu1.Visible=TrueD)Menu1.Visible=False(29)以下敘述中錯(cuò)誤的是A)在程序運(yùn)行時(shí)，通用對(duì)話框控件是不可見的B)在同一個(gè)程序中，用不同的方法(如Showopen或Showsave等)打開的通用對(duì)話框具有不同的作用C)調(diào)用通用對(duì)話框控件的Showopen方法，可以直接打開在該通用對(duì)話框中指定的文件D)調(diào)用通用對(duì)話框控件的Showcolor方法，可以打開顏色對(duì)話框(30)在用通用對(duì)話框控件建立“打開”或“保存”文件對(duì)話框時(shí)，如果需要指定文件列表框所列出的文件類型是文本文件(即.Txt文件)，則正確的描述格式是A)“Text(.Txt)|*.Txt)“ B)”文本文件(.Txt)|(.Txt)”C)“Text(.Txt)||(*.Txt)” D)“Text(.Txt)(*.Txt)”2003年4月二級(jí)VB(9)表示滾動(dòng)條控件取值范圍最大值的屬性是MaxB)LargechangeC)ValueD)Max-Min(10)在窗體上畫一個(gè)名稱為L(zhǎng)istl的列表框，一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽。列表框中顯示若干城市的名稱。當(dāng)單擊列表框中的某個(gè)城市名時(shí)，在標(biāo)簽中顯示選中城市的名稱。下列能正確實(shí)現(xiàn)上述功能的程序是A)PrivateSubListl_Click() B)PrivateSubListl_Click()

Label1.Caption=List1.ListindexEndSubLabel1.NameLabel1.Caption=List1.ListindexEndSubLabel1.Name=Listl.ListindexEndSubPrivateSubListl_Click()Label1.Name=Listl.TextEndSubPrivateSubListl_Click()Label1.Caption=Listl.TextEndSub（12）以下關(guān)于菜單的敘述中，錯(cuò)誤的是A）在程序運(yùn)行過(guò)程中可以增加或減少菜單項(xiàng)B）如果把一個(gè)菜單項(xiàng)的Enabled屬性設(shè)置為False,則可刪除該菜單項(xiàng)C）彈出式菜單在菜單編輯器中設(shè)計(jì)D）利用控件數(shù)組可以實(shí)現(xiàn)菜單項(xiàng)的增加或減少（13）在窗體上畫三個(gè)單選按鈕，組成一個(gè)名為Chkoption的控件數(shù)組。用于標(biāo)識(shí)各個(gè)控件數(shù)組元素的參數(shù)是A）TagB）IndexC）ListindexD）Name（19）在窗體上畫一個(gè)名稱為Txta的文本框，然后編寫如下的事件過(guò)程：PrivateSubTxta_Kcypress(KcyasciiAsInteger)EndSub若焦點(diǎn)位于文本框中，則能夠觸發(fā)Keypress事件的操作是A)單擊鼠標(biāo) B)雙擊文本框C)鼠標(biāo)滑過(guò)文本框 D)按下鍵盤上的某個(gè)鍵(21)假定有如下事件過(guò)程：PrivateSubForm_Mousedown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupmenuPopfbrmEndIfEndSub則以下描述中錯(cuò)誤的是A)該過(guò)程的功能是彈出一個(gè)菜單Popform是在菜單編輯器中定義的彈出式菜單的名稱C)參數(shù)X、Y指明鼠標(biāo)的當(dāng)前位置D)Button=2表示按卜的是鼠標(biāo)左鍵(30)在窗體上畫一個(gè)名稱為Commondialogl的通用對(duì)話框，一個(gè)名稱為Command1的命令按鈕。要求單擊命令按鈕時(shí)，打開一個(gè)保存文件的通用對(duì)話框。該窗口的標(biāo)題為“Save”，缺省文件名為“Saveflle”，在“文件類型”欄中顯示*.Txt。則能夠滿足上述要求的程序是PrivateSubCommand1_Click()Commondialog1.Filename=HSavefileMCommondialog1.Filter="AllFiles|*.*|(*.Txt)|*.Txt|(*.Doc)|*.DocHCommondialog1.Filterindex=2Commondialog1.Dialogtitle="Save”Commondialog1.Action=2EndSubPrivateSubCommandl_Click()Commondialog1.Filename=HSavefileHCommondialogl.Filter=nAllFiles|*.*|(*.Txt)|*.Txt|(*.Doc)|*.DocnCommondialogl.Filterindex=1Commondialog1.Dialogtitle="Save”Commondialog1.Action=2EndSubPrivateSubCommandl_Click()Commondialog1.Filename="Save”Commondialog1.Filter="AHFiles|*.*|(*.Txt)|*.Txt|(*.Doc)|*.DocMCommondialog1.Filterindex=2Commondialog1.Dialogtitle="Savefile"Commondialog1.Action=2EndSubPrivateSubCommandl_Click()Commondialog1.Filename="SavefileMCommondialog1.Filter=MA11Files|*.*|(*.Txt)|*.Txt|(*.Doc)|*.DocMCommondialog1.Filterindex=1Commondialog1.Dialogtitle="Save"Commondialog1.Action=1EndSub2003年9月二級(jí)VB(3)以下敘述中錯(cuò)誤的是A)雙擊鼠標(biāo)可以觸發(fā)Dblclick事件B)窗體或控件的事件的名稱可以由編程人員確定C)移動(dòng)鼠標(biāo)時(shí)，會(huì)觸發(fā)Mousemove事件D)控件的名稱可以由編程人員設(shè)定(8)設(shè)窗體上有一個(gè)列表框控件List1,且其中含有若干列表項(xiàng)。則以下能表示當(dāng)前被選中的列表項(xiàng)內(nèi)容的是A)Listl.ListB)List!.ListindexC)Listl.IndexD)Listl.Text(9)程序運(yùn)行后，在窗體上單擊鼠標(biāo)，此時(shí)窗體不會(huì)接收到的事件是MousedownB)MouseupC)LoadD)Click(11)如果要改變窗體的標(biāo)題，則需要設(shè)置的屬性是A)CaptionB)NameC)BackcolorD)Borderstyle(14)窗體的Mousedown事件過(guò)程FormMousedown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)有4個(gè)參數(shù)，關(guān)于這些參數(shù)，正確的描述是A)通過(guò)Button參數(shù)判定當(dāng)前按下的是哪一個(gè)鼠標(biāo)鍵Shift參數(shù)只能用來(lái)確定是否按下Shift鍵Shift參數(shù)只能用來(lái)確定是否按下Alt和Ctrl鍵D)參數(shù)X,Y用來(lái)設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo)(15)設(shè)組合框Combol中有3個(gè)項(xiàng)目，則以下能刪除最后一項(xiàng)的語(yǔ)句是Combol.RemoveitemTextCombol.Removeitem2Combol.Removeitem3Combol.RemoveitemCombol.Listcount(16)以下關(guān)于焦點(diǎn)的敘述中，錯(cuò)誤的是A)如果文本框的Tabstop屬性為False,則不能接收從鍵盤上輸入的數(shù)據(jù)B)當(dāng)文本框失去焦點(diǎn)時(shí)，觸發(fā)Lostfocus事件C)當(dāng)文本框的Enabled屬性為False時(shí)，其Tab順序不起作用D)可以用Tabindex屬性改變Tab順序(17)如果要在菜單中添加一個(gè)分隔線，則應(yīng)將其Caption屬性設(shè)置為A)=B)*C)&D)-(26)在窗體上畫兩個(gè)滾動(dòng)條，名稱分別為Hscrolll、Hscroll2；六個(gè)標(biāo)簽,名稱分別為L(zhǎng)abell、Label2>Label3>Label4>Label5,Label6,其中標(biāo)簽Label4"Label6分別顯示"A"、"B"、〃A*B”等文字信息，標(biāo)簽Labell、Label2分別顯示其右側(cè)的滾動(dòng)條的數(shù)值，Label3顯示A*B的計(jì)算結(jié)果。如圖所示。當(dāng)移動(dòng)滾動(dòng)框時(shí)，在相應(yīng)的標(biāo)簽中顯示滾動(dòng)條的值。當(dāng)單擊命令按鈕”計(jì)算〃時(shí)，對(duì)標(biāo)簽Labell、Label2中顯示的兩個(gè)值求積，并將結(jié)果顯示在Label3中。以下不能實(shí)現(xiàn)上述功能的事件過(guò)程是PrivateSubCommandl_Click()Label3.Caption=Str(Vai(Label1.Caption)*Val(Label2.Caption))EndSubPrivateSubCommand1Click()Label3.Caption=Hscrolll.Value*Hscroll2.ValueEndSubPrivateSubCommandlClick()Label3.Caption=Hscrolll*Hscroll2EndSubPrivateSubCommand1Click()Labe13.Caption=Hscrolll.Text*Hscroll2.TextEndSub(28)在窗體上畫一個(gè)名稱為Textl的文本框，并編寫如下程序：PrivateSubFormLoad()ShowTextl.Text=Textl.SetfocusEndSubPrivateSubFormMouseup(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Print”程序設(shè)計(jì)〃EndSubPrivateSubTextl_Keydown(KeycodeAsInteger,ShiftAsInteger)Print"VisualBasic”;EndSub程序運(yùn)行后，如果按"A"鍵，然后單擊窗體，則在窗體上顯示的內(nèi)容是A)VisualBasicB)程序設(shè)計(jì)C)A程序設(shè)計(jì) D)VisualBasic程序設(shè)計(jì)2004年4月二級(jí)VB(1)在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：PrivateSubCommand1_Click()Move500,500EndSub程序運(yùn)行后，單擊命令按鈕，執(zhí)行的操作為A)命令按鈕移動(dòng)到距窗體左邊界、上邊界各500的位置B)窗體移動(dòng)到距屏幕左邊界、上邊界各500的位置C)命令按鈕向左、上方向各移動(dòng)500D)窗體向左、上方向各移動(dòng)500(2)在窗體有若干控件，其中有一個(gè)名稱為Textl的文本框。影響Textl的Tab順序的屬性是A)TabstopB)EnabledC)VisibleD)Tabindex(4)在窗體上畫一個(gè)名稱為L(zhǎng)istl的列表框，為了對(duì)列表框中的每個(gè)項(xiàng)目都能進(jìn)行處理，應(yīng)使用的循環(huán)語(yǔ)句為For1=0ToListl.Listcount-1NextFor1=0ToListcount-1NextFor1=1ToListl.ListcountNextFor1=1ToListcountNext(6)以下關(guān)于圖片框控件的說(shuō)法中，錯(cuò)誤的是A)可以通過(guò)Print方法在圖片框中輸出文本B)清空?qǐng)D片框控件中圖形的方法之一是加載一個(gè)空?qǐng)D形C)圖片框控件可以作為容器使用D)用Stretch屬性可以自動(dòng)調(diào)整圖片框中圖形的大小(8)以下敘述中錯(cuò)誤的是A)下拉式菜單和彈出式菜單都用菜單編輯器建立B)在多窗體程序中，每個(gè)窗體都可以建立自己的菜單系統(tǒng)C)除分隔線外，所有菜單項(xiàng)都能接收Click事件D)如果把一個(gè)菜單項(xiàng)的Enabled屬性設(shè)置為False,則該菜單項(xiàng)不可見(10)以下敘述中錯(cuò)誤的是一個(gè)工程可以包括多種類型的文件VisualBasic應(yīng)用程序既能以編譯方式執(zhí)行，也能以解釋方式執(zhí)行C)程序運(yùn)行后，在內(nèi)存中只能駐留一個(gè)窗體D)對(duì)于事件驅(qū)動(dòng)型應(yīng)用程序，每次運(yùn)行時(shí)的執(zhí)行順序可以不一樣(13)確定一個(gè)控件在窗體上的位置的屬性是A)Width和HeightB)Width或HeightTop和LeftD)Top或Left(14)在窗體上畫一個(gè)名稱為Textl的文本框和一個(gè)名稱為Commandl的命令按鈕，然后編寫如下事件過(guò)程PrivateSubCommandl_Click()Textl,Text=MVisuarMe.Textl="Basic”Textl="Program"EndSub程序運(yùn)行后，如果單擊命令按鈕，則在文本框中顯示的是VisualB)BasicC)ProgramD)出錯(cuò)(17)在窗體上畫一個(gè)文本框、一個(gè)標(biāo)簽和一個(gè)命令按鈕，其名稱分別為Textl、Label1和Command1,然后編寫如下兩個(gè)事件過(guò)程：PrivateSubCommand1_Click()Strtext=Inputbox(”請(qǐng)輸入”)Text1.Text=StrtextEndSubPrivateSubTextl_Change()Label).Caption=Right(Trim(Textl.Text),3)EndSub程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中輸入abcdef,則在標(biāo)簽中顯示的內(nèi)容是A)空B)abcdefC)abcD)def(22)在窗體上畫一個(gè)名稱為Textl的文本框，要求文本框只能接收大寫字母的輸入。以下能實(shí)現(xiàn)該操作的事件過(guò)程是A)PrivateSubTextl_Keypress(KeyasciiAsInteger)IfKeyascii<65OrKeyascii>90ThenMsgbox"請(qǐng)輸入大寫字母"Keyascii=0EndIfEndSubPrivateSubText1_Keydown(KeycodeAsInteger,ShiftAsInteger)IfKeycode<65OrKeycode>90ThenMsgbox”請(qǐng)輸入大寫字母”Keycode=0EndIfEndSubPrivateSubTextl_Mousedown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfAsc(Textl.Text)<65OrAsc(Textl,Text)>90ThenMsgbox”請(qǐng)輸入大寫字母”EndIfEndSubPrivateSubTextl_Change()IfAsc(Textl.Text)>64AndAsc(Textl.Text)<91ThenMsgbox”請(qǐng)輸入大寫字母”EndIfEndSub2004年9月二級(jí)VB(1)設(shè)窗體上有一個(gè)文本框，名稱為Textl,程序運(yùn)行后，要求該文本框不能接受鍵盤輸入，但能輸出信息，以下屬性設(shè)置正確的是：A)Textl.Maxiength=O B)Text1.Enabled=FalseC)Textl.Visible=False D)Textl.Width=0(2)以下能在窗體Forml的標(biāo)題欄中顯示“Visualbasic窗體”的語(yǔ)句是Forml.Name="Visualbasic窗體”Forml.Title=*Visualbasic窗體”Forml.Caption="Visualbasic窗體〃Forml.Text=*Visualbasic窗體”(3)在窗體上畫一個(gè)名稱為Textl的文本框，然后畫一個(gè)名稱為HscroHl的滾動(dòng)條，其Min和Max屬性分別為。和100。程序運(yùn)行后，如果移動(dòng)滾動(dòng)框，則在文本框中顯示滾動(dòng)條的當(dāng)前值，如圖所示：

以下能實(shí)現(xiàn)上述操作的程序段是PrivateSubHscroll_Change0以下能實(shí)現(xiàn)上述操作的程序段是PrivateSubHscroll_Change0Textl.Text=Hscrolll.ValueEndSubPrivateSubHscroll_Click()Textl.Text=Hscrolll.ValueEndSubPrivateSubHscroll_Change()Textl.Text=Hscroll.CaptionEndSubPrivateSubHscroll_Click()Textl.Text=Hscroll.CaptionEndSub(4)設(shè)菜單中有一個(gè)菜單項(xiàng)為"Open"。若要為該菜單命令設(shè)計(jì)訪問(wèn)鍵，即按下Alt及字母0時(shí)，能夠執(zhí)行"Open”命令,則在菜單編輯器中設(shè)置“Open”命令的方式是A)把Caption屬性設(shè)置為&0pen 0把Name屬性設(shè)置為&0penB)把Caption屬性設(shè)置為O&Pen D)把Name屬性設(shè)置為O&Pen(7)在窗體上畫一個(gè)名稱為Timer1的計(jì)時(shí)器控件，要求每隔0.5秒發(fā)生一次計(jì)時(shí)器事件，則以下正確的屬性設(shè)置語(yǔ)句是A)Timerl.Interval=O.5B)Timerl.Interval=5(11)以下敘述中錯(cuò)誤的是A)事件過(guò)程是響應(yīng)特定事件的一段程序B)不同的對(duì)象可以具有相同名稱的方法(11)以下敘述中錯(cuò)誤的是A)事件過(guò)程是響應(yīng)特定事件的一段程序B)不同的對(duì)象可以具有相同名稱的方法C)對(duì)象的方法是執(zhí)行指定操作的過(guò)程D)對(duì)象事件的名稱可以由編程者指定A)用Hide方法不但可以隱藏窗體，而且能清除內(nèi)存中的窗體B)在多重窗體程序中，各窗體的菜單是彼此獨(dú)立的C)在多重窗體程序中，可以根據(jù)需要指定啟動(dòng)窗體D)在多重窗體程序中，需要單獨(dú)保存每個(gè)窗體(13)當(dāng)一個(gè)復(fù)選框被選中時(shí)，它的Value屬性的值是A)3B)2C)1D)0(18)以下敘述中錯(cuò)誤的是A)在Keypress事件過(guò)程中不能識(shí)別鍵盤的按下與釋放B)在Keypress事件過(guò)程中不能識(shí)別回車鍵0在Keydown和Keyup事件過(guò)程中，將鍵盤輸入的"A"和"a"視作相同的字母D)在Keydown和Keyup事件過(guò)程中，從大鍵盤上輸入的"1”和從右側(cè)小鍵盤上輸入的"1”被視作不同的字符(20)在窗體上畫一個(gè)名稱為Commanddialogl的通用對(duì)話框，一個(gè)名稱為Command1的命令按鈕。然后編寫如下事件過(guò)程：PrivateSubCommand1Click()Commondialogl.Filename=””Commondialogl.Filter="AllFile|*.*|(*.Doc)I*.Doc|(*.Txt)|*.Txt*Commondialogl.Filterindex=2Commondialogl.Dialogtitle=/zVbtest/zCommondialogl.Action=lEndSub對(duì)于這個(gè)程序，以下敘述中錯(cuò)誤的是A)該對(duì)話框被設(shè)置為“打開”對(duì)話框B)在該對(duì)話框中指定的默認(rèn)文件名為空C)該對(duì)話框的標(biāo)題為VbtestD)在該對(duì)話框中指定的默認(rèn)文件類型為文本文件(*.Txt)(27)在窗體上畫?個(gè)名稱為L(zhǎng)abel1、標(biāo)題為aVisualBasic考試”的標(biāo)簽，兩個(gè)名稱分別為Commandl和Command2、標(biāo)題分別為“開始”和“停止”的命令按鈕，然后畫一個(gè)名稱為Timerl的計(jì)時(shí)器控件，并把其Interval屬性設(shè)置為500,如圖所示。編寫如下程序：PrivateSubFormLoad()Timerl.Enabled二FalseEndSubPrivateSubCommandIClick()Timerl.Enabled=TrueEndSubPrivateSubTimerlTimer()IfLabell.Left<WidthThenLabel1.Left=Label1.Left+20ElseLabel1.Left=0EndIfEndSub程序運(yùn)行后，單擊“開始”按鈕，標(biāo)簽在窗體中移動(dòng)。對(duì)于這個(gè)程序，以下敘述中錯(cuò)誤的是A)標(biāo)簽的移動(dòng)方向?yàn)樽杂蚁蜃驜)單擊“停止”按鈕后再單擊“開始”按鈕，標(biāo)簽從停止的位置繼續(xù)移動(dòng)0當(dāng)標(biāo)簽全部移出窗體后，將從窗體的另一端出現(xiàn)并重新移動(dòng)D)標(biāo)簽按指定的時(shí)間時(shí)隔移動(dòng)2005年4月二級(jí)VB(11)在窗體(名稱為Fbrm1)上畫一個(gè)名稱為Textl的文本框和一個(gè)名稱為Commandl的命令按鈕，然后編寫一個(gè)事件過(guò)程。程序運(yùn)行以后，如果在文本框中輸入一個(gè)字符，則把命令按鈕的標(biāo)題設(shè)置為“計(jì)算機(jī)等級(jí)考試:以下能實(shí)現(xiàn)上述操作的事件過(guò)程是：PrivateSubIext1_Change()Commandl.Caption="計(jì)算機(jī)等級(jí)考試”EndSubPrivateSubCommand1_aick()Caption="計(jì)算機(jī)等級(jí)考試”EndSubPrivateSubForml_Click()Text1.Caption=Mi+算機(jī)等級(jí)考試”EndSubPrivateSubCommand1_aick()Textl.Text=''計(jì)算機(jī)等級(jí)考試”EndSub(16)為了使命令按鈕(名稱為Commandl)右移200,應(yīng)使用的語(yǔ)句是A)Command1.Move-200Command1.Move200Commandl.Left=Command1.Left+200Commandl.Left=Command1.Left-200(18)在窗體上畫一個(gè)文本框和一個(gè)計(jì)時(shí)器控件，名稱分別為Textl和Timeri,在屬性窗口中把計(jì)時(shí)器的Interval屬性設(shè)置為1000,Enabled屬性設(shè)置為False,程序運(yùn)行后，如果單擊命令按鈕，則每隔?秒鐘在文本框中顯示一次當(dāng)前的時(shí)間。以下是實(shí)現(xiàn)上述操作的程序：PrivateSubCommand1_Click()Timer1. EndSubPrivateSubTimerl_Timer()Textl.Text=TimeEndSub在處應(yīng)填入的內(nèi)容是A)Enabled=TrueB)Enabled=FalseC)Visible=TrueD)Visible=False(19)假定在圖片框Picture1中裝入了一個(gè)圖形，為了清除該圖形(不刪除圖片框)，應(yīng)采用的正確方法是：A)選擇圖片框，然后按Del鍵B)執(zhí)行語(yǔ)句Picture1.Picture=Loadpicture(t€^^)C)執(zhí)行語(yǔ)句Picturel.Picture=^^^^D)選擇圖片框，在屬性窗口中選擇Picture屬性，然后按回車鍵(20)在窗體上畫一個(gè)Listl的列表框，一個(gè)名稱為L(zhǎng)abell的標(biāo)簽，列表框中顯示若干個(gè)項(xiàng)目，當(dāng)單擊列表框中的某個(gè)項(xiàng)目時(shí)，在標(biāo)簽中顯示被選中的項(xiàng)目的名稱，下列能正確實(shí)現(xiàn)上述操作的程序是PrivateSubListl_Click()Labell.Caption=Listl.ListindexEndSubPrivateSubListl_Click()Labell.Name=Listl.ListindexEndSubPrivateSubListl_Click()Labell.Name=Listl.TextEndSubPrivateSubListl_Click()LabelI.Caption=Listl.TextEndSub(24)在VisualBasic工程中，可以作為啟動(dòng)對(duì)象的程序是A)任何窗體或標(biāo)準(zhǔn)模塊B)任何窗體或過(guò)程C)SubMain過(guò)程或其他任何模塊D)SubMain過(guò)程或任何窗體(25)假定建立了一個(gè)名為Commandl的命令按鈕數(shù)組，則以下說(shuō)法中錯(cuò)誤的是A)數(shù)組中每個(gè)命令按鈕的名稱(名稱屬性)均為CommandlB)數(shù)組中每個(gè)命令按鈕的標(biāo)題(Caption屬性)都一樣C)數(shù)組中所有命令按鈕可以使用同一個(gè)事件過(guò)程D)用名稱Command1(下標(biāo))可以訪問(wèn)數(shù)組中的每個(gè)命令按鈕(26)把窗體的Keypreview屬性設(shè)置為True,然后編寫如下事件過(guò)程：PrivateSubForm_Kcypress(KeyasciiAsInteger)DimChAsStringCh=Chr(Keyascii)Keyascii=Asc(Ucase(Ch))PrintChr(Keyascii+2)EndSub程序運(yùn)行后,按鍵盤上的“A”鍵，則在窗體上顯示的內(nèi)容是A)AB)BC)CD)D2005年9月二級(jí)VB(19)在窗體上畫一個(gè)列表框和一個(gè)命令按鈕，其名稱分別為L(zhǎng)ist】和Command］，然后編寫如下事件過(guò)程:PrivateSubForm_Load()List1.AdditemnItem1”List1.Additem"Item2”List1.Additem"Item3”EndSubPrivateSubCommandl_Click()Listl.List(Listl.Listcount)="AAAA”EndSub程序運(yùn)行后，單擊命令按鈕，其結(jié)果為A)把字符串“AAAA”添加到列表框中，但位置不能確定B)把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)C)把列表框中原有的最后一項(xiàng)改為“AAAA”D)把字符串“AAAA”插入到列表框的最前面(即“Item1”的前面)(29)以下關(guān)于Keypress事件過(guò)程中參數(shù)Keyascii的敘述中正確的是Keyascii參數(shù)是所按鍵的ASCH碼Keyascii參數(shù)的數(shù)據(jù)類型為字符串Kcyascii參數(shù)可以省略Keyascii參數(shù)是所按鍵上標(biāo)注的字符(30)設(shè)窗體上有一個(gè)名為Textl的文本框，并編寫如下程序：PrivateSubForm_Load()ShowTextl.Text=n"Textl.SetfbcusEndSubPrivateSubForm_Mouseup(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)Print”程序設(shè)計(jì)”EndSubPrivateSubText1Kcydown(KcycodcAsInteger,ShiftAsInteger)Print"VisualBasic**;EndSub程序運(yùn)行后，如果在文本框中輸入字母“A”，然后單擊窗體，則在窗體上顯示的內(nèi)容是A)VisualBasic B)程序設(shè)計(jì)C)VisualBasic程序設(shè)計(jì)D)A程序設(shè)計(jì)

(31)假定有下表所列的菜單結(jié)構(gòu):標(biāo)題名稱層次顯示Appear1(主菜單)大圖標(biāo)Bigicon2(子菜單)小圖標(biāo)Smallicon2(子菜單)要求程序運(yùn)行后，如果單擊菜單項(xiàng)“大圖標(biāo)”，則在該菜單項(xiàng)前添加一個(gè)以下正確的事件過(guò)程是PrivateSubBigicon_Click()Bigicon.Checked=FalseEndSubPrivateSubBigicon_Click()Me.Appear.Bigicon.Checked=TruePrivateSubBigicon_Click()Bigicon.Checked=TrueEndSubPrivateSubBigicon_Click()Appear.Bigicon.Checked=TrueEndSub話框的標(biāo)題為“NewTitle”的事件過(guò)程是PrivateSubCommand1PrivateSubBigicon_Click()Bigicon.Checked=TrueEndSubPrivateSubBigicon_Click()Appear.Bigicon.Checked=TrueEndSub話框的標(biāo)題為“NewTitle”的事件過(guò)程是PrivateSubCommand1_Click()Commondialog1.Dialogtitle="NewTitle**Commondialog1.ShowprinterEndSubPrivateSubCommand1_Click()Commondialog1.Dialogtitle="NewTitle”Commondialog1.ShowfbntEndSubPrivateSubCommandl_Click()Commondialog1.Dialogtitle="NewTitle”Commondialog1.ShowopenEndSubPrivateSubCommandl_Click()Commondialog1.Dialogtitle="NewTitle"Commondialog1.ShowcolorEndSub填空題2002年9月二級(jí)VB(1)在窗體上畫兩個(gè)標(biāo)簽，其名稱分別為L(zhǎng)abel1和Label2,Caption屬性分別為“數(shù)值”及空白；然后畫一個(gè)名稱為Hscolll的水平滾動(dòng)條，其Min的值為0,Max的值為100。程序運(yùn)行后，如果單擊滾動(dòng)條兩端的箭頭，則在標(biāo)簽Lable2中顯示滾動(dòng)條的值，如圖所示。請(qǐng)?jiān)诳冢莺停?］處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。PrivateSubIIscrolll_［1］()Lab12.Caption=Hscro111.［2］EndSub(2)在窗體上畫一個(gè)名稱為Commandl、標(biāo)題為“計(jì)算”的命令按鈕：畫兩個(gè)文本框，名稱分別為Textl和Text2；然后畫4個(gè)標(biāo)簽，名稱分別為L(zhǎng)abelhLabel2,Label3和Label%標(biāo)題分別為“操作數(shù)1”、“操作數(shù)2”、“運(yùn)算結(jié)果”和空白；再建立一個(gè)含有4個(gè)單選按紐的控件數(shù)組，名稱為Optionl,標(biāo)題分別為“+”程序運(yùn)行后，在Textl、Text2中輸入兩個(gè)數(shù)值，選中一個(gè)單選按鈕后單擊命令按鈕，相應(yīng)的計(jì)算結(jié)果顯示在Label*程序運(yùn)行情況如圖所示。請(qǐng)?jiān)冢?］、［4］和［5］處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。Fl畫白PrivateSubCommand1_Click()For1=0To3If[3]=TrueThen0pt=0ptionl(I).CaptionEndIfNextSelectCase[4]Case"Result=Val(Textl.Text)+Val(Text2.Text)Case”-”Result=Val(Textl.Text)-Val(Text2.Text)Case"*”Result=Val(Text.Text)*Val(Text2.Text)Case"/"Result=Val(Textl.Text)/Vai(Text2.Text)EndSelect[5]=ResultEndSub(3)在窗體上畫一個(gè)名稱為Commandl的命令按鈕和一個(gè)名稱為Textl的文本框。程序運(yùn)行后,Commandl為禁用(灰色)。當(dāng)向文框中輸入任何字符時(shí)，命令按鈕Commandl變?yōu)榭捎?。?qǐng)?jiān)赱6]處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。PrivateSubFormLoad()Commandl.Enabled=FaIseEndSubPrivateSubTextl_[6]()Commandl.Enabled=TrueEndSub(4)在菜單編輯器中建立了一個(gè)菜單，名為Pmenu,用下面的語(yǔ)句可以把它作為彈出式菜單彈出，請(qǐng)?zhí)羁铡orml.[7]Pmenu(6)在窗體上畫一個(gè)文本框和一個(gè)圖片框，然后編寫如下兩個(gè)事件過(guò)程：PrivateSubForm_Load()Textl.Text=''計(jì)算機(jī)”EndSubPrivateSubTextl_Change()Picture1.Print"等級(jí)考試”EndSub程序運(yùn)行后，在文本框中顯示的內(nèi)容是[10],而在圖片框中顯示的內(nèi)容是[11]。(9)在窗體上畫一個(gè)名稱為L(zhǎng)ablel的標(biāo)簽和一個(gè)名稱為L(zhǎng)istl的列表框。程序運(yùn)行后，在列表框中添加若干列表項(xiàng)。當(dāng)雙擊列表框中的某個(gè)項(xiàng)目時(shí)，在標(biāo)簽Labell中顯示所選中的項(xiàng)目，如圖所示。請(qǐng)?jiān)赱14]和[15]處填入適當(dāng)?shù)膬?nèi)容將程序補(bǔ)充完整。PrivateSubForm_Load()List1.Additem"北京“List1.Additem"上海"List1.Additem"湖北“EndSubPrivateSub[14]()Labell.Caption=[15]EndSub2003年4月二級(jí)VB(4)為了在運(yùn)行時(shí)把D:\Pic文件夾下的圖形文件A.Jpg裝入圖片框Picture]，所使用的語(yǔ)句為【4】。(5)計(jì)時(shí)器控件能有規(guī)律的以一定時(shí)間間隔觸發(fā)【5】事件，并執(zhí)行該事件過(guò)程中的程序代碼。填空題(9)在窗體上畫一個(gè)名稱為Combo1的組合框，畫兩個(gè)名稱分別Labell和Label2及Caption屬性分別為"城市名稱"和空白的標(biāo)簽。程序運(yùn)行后，當(dāng)在組合框中輸入一個(gè)新項(xiàng)后按回車鍵(ASCH碼為13)時(shí)，如果輸入的項(xiàng)在組合框的列表中不存在，則自動(dòng)添加到組合框的列表中，并在Label2中給出提示"己成功添加輸入項(xiàng)"如圖所示；如果存在，則在Label2中給出提示"輸入項(xiàng)已在組合框中"。請(qǐng)?jiān)凇?2】、【13】和【14】處將程序補(bǔ)充完整。PrivateSubCombo1_112](KeyasciiAsInteger)IfKeyascii=13ThenForI=0ToCombo1.Listcount-1IfCombo1.Text=[13]ThenLabel2.Caption="輸入項(xiàng)已在組合框中”ExitSubEndIfNextILabel2.Caption="已成功添加輸入項(xiàng)”Combo1.[14]Combo1.TextEndIfEndSub2003年9月二級(jí)VB(2)把窗體的Keypreview屬性設(shè)置為True,然后編寫如下兩個(gè)事件過(guò)程：PrivateSubFormKeydown(KeycodeAsInteger,ShiftAsInteger)PrintChr(Keycode)EndSubPrivateSubForm_Keypress(KeyasciiAsInteger)PrintChr(Keyascii)EndSub程序運(yùn)行后，如果直接按鍵盤上的〃A〃鍵(即不按住Shift鍵)，則在窗體上輸出的字符分別是[3】和【4】o(3)在窗體上畫一個(gè)標(biāo)簽(名稱為L(zhǎng)abell)和一個(gè)計(jì)時(shí)器(名稱為Time)),然后編寫如下幾個(gè)事件過(guò)程：PrivateSubFormLoad()Timerl.Enabled=FalseTimerl.Interval=[5]EndSubPrivateSubFormClickOTimerl.Enabled=[6]EndSubPrivateSubTimerl_Timer()Labell.Caption=[7]EndSub程序運(yùn)行后，單擊窗體，將在標(biāo)簽中顯示當(dāng)前時(shí)間，每隔1秒鐘變換一次。請(qǐng)?zhí)羁铡?4)在窗體上畫一個(gè)文本框、一個(gè)標(biāo)簽和一個(gè)命令按鈕，其名稱分別為Text1、Labell和Commandl,然后編寫如下.兩個(gè)事件過(guò)程：PrivateSubCommand1_C1ick()S$=Inputbox("請(qǐng)輸入一個(gè)字符串”)Textl.Text=S$EndSubPrivateSubTextlChangeOLabell.Caption=Ucase(Mid(Textl.Text,7))EndSub程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)輸入對(duì)話框，如果在該對(duì)話框中輸入字符串"Visualbasic”,則在標(biāo)簽中顯示的內(nèi)容是[8】o(5)在窗體上畫一個(gè)列表框、一個(gè)命令按鈕和一個(gè)標(biāo)簽，其名稱分別為L(zhǎng)istl、Commandl和Labell,通過(guò)屬性窗口把列表框中的項(xiàng)目設(shè)置為：〃第一個(gè)項(xiàng)目"、〃第二個(gè)項(xiàng)目〃、〃第三個(gè)項(xiàng)目〃、〃第四個(gè)項(xiàng)目〃。程序運(yùn)行后，在列表框中選擇一個(gè)項(xiàng)目，然后單擊命令按鈕，即可將所選擇的項(xiàng)目刪除，并在標(biāo)簽中顯示列表框當(dāng)前的項(xiàng)目數(shù)，運(yùn)行情況如圖所示(選擇〃第三個(gè)項(xiàng)目〃的情況)。下面是實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁铡rivateSubCommand1_C1ick()IfListl.Listindex>=[9]ThenListl.Removeitem[10]Labell.Caption=[11]ElseMsgbox〃請(qǐng)選擇要?jiǎng)h除的項(xiàng)目“EndIfEndSub2004年4月二級(jí)VB(1)VisualBasic應(yīng)用程序中標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是【1】。(2)在菜單編輯器中建立一個(gè)菜單，其主菜單項(xiàng)的名稱為Mnuedit,Visible屬性為False,程序運(yùn)行后，如果用鼠標(biāo)右鍵單擊窗體，則彈出與Mnuedit相應(yīng)的菜單。以下是實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁?。PrivateSubForm[2](ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2Then[3]MnueditEndIfEndSub(3)為了使計(jì)時(shí)器控件Timerl每隔0.5秒觸發(fā)一次Timer事件，應(yīng)將Timer1控件的14】屬性設(shè)置為【5】。(4)與數(shù)學(xué)表達(dá)式對(duì)應(yīng)的VisualBasic表達(dá)式是[6]。⑸將C盤根目錄下的圖形文件MoonJpg裝入圖片框Picturel的語(yǔ)句是【7】.(6)在窗體上畫一個(gè)名稱為Textl的文本框，然后畫三個(gè)單選按鈕，并用這三個(gè)單選按鈕建立一個(gè)控件數(shù)組，名稱為Option1,程序運(yùn)行后，如果單擊某個(gè)單選按鈕，則文本框中的字體將根據(jù)所選擇的單選按鈕切換，如圖所示，請(qǐng)?zhí)羁铡rivateSubOption1_Click(IndexAsInteger)SelectCase[8]Case0A="宋體”A="黑體”A="楷體_GB2312”EndSelectTextl.[9]=AEndSub2005年4月二級(jí)VB(7)在窗體上畫一個(gè)文本框和一個(gè)圖片框，然后編寫如下兩個(gè)事件過(guò)程：PrivateSubForm_Click()Textl.Text=”VB程序設(shè)計(jì)”EndSubPrivateSubTextl_Change()Picture1.PrintHVbprogrammingHEndSub程序運(yùn)行后，單擊窗體，在文本框中顯示的內(nèi)容是【7]，而在圖片框中顯示的內(nèi)容是[8】三、基本語(yǔ)法2002年9月二級(jí)VB(4)設(shè)有如下變量聲明DimTestdateAsDate,為變量Testdate正確賦值的表達(dá)方式是A)Textdate=#l/1/2002# B)Testdate=#"1/1/2002”#C)Textdate=Date("l/l/2002'') D)Testdate=Format("M/D/Yy'',"1/1/2002")(5)設(shè)有如下聲明:DimXAsInteger,如果Sgn(X)的值為-1,則X的值是A)整數(shù)B)大于0的整數(shù)C)等于0的整數(shù)D)小于0的數(shù)(7)設(shè)A=3,B=5,則以下表達(dá)式值為真的是A)A>=BAndB>10B)(A>B)Or(B>0)C)(A<0)Eqv(B>0) D)(-3+5>A)And(B>0)(8)設(shè)有語(yǔ)句X=Inputbox(“輸入數(shù)值”，“0”，“示例”)程序運(yùn)行后，如果從鍵盤上輸入數(shù)值10并按回車鍵，則F列敘述中正確的是A)變量X的值是數(shù)值10B)在Inputbox對(duì)話框標(biāo)題欄中顯示的是“示例”C)0是默認(rèn)值 D)變量X的值是字符串“10”(9)從鍵盤上輸入兩個(gè)字符串，分別保存在變量Strl、Str2中。確定第二個(gè)字符串在第一個(gè)字符串中起始位置的函數(shù)是A)LeftB)MidC)StringD)Instr(10)設(shè)A="VisualBasic"，下面使B="Basic”的語(yǔ)句是A)B=Left(A,8,12) B)B=Mid(A,8,5)C)B=Rigth(A,5,5) D)B=Left(A,8,5)2003年4月二級(jí)VB(3)下列可作為VisualBasic變量名的是A)A#AB)4AC)?XyD)Consta(4)設(shè)有如下的記錄類型TypeStudentNumberAsStringNameAsStringAgeAsIntegerEndType則正確引用該記錄類型變量的代碼是A)Student.Name="張紅" B)DimSAsStudentS.Name="張紅"C)DimSAsTypeStudentD)DimSAsTypeS.Name="張紅" S.Name="張紅"(5)函數(shù)String(N,"Str")的功能是A)把數(shù)值型數(shù)據(jù)轉(zhuǎn)換為字符串 C)從字符串中取出N個(gè)字符B)返回由N個(gè)字符組成的字符串 D)從字符串中第N個(gè)字符的位置開始取子字符串(6)將數(shù)學(xué)表達(dá)式Cos2(A+B)+5e2寫成VisualBasic的表達(dá)式，其正確的形式是A)Cos(A+B)A2+5*Exp(2) B)CosA2(A+B)+5*Exp(2)C)Cos(A+B)A2+5*Ln(2) D)CosA2(A+B)+5*Ln(2)(7)在窗體上畫一個(gè)命令按鈕，名稱為Command1。單擊命令按鈕時(shí)，執(zhí)行如下事件過(guò)程：PrivateSubCommand1_Click()AS="SoftwareAndHardware*'B$=Right(A$,8)C$=Mid(A$,1,8)MsgboxA$,,B$,C$,1EndSub則在彈出的信息框的標(biāo)題欄中顯示的信息是A)SoftwareAndHardwareB)SoftwareC)HardwareD)1(8)執(zhí)行語(yǔ)句sA=Inputbox("Today","Tomorrow","Yesterday",,,"DayBeforeYesterday",5)將顯示一個(gè)輸入對(duì)話框，在對(duì)話框的輸入?yún)^(qū)中顯示的信息是A)TodayB)TomorrowC)YesterdayD)DayBeforeYesterday(17)以下敘述中錯(cuò)誤的是A)用Shell函數(shù)可以調(diào)用能夠在WindowsF運(yùn)行的應(yīng)用程序B)用Shell函數(shù)可以調(diào)用可執(zhí)行文件，也可以調(diào)用VisualBasic的內(nèi)部函數(shù)C)調(diào)用Shell函數(shù)的格式應(yīng)為：<變量g>=Shell(……)D)用Shell函數(shù)不能執(zhí)行DOS命令2003年9月二級(jí)VB(6)以下能正確定義數(shù)據(jù)類型Telbook的代碼是TypeTelbook B)TypeTelbookNameAsString*10 NameAsString*10

TelnumAsIntegerEndTelbookD)TypedefTelbookNameString*10TelnumAsIntegerEndTelbookD)TypedefTelbookNameString*10TelnumIntegerEndTypeEndTypeC)TypeTelbookNameString*10TelnumIntegerEndTypeTelbook(7)以下聲明語(yǔ)句中錯(cuò)誤的是A)ConstVarl=123C)DefintA-Z(10)設(shè)A)ConstVarl=123C)DefintA-Z(10)設(shè)A=10,B=5,C=l,A)TrueB)False2004年4月二級(jí)VBD)StaticVar3AsInteger執(zhí)行語(yǔ)句PrintA>B>C后，窗體上顯示的是1D)出錯(cuò)信息(7)執(zhí)行語(yǔ)句S=Len(Mid("Visualbasic”,l,6))B,S的值是A)VisualB)BasicC)6D)11(9)在窗體上畫一個(gè)命令按鈕，其名稱為Commandl,然后編寫如下事件過(guò)程:PrivateSubCommand1_Click()A=12345PrintFormat$(A,n000.00H)EndSub程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是A)123.45B)12345.00C)12345 D)00123.45(15)以下關(guān)系表達(dá)式中，其值為False的是A)“ABC”>“Abc" B)HThe,,o,,TheynC)”VISUAL”=Ucase("Visual”)D)MIntegerH>MIntM(16)語(yǔ)句Print5/4*6\5Mod2的輸出結(jié)果是A)0B)1 C)2 D)3(18)在窗體上畫一個(gè)名稱為Commandl的命令按鈕，然后編寫如下事件過(guò)程:PrivateSubCommandl_Click()X=-5IfSgn(X)ThenY=Sgn(XA2)ElseY=Sgn(X)EndIfPrintYEndSub程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是A)-5B)25C)1D)-l2004年9月二級(jí)VB(6)以下關(guān)于Msgbox的敘述中，錯(cuò)誤的是Msgbox函數(shù)返回一個(gè)整數(shù)B)通過(guò)Msgbox函數(shù)可以設(shè)置信息框中圖標(biāo)和按鈕的類型Msgbox語(yǔ)句沒(méi)有返回值Msgbox函數(shù)的第一個(gè)參數(shù)是一個(gè)整數(shù)，該參數(shù)只能確定對(duì)話框中顯示的按鈕數(shù)量(12)以下合法的VisualBasic標(biāo)識(shí)符是A)ForloopB)ConstC)9abcD)A#X(14)表達(dá)式5Mod3+3\5*2的值是A)0B)2 C)4D)6(15)設(shè)X=4,Y=8,Z=7,表達(dá)式X<YAnd(NotY>Z)OrZ<X的值是A)1B)-1C)TrueD)False(16)在窗體上畫一個(gè)名稱為Commandl的命令按鈕，然后編寫如下事件過(guò)程：PrivateSubCommandl_Click()A$="Visualbasic”PrintString(3,A$)EndSub程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是A)VWB)VisC)SicD)11(19)執(zhí)行如下兩條語(yǔ)句，窗體上顯示的是A=9.8596PrintFormat(A,*$00,00.00")0,009.86B)$9.86C)9.86D)$0,009.862005年4月二級(jí)VB(12)設(shè)A=5,B=4,C=3,D=2,下列表達(dá)式的值是3>2*BOrA=CAndBoCOrC>DA)1B)TrueC)False D)2(13)設(shè)A=,,Microsoftvisualbasic,,J則以下使變量B的值為"Visualbasic”的語(yǔ)句是A)B=Left(A,10)B=Mid(A,10)B=Right(A,10)B=Mid(A,11,10)(14)假定有如下的窗體事件過(guò)程：PrivateSubForm_Click()AS=0MicrosoftVisualBasic”B$=Right(A$,5)C=Mid(A$,1,9)MsgboxAS,34,B$,C$,5EndSub程序運(yùn)行后單擊窗體，則在彈出的信息框中的標(biāo)題欄中顯示的信息是：A)MicrosoftVisualMicrosoftBasicD)5(17)在窗體上畫一個(gè)文本框，然后編寫如下事件過(guò)程：PrivateSubForm_Click()X=Inputbox("請(qǐng)輸入一個(gè)整數(shù)”)PrintX+Text1.TextEndSub程序運(yùn)行時(shí)，在文本框中輸入456,然后單擊窗體，在輸入對(duì)話框中輸入123,單擊“確定”按鈕后，在窗體上顯示的內(nèi)容是：A)123 B)456 C)579D)1234562005年9月二級(jí)VB(14)設(shè)A=2,B=3,C=4,D=5,下列表達(dá)式的值是NotA<=COr4*C=BA2AndBoA+CA)-1B)1C)TrueD)False(15)設(shè)A=5,B=10,則執(zhí)行C=Int((B?A)*Rnd+A)+l后，C值的范圍為A)5?10B)6?9C)6?10D)5?9(16)在窗體上畫一個(gè)命令按鈕，名稱為Commandl,然后編寫如下事件過(guò)程：PrivateSubCommand1_Click()A$="SoftwareAndHardware"B$=Right(A$,8)C$=Mid(A$,1,8)MsgboxAS,,B$,C$,1EndSub運(yùn)行程序，單擊命令按鈕，則在彈出的信息框的標(biāo)題欄中顯示的是A)SoftwareAndHardwareB)SoftwareC)HardwareD)1(17)在窗體上畫?個(gè)命令按鈕和?個(gè)文本框，其名稱分別為Commandl和Textl,把文本框的Text屬性設(shè)置為空白,然后編寫如下事件過(guò)程：PrivateSubCommand1_Click()A=Inputbox(nEnterAnInteger**)B=Inputbox(HEnterAnInteger")Textl.Text=B+AEndSub程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中分別輸入8和10,則文本框中顯示的內(nèi)容是A)108B)18C)810D)出錯(cuò)(18)在窗體上畫兩個(gè)文本框，其名稱分別為Textl和Text2,然后編寫如下程序：PrivateSubForm_Load()ShowTextl.Text=,H,Text2.Text=Textl.SetfbcusEndSubPrivateSubTcxtl_Change()Text2.Text=Mid(Textl.Text,8)EndSub程序運(yùn)行后，如果在文本框Textl中輸入Beijingchina,則在文本框Text2中顯示的內(nèi)容是A)BeijingchinaB)ChinaC)BeijingD)Beijingc填空題2004年9月二級(jí)VB(1)設(shè)有如下程序段：A$="Beijingshanghai”B$=Mid(A$,Instr(A$,"G")+l)執(zhí)行上面的程序段后，變量B$的值為2005年4月二級(jí)VB(6)以下語(yǔ)句的輸出結(jié)果是：【6】PrintInt(l2345.6789*100+0.5)/100四、分支、循環(huán)2002年9月二級(jí)VB(15)在窗體上畫一個(gè)命令按鈕，名稱為Commandl。然后編寫如下程序：PrivateSubCommand1_Click()For1=1To4ForJ=0ToIPrintChr$(65+I);NextJPrintNextIEndSub程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是A)BBB)AC)BD)AACCCBBCCBBBDDDDCCCDDDCCCCEEEEEDDDDEEEEDDDDD(17)在窗體上畫兩個(gè)名稱分別為Textl>Texte2的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：PrivateSubCommandl_Click()DimXAsInteger,NAsIntegerX=1N=0DoWhileX<20X=X*3N=N+1LoopText1.Text=Str(X)Text2.Text=Str(N)EndSub程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別是A)15和1 B)27和3C)195和3D)600和4(18)在窗體上畫一個(gè)名稱為Textl的文本框和一個(gè)名稱為Commandl的命令按鈕，然后編寫如卜事件過(guò)程：PrivateSubCommand1_CIick()DimIAsInteger,NAsIntegerFor1=0To501=1+3N=N+1IfI>10ThenExitForNextTextl.Text=Str(N)EndSub程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是A)2 B)3 D)4 D)52003年4月二級(jí)VB(11)在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：PrivateSubCommandl_Click()X=0N=Inputbox(巧ForI=1ToNForJ=lToIX=X+1NextJNextIPrintXEndSub程序運(yùn)行后，單擊命令按鈕，如果輸入3,則在窗體上顯示的內(nèi)容是A)3B)4C)5D)6(22)以下能夠正確計(jì)算N!的程序是PrivateSubCommand1_Click()N=5:X=1DoX=X*I=1+1LoopWhileI<NPrintXEndSubPrivateSubCommand1_Click()N=5:X=1:I=1DoX=X*I=1+1LoopWhileI<NPrintXEndSubPrivateSubCommandl_Click()N=5:X=1:I=1DoX=X*I1=1+1LoopWhileI<=NPrintXEndSubPrivateSubCommandl_Click()N=5:X=1:1=1DoX=X*I=1+1LoopWhileI>NPrintXEndSub2003年9月二級(jí)VB(19)在窗體上畫一個(gè)名稱為Commandl的命令按鈕和兩個(gè)名稱分別為Textl、Text2的文本框，然后編寫如下事件過(guò)程：PrivateSubCommandl_Click()N=Textl.TextSelectCaseNCase1To20X=10Case2,4,6X=20CaseIs<10X=30Case10X=40EndSelectText2.Text=XEndSub程序運(yùn)行后，如果在文本框Textl中輸入10,然后單擊命令按鈕，則在Text2中顯示的內(nèi)容是10B)20C)30D)40(20)設(shè)有以下循環(huán)結(jié)構(gòu)Do循環(huán)體LoopWhile〈條件》則以下敘述中錯(cuò)誤的是A)若"條件”是一個(gè)為0的常數(shù)，則一次也不執(zhí)行循環(huán)體〃條件"可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)C)循環(huán)體中可以使用ExitDo語(yǔ)句D)如果”條件〃總是為True,則不停地執(zhí)行循環(huán)體(21)在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程:PrivateSubCommand1_C1ick()DimNumAsIntegerNum=1DoUntilNum>6PrintNum;Num=Num+2.4LoopEndSub程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是A)13.45.8B)135C)147 D)無(wú)數(shù)據(jù)輸出(22)在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程:PrivateSubCommand1Click()DimAAsInteger,SAsIntegerA=8S=1DoS=S+AA=A-lLoopWhileA<=0PrintS;AEndSub程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是A)79 B)340097 D)死循環(huán)(27)在窗體上畫一個(gè)名稱為Commandl的命令按鈕，然后編寫如下事件過(guò)程:PrivateSubCommandl_Click()ForN=1To20IfNMod300ThenM=M+N\3NextNPrintNEndSub程序運(yùn)行后，如果單擊命令按鈕，則窗體上顯示的內(nèi)容是A)15B)18C)21D)24(29)設(shè)有如下程序:PrivateSubCommandl_Click()DimSumAsDouble,XAsDoubleSum=0N=0ForI=1To5X=N/IN=N+1Sum=Sum+XNextEndSub該程序通過(guò)For循環(huán)計(jì)算一個(gè)表達(dá)式的值，這個(gè)表達(dá)式是A)1+1/2+2/3+3/4+4/5B)1+1