全國計算機等級二級vb考試試題

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

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

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

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

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