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

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

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

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

TelnumAsIntegerEndTelbookD)TypedefTelbookNameString*10TelnumAsIntegerEndTelbookD)TypedefTelbookNameString*10TelnumIntegerEndTypeEndTypeC)TypeTelbookNameString*10TelnumIntegerEndTypeTelbook(7)以下聲明語句中錯誤的是A)ConstVarl=123C)DefintA-Z(10)設A)ConstVarl=123C)DefintA-Z(10)設A=10,B=5,C=l,A)TrueB)False2004年4月二級VBD)StaticVar3AsInteger執行語句PrintA>B>C后，窗體上顯示的是1D)出錯信息(7)執行語句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)以下關系表達式中，其值為False的是A)“ABC”>“Abc" B)HThe,,o,,TheynC)”VISUAL”=Ucase("Visual”)D)MIntegerH>MIntM(16)語句Print5/4*6\5Mod2的輸出結果是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)以下關于Msgbox的敘述中，錯誤的是Msgbox函數返回一個整數B)通過Msgbox函數可以設置信息框中圖標和按鈕的類型Msgbox語句沒有返回值Msgbox函數的第一個參數是一個整數，該參數只能確定對話框中顯示的按鈕數量(12)以下合法的VisualBasic標識符是A)ForloopB)ConstC)9abcD)A#X(14)表達式5Mod3+3\5*2的值是A)0B)2 C)4D)6(15)設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程序運行后，單擊命令按鈕，在窗體上顯示的內容是A)VWB)VisC)SicD)11(19)執行如下兩條語句，窗體上顯示的是A=9.8596PrintFormat(A,*$00,00.00")0,009.86B)$9.86C)9.86D)$0,009.862005年4月二級VB(12)設A=5,B=4,C=3,D=2,下列表達式的值是3>2*BOrA=CAndBoCOrC>DA)1B)TrueC)False D)2(13)設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程序運行后單擊窗體，則在彈出的信息框中的標題欄中顯示的信息是：A)MicrosoftVisualMicrosoftBasicD)5(17)在窗體上畫一個文本框，然后編寫如下事件過程：PrivateSubForm_Click()X=Inputbox("請輸入一個整數”)PrintX+Text1.TextEndSub程序運行時，在文本框中輸入456,然后單擊窗體，在輸入對話框中輸入123,單擊“確定”按鈕后，在窗體上顯示的內容是：A)123 B)456 C)579D)1234562005年9月二級VB(14)設A=2,B=3,C=4,D=5,下列表達式的值是NotA<=COr4*C=BA2AndBoA+CA)-1B)1C)TrueD)False(15)設A=5,B=10,則執行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運行程序，單擊命令按鈕，則在彈出的信息框的標題欄中顯示的是A)SoftwareAndHardwareB)SoftwareC)HardwareD)1(17)在窗體上畫?個命令按鈕和?個文本框，其名稱分別為Commandl和Textl,把文本框的Text屬性設置為空白,然后編寫如下事件過程：PrivateSubCommand1_Click()A=Inputbox(nEnterAnInteger**)B=Inputbox(HEnterAnInteger")Textl.Text=B+AEndSub程序運行后，單擊命令按鈕，如果在輸入對話框中分別輸入8和10,則文本框中顯示的內容是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中顯示的內容是A)BeijingchinaB)ChinaC)BeijingD)Beijingc填空題2004年9月二級VB(1)設有如下程序段：A$="Beijingshanghai”B$=Mid(A$,Instr(A$,"G")+l)執行上面的程序段后，變量B$的值為2005年4月二級VB(6)以下語句的輸出結果是：【6】PrintInt(l2345.6789*100+0.5)/100四、分支、循環2002年9月二級VB(15)在窗體上畫一個命令按鈕，名稱為Commandl。然后編寫如下程序：PrivateSubCommand1_Click()For1=1To4ForJ=0ToIPrintChr$(65+I);NextJPrintNextIEndSub程序運行后，如果單擊命令按鈕，則在窗體上顯示的內容是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,則在窗體上顯示的內容是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中顯示的內容是10B)20C)30D)40(20)設有以下循環結構Do循環體LoopWhile〈條件》則以下敘述中錯誤的是A)若"條件”是一個為0的常數，則一次也不執行循環體〃條件"可以是關系表達式、邏輯表達式或常數C)循環體中可以使用ExitDo語句D)如果”條件〃總是為True,則不停地執行循環體(21)在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程:PrivateSubCommand1_C1ick()DimNumAsIntegerNum=1DoUntilNum>6PrintNum;Num=Num+2.4LoopEndSub程序運行后，單擊命令按鈕，則窗體上顯示的內容是A)13.45.8B)135C)147 D)無數據輸出(22)在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程:PrivateSubCommand1Click()DimAAsInteger,SAsIntegerA=8S=1DoS=S+AA=A-lLoopWhileA<=0PrintS;AEndSub程序運行后，單擊命令按鈕，則窗體上顯示的內容是A)79 B)340097 D)死循環(27)在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如下事件過程:PrivateSubCommandl_Click()ForN=1To20IfNMod300ThenM=M+N\3NextNPrintNEndSub程序運行后，如果單擊命令按鈕，則窗體上顯示的內容是A)15B)18C)21D)24(29)設有如下程序:PrivateSubCommandl_Click()DimSumAsDouble,XAsDoubleSum=0N=0ForI=1To5X=N/IN=N+1Sum=Sum+XNextEndSub該程序通過For循環計算一個表達式的值，這個表達式是A)1+1/2+2/3+3/4+4/5B)1+1