-.z.1-11、以下表達(dá)中錯(cuò)誤的選項(xiàng)是()。A)標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是.basB)標(biāo)準(zhǔn)模塊文件是純代碼文件C)在標(biāo)準(zhǔn)模塊中聲明的全局變量可以在整個(gè)工程中使用D)在標(biāo)準(zhǔn)模塊中不能定義過(guò)程參考答案：D1-12、A)1B)0C)3D)出現(xiàn)錯(cuò)誤提示參考答案：A1-13、以下選項(xiàng)中，不合法的VisualBasic的變量名是()。A)a5bB)_*yzC)a_bD)andif參考答案：B1-14、以下數(shù)組定義語(yǔ)句中，錯(cuò)誤的選項(xiàng)是()。A)Statica(10)AsIntegerB)Dimc(3，1To4)C)Dimd(－10)D)Dimb(0To5，1To3)AsInteger參考答案：C現(xiàn)有語(yǔ)句：y＝IIf(*>0，*Mod3，0)1-15、設(shè)*＝10，則y的值是()。A)0B)1C)3D)語(yǔ)句有錯(cuò)參考答案：B1-16、個(gè)菜單編輯器設(shè)計(jì)的菜單。運(yùn)行程序，并在窗體上單擊鼠標(biāo)右鍵，則彈出一個(gè)快捷菜單，如下圖。以下說(shuō)法錯(cuò)誤的選項(xiàng)是()。A)在設(shè)計(jì)"粘貼"菜單項(xiàng)時(shí)，在菜單編輯器窗口中設(shè)置了"有效"屬性(有"√")B)菜單中的橫線是在該菜單項(xiàng)的標(biāo)題輸入框中輸入了一個(gè)"-"(減號(hào))字符C)在設(shè)計(jì)"選中"菜單項(xiàng)時(shí)，在菜單編輯器窗口中設(shè)置了"復(fù)選"屬性(有"√")D)在設(shè)計(jì)該彈出菜單的主菜單項(xiàng)時(shí)，在菜單編輯器窗口中去掉了"可見"前面的"√"參考答案：A1-17、時(shí)雙擊窗體的任何地方，可以翻開的窗口是()。A)代碼窗口B)屬性窗口C)工程資源管理器窗口D)工具箱窗口參考答案：A1-18、假設(shè)變量a未事先定義而直接使用(例如：a＝0)，則變量a的類型是()。A)IntegerB)StringC)BooleanD)Variant參考答案：D1-19、為把圓周率的近似值3.14159存放在變量pi中，應(yīng)該把變量pi定義為()。A)DimpiAsIntegerB)Dimpi(7)AsIntegerC)DimpiAsSingleD)DimpiAsLong參考答案：C1-20、A)30B)31C)49D)48參考答案：B1-21、為了使文本框同時(shí)具有垂直和水平滾動(dòng)條，應(yīng)先把MultiLine屬性設(shè)置為True，然后再把ScrollBars屬性設(shè)置為()。A)0B)1C)2D)3參考答案：D1-22、文本框Te*t1的KeyDown事件過(guò)程如下：PrivateSubTe*t1_KeyDown(KeyCodeAsInteger，ShiftAsInteger)...EndSub其中參數(shù)KeyCode的值表示的是發(fā)生此事件時(shí)()。A)是否按下了Alt鍵或Ctrl鍵B)按下的是哪個(gè)數(shù)字鍵C)所按的鍵盤鍵的鍵碼D)按下的是哪個(gè)鼠標(biāo)鍵參考答案：C1-23、窗體上有一個(gè)名稱為HScroll1的滾動(dòng)條，程序運(yùn)行后，當(dāng)單擊滾動(dòng)條兩端的箭頭時(shí)，立即在窗體上顯示滾動(dòng)框的位置(即刻度值)。下面能夠?qū)崿F(xiàn)上述操作的事件過(guò)程是()。A)PrivateSubHScroll1_Change()PrintHScroll1.ValueEndSubB)PrivateSubHScroll1_Change()PrintHScroll1.SmallChangeEndSubC)PrivateSubHScroll1_Scroll()PrintHScroll1.ValueEndSubD)PrivateSubHScroll1_Scroll()PrintHScroll1.SmallChangeEndSub參考答案：A1-24、假設(shè)已把一個(gè)命令按鈕的Default屬性設(shè)置為True，則下面可導(dǎo)致按鈕的Click事件過(guò)程被調(diào)用的操作是()。A)用鼠標(biāo)右鍵單擊此按鈕B)按鍵盤上的Esc鍵C)按鍵盤上的回車鍵D)用鼠標(biāo)右鍵雙擊此按鈕參考答案：C1-25、要使兩個(gè)單項(xiàng)選擇按鈕屬于同一個(gè)框架，下面三種操作方法中正確的選項(xiàng)是()。①先畫一個(gè)框架，再在框架中畫兩個(gè)單項(xiàng)選擇按鈕②先畫一個(gè)框架，再在框架外畫兩個(gè)單項(xiàng)選擇按鈕，然后把單項(xiàng)選擇按鈕拖到框架中③先畫兩個(gè)單項(xiàng)選擇按鈕，再畫框架將單項(xiàng)選擇按鈕框起來(lái)A)①B)①、②C)③D)①、②、③參考答案：A1-26、能夠存放組合框的所有工程內(nèi)容的屬性是()。A)CaptionB)Te*tC)ListD)Selected參考答案：C1-27、設(shè)窗體上有一個(gè)標(biāo)簽Label1和一個(gè)計(jì)時(shí)器Timer1，Timer1的Interval屬性被設(shè)置為1000，Enabled屬性被設(shè)置為True。要求程序運(yùn)行時(shí)每秒在標(biāo)簽中顯示一次系統(tǒng)當(dāng)前時(shí)間。以下可以實(shí)現(xiàn)上述要求的事件過(guò)程是()。A)PrivateSubTimer1_Timer()Label1.Caption＝TrueEndSubB)PrivateSubTimer1_Timer()Label1.Caption＝Time$EndSubC)PrivateSubTimer1_Timer()Label1.Interval＝1EndSubD)PrivateSubTimer1_Timer()Fork＝1ToTimer1.IntervalLabel1.Caption＝TimerNe*tkEndSub參考答案：B1-28、窗體上有一個(gè)名稱為CD1的通用對(duì)話框控件和由四個(gè)命令按鈕組成的控件數(shù)組mand1，其下標(biāo)從左到右分別為0、1、2、3，窗體外觀如下圖。命令按鈕的事件過(guò)程如下：PrivateSubmand1_Click(Inde*AsInteger)SelectCaseInde*Case0CD1.Action＝1Case1CD1.ShowSaveCase2CD1.Action＝5Case3EndEndSelectEndSub對(duì)上述程序，以下表達(dá)中錯(cuò)誤的選項(xiàng)是()。A)單擊"翻開"按鈕，顯示翻開文件的對(duì)話框B)單擊"保存"按鈕，顯示保存文件的對(duì)話框C)單擊"打印"按鈕，能夠設(shè)置打印選項(xiàng)，并執(zhí)行打印操作D)單擊"退出"按鈕，完畢程序的運(yùn)行參考答案：C1-29、窗體上有一個(gè)名稱為Frame1的框架(如圖)，假設(shè)要把框架上顯示的"Frame1"改為漢字"框架"，下面正確的語(yǔ)句是()。A)Frame1.Name＝"框架"B)Frame1.Caption＝"框架"C)Frame1.Te*t＝"框架"D)Frame1.Value＝"框架"參考答案：B1-30、在窗體上畫一個(gè)名稱為bo1的組合框，名稱為Te*t1的文本框，以及名稱為mand1的命令按鈕，如下圖。運(yùn)行程序，單擊命令按鈕，將文本框中被選中的文本添加到組合框中，假設(shè)文本框中沒有選中的文本，則將文本框中的文本全部添加到組合框中。命令按鈕的事件過(guò)程如下：PrivateSubmand1_Click()IfTe*t1.Se1Length<>0ThenElsebo1.AddItemTe*t1EndIfEndSub程序中橫線處應(yīng)該填寫的是()。A)bo1.AddItemTe*t1.Te*tB)bo1.AddItemTe*t1.SelStartC)bo1.AddItemTe*t1.SelTe*tD)bo1.AddItemTe*t1.SelLength參考答案：C1-31、窗體上有一個(gè)名稱為Te*t1的文本框，一個(gè)名稱為CD1的通用對(duì)話框，一個(gè)標(biāo)題為"翻開文件"的命令按鈕，如下圖。命令按鈕的單擊事件過(guò)程如下：PrivateSubmand1_Click()CD1.ShowOpenOpenCD1.FileNameForInputAs#1MsgBo*CD1.FileNameLineInput#1，sTe*t1.Te*t＝sClose#1EndSub單擊命令按鈕，執(zhí)行以上事件過(guò)程，翻開選定的文件，讀取文件的內(nèi)容并顯示在文本框中.以下表達(dá)中正確的選項(xiàng)是()。A)程序沒有錯(cuò)誤，可以正確完成翻開文件、讀取文件中內(nèi)容的操作B)執(zhí)行Open命令時(shí)出錯(cuò)，因?yàn)闆]有指定文件的路徑C)Open語(yǔ)句是錯(cuò)誤的，應(yīng)把語(yǔ)句中的ForInput改為ForOutputD)LineInput命令格式錯(cuò)參考答案：A1-32、窗體上有一個(gè)如右圖所示的圖形控件，控件中顯示了如下圖的文字，可以判斷這個(gè)圖形控件()。A)是圖像框(Image)B)是圖片框(PictureBo*)C)是形狀控件D)不是上述3種控件中的一種參考答案：B1-33、窗體上有一個(gè)名稱為bo1的組合框，要求在其編輯區(qū)輸入文本并按回車鍵后，編輯區(qū)中的文本被添加到列表中。下面能實(shí)現(xiàn)這一功能的是()。A)PrivateSubbo1_KeyDown(KeyCodeAsInteger，ShiftAsInteger)IfKeyCode＝13Thenbo1.AddItembo1.Te*tEndIfEndSubB)PrivateSubbo1_KeyDown(KeyCodeAsInteger，ShiftAsInteger)IfKeyCode＝13Thenbo1.AddItemTe*t1.Te*tEndIfEndSubC)PrivateSubbo1_Click()bo1.AddItembo1.Te*tEndSubD)PrivateSubbo1_Click()bo1.AddItemTe*t1.Te*tEndSub參考答案：A1-34、工程文件中包含一個(gè)模塊文件和一個(gè)窗體文件。模塊文件的程序代碼是：Public*AsIntegerPrivateyAsInteger窗體文件的程序代碼是：DimaAsIntegerPrivateSubForm_Load()DimbAsIntegera＝2：b＝3：*＝10：y＝20EndSubPrivateSubmand1_Click()a＝a＋5：b＝b＋5：*＝*＋5：y＝y(tǒng)＋5Printa；b；*；yEndSub運(yùn)行程序，單擊窗體上的命令按鈕，則在窗體上顯示的是()。A)55155B)751525C)78155D)75155參考答案：D1-35、窗體上的三個(gè)命令按鈕構(gòu)成名稱為mand1的控件數(shù)組。如下圖。程序如下：PrivateSubmand1_Click(Inde*AsInteger)IfInde*＝1ThenPrint"計(jì)算機(jī)等級(jí)考試"EndIfIfInde*＝2ThenPrintmand1(2).CaptionEndIfEndSub運(yùn)行程序，單擊"命令按鈕2"，則如下表達(dá)中正確的選項(xiàng)是()。A)Printmand1(2).Caption語(yǔ)句有錯(cuò)B)在窗體上顯示"命令按鈕2"C)在窗體上顯示"命令按鈕3"D)在窗體上顯示"計(jì)算機(jī)等級(jí)考試"參考答案：D1-36、下面程序的執(zhí)行結(jié)果是()。PrivateSubmand1_Click()a＝0k＝1DoWhilek<4*＝k^k^ak＝k＋1Print*；LoopEndSubA)1427B)111C)149D)000參考答案：B1-37、窗體上有名稱分別為Te*t1、Te*t2的文本框，名稱為mand1的命令按鈕。運(yùn)行程序，在Te*t1中輸入"FormList"，然后單擊命令按鈕，執(zhí)行如下程序：PrivateSubmand1_Click()Te*t2.Te*t＝UCase(Mid(Te*t1.Te*t，5，4))EndSub在Te*t2中顯示的是()。A)formB)listC)FORMD)LIST參考答案：D1-38、窗體上有名稱為mand1的命令按鈕，名稱分別為L(zhǎng)ist1、List2的列表框，其中List1的MultiSelect屬性設(shè)置為1(Simple)，并有如下事件過(guò)程：PrivateSubmand1_Click()Fori＝0ToList1.ListCount－1IfList1.Selected(i)＝TrueThenList2.AddItemTe*tEndIfNe*tEndSub上述事件過(guò)程的功能是將List1中被選中的列表項(xiàng)添加到List2中。運(yùn)行程序時(shí)，發(fā)現(xiàn)不能到達(dá)預(yù)期目的，應(yīng)做修改，以下修改中正確的選項(xiàng)是()。A)將For循環(huán)的終值改為L(zhǎng)ist1.ListCountB)將List1.Selected(i)＝True改為L(zhǎng)ist1.List(i).Selected＝TrueC)將List2.AddItemTe*t改為L(zhǎng)ist2.AddItemList1.List(i)D)將List2.AddItemTe*t改為L(zhǎng)ist2.AddItemList1.ListInde*參考答案：C1-39、設(shè)有如下mand1的單擊事件過(guò)程及fun過(guò)程：PrivateSubmand1_Click()Dim*AsInteger*＝Val(InputBo*("請(qǐng)輸入一個(gè)整數(shù)"))fun(*)EndSubPrivateSubfun(*AsInteger)If*Mod2＝0Thenfun(*/2)Print*；EndSub執(zhí)行上述程序，輸入6，結(jié)果是()。A)36B)63C)6D)程序死循環(huán)參考答案：A1-40、命令按鈕mand1的單擊事件過(guò)程如下：PrivateSubmand1_Click()Dima(10，10)AsInteger*＝0Fori＝1To3Forj＝1To3a(i，j)＝i*2ModjIf*<a(i，j)Then*＝a(i，j)Ne*tNe*tPrint*EndSub執(zhí)行上述事件過(guò)程后，窗體上顯示的是()。A)1B)2C)3D)4參考答案：B2-11、以下不能輸出"Program"的語(yǔ)句是()。A)PrintMid("VBProgram"，3，7)B)PrintRight("VBProgram"，7)C)PrintMid("VBProgram"，3)D)PrintLeft("VBProgram"，7)參考答案：D2-12、以下表達(dá)中錯(cuò)誤的選項(xiàng)是()。A)在通用過(guò)程中，多個(gè)形式參數(shù)之間可以用逗號(hào)作為分隔符B)在Print方法中，多個(gè)輸出項(xiàng)之間可以用逗號(hào)作為分隔符C)在Dim語(yǔ)句中，所定義的多個(gè)變量可以用逗號(hào)作為分隔符D)當(dāng)一行中有多個(gè)語(yǔ)句時(shí)，可以用逗號(hào)作為分隔符參考答案：D2-13、設(shè)a＝4，b＝5，c＝6，執(zhí)行語(yǔ)句Printa<bAndb<c后，窗體上顯示的是()。A)TrueB)FalseC)出錯(cuò)信息D)0參考答案：A2-14、執(zhí)行以下語(yǔ)句：strInput＝InputBo*("請(qǐng)輸入字符串"，"字符串對(duì)話框"，"字符串")將顯示輸入對(duì)話框。此時(shí)如果直接單擊"確定"按鈕，則變量strInput的內(nèi)容是()。A)"請(qǐng)輸入字符串"B)"字符串對(duì)話框"C)"字符串"D)空字符串參考答案：C2-15、以下關(guān)于過(guò)程及過(guò)程參數(shù)的描述中，錯(cuò)誤的選項(xiàng)是()。A)調(diào)用過(guò)程時(shí)可以用控件名稱作為實(shí)際參數(shù)B)用數(shù)組作為過(guò)程的參數(shù)時(shí)，使用的是"傳地址"方式C)只有函數(shù)過(guò)程能夠?qū)⑦^(guò)程中處理的信息傳回到調(diào)用的程序中D)窗體(Form)可以作為過(guò)程的參數(shù)參考答案：C2-16、在窗體上有兩個(gè)名稱分別為Te*t1、Te*t2的文本框，一個(gè)名稱為mand1的命令按鈕。運(yùn)行后的窗體外觀如下圖。設(shè)有如下的類型和變量聲明：PrivateTypePersonnameAsString*8majorAsString*20EndTypeDimpAsPerson設(shè)文本框中的數(shù)據(jù)已正確地賦值給Person類型的變量p，當(dāng)單擊"保存"按鈕時(shí)，能夠正確地把變量中的數(shù)據(jù)寫入隨機(jī)文件Test2.dat中的程序段是()。A)Open"c：\Test2.dat"ForOutputAs#1Put#1，1，pClose#1B)Open"c：\Test2.dat"ForRandomAs#1Get#1，1，pClose#1C)Open"c：\Test2.dat"ForRandomAs#1Len＝Len(p)Put#1，1，pClose#1D)Open"c：\Test2.dat"ForRandomAs#1Len＝Len(p)Get#1，1，pClose#1參考答案：C2-17、假定有以下循環(huán)構(gòu)造：DoUntil條件表達(dá)式循環(huán)體Loop則以下正確的描述是()。A)如果"條件表達(dá)式"的值是0，則一次循環(huán)體也不執(zhí)行B)如果"條件表達(dá)式"的值不為0，則至少執(zhí)行一次循環(huán)體C)不管"條件表達(dá)式"的值是否為"真"，至少要執(zhí)行一次循環(huán)體D)如果"條件表達(dá)式"的值恒為0，則無(wú)限次執(zhí)行循環(huán)體參考答案：D2-18、執(zhí)行語(yǔ)句Dim*，YAsInteger后()。A)*和Y均被定義為整型變量B)*和Y均被定義為變體類型變量C)*被定義為整型變量，Y被定義為變體類型變量D)*被定義為變體類型變量，Y被定義為整型變量參考答案：D2-19、以下關(guān)系表達(dá)式中，其值為True的是()。A)"*YZ">"*Yz"B)"VisualBasic"<>"visualbasic"C)"the"＝"there"D)"Integer"<"Int"參考答案：B2-20、執(zhí)行以下程序段：a$＝"VisualBasicProgramming"b$＝"C＋＋"c$＝UCase(Left$(a$，7))&b$&Right$(a$，12)后，變量c$的值為()。A)VisualBASICProgrammingB)VISUALC＋＋ProgrammingC)VisualC＋＋ProgrammingD)VISUALBASICProgramming參考答案：B2-21、設(shè)窗體上有一個(gè)列表框控件List1，含有假設(shè)干列表項(xiàng)。以下能表示當(dāng)前被選中的列表項(xiàng)內(nèi)容的是()。A)List1.ListB)List1.ListInde*C)List1.Te*tD)List1.Inde*參考答案：C2-22、在窗體上畫一個(gè)文本框(名稱為Te*t1)和一個(gè)標(biāo)簽(名稱為L(zhǎng)abel1)，程序運(yùn)行后，在文本框中每輸入一個(gè)字符，都會(huì)立即在標(biāo)簽中顯示文本框中字符的個(gè)數(shù)。以下可以實(shí)現(xiàn)上述操作的事件過(guò)程是()。A)PrivateSubTe*t1_Change()Label1.Caption＝Str(Len(Te*t1.Te*t))EndSubB)PrivateSubTe*t1_Click()Label1.Caption＝Str(Len(Te*t1.Te*t))EndSubC)PrivateSubTe*t1_Change()Label1.Caption＝Te*t1.Te*tEndSubD)PrivateSubLabel1_Change()Label1.Caption＝Str(Len(Te*t1.Te*t))EndSub參考答案：A2-23、在窗體上畫兩個(gè)單項(xiàng)選擇按鈕，名稱分別為Option1、Option2，標(biāo)題分別為"宋體"和"黑體"；1個(gè)復(fù)選框(名稱為Check1，標(biāo)題為"粗體")和1個(gè)文本框(名稱為Te*t1，Te*t屬性為"改變文字字體")，窗體外觀如下圖。程序運(yùn)行后，要求"宋體"單項(xiàng)選擇按鈕和"粗體"復(fù)選框被選中，則以下能夠?qū)崿F(xiàn)上述操作的語(yǔ)句序列是()。A)Option1.Value＝FalseCheck1.Value＝TrueB)Option1.Value＝TrueCheck1.Value＝0C)Option2.Value＝FalseCheck1.Value＝2D)Option1.Value＝TrueCheck1.Value＝1參考答案：D2-24、以下說(shuō)法中正確的選項(xiàng)是()。A)當(dāng)焦點(diǎn)在*個(gè)控件上時(shí)，按下一個(gè)字母鍵，就會(huì)執(zhí)行該控件的KeyPress事件過(guò)程B)因?yàn)榇绑w不承受焦點(diǎn)，所以窗體不存在自己的KeyPress事件過(guò)程C)假設(shè)按下的鍵一樣，KeyPress事件過(guò)程中的KeyAscii參數(shù)與KeyDown事件過(guò)程中的KeyCode參數(shù)的值也一樣D)在KeyPress事件過(guò)程中，KeyAscii參數(shù)可以省略參考答案：A2-25、假定通過(guò)復(fù)制、粘貼操作建立了一個(gè)命令按鈕數(shù)組mand1，以下說(shuō)法中錯(cuò)誤的選項(xiàng)是()。A)數(shù)組中每個(gè)命令按鈕的名稱(Name屬性)均為mand1B)假設(shè)未做修改，數(shù)組中每個(gè)命令按鈕的大小都一樣C)數(shù)組中各個(gè)命令按鈕使用同一個(gè)Click事件過(guò)程D)數(shù)組中每個(gè)命令按鈕的Inde*屬性值都一樣參考答案：D2-26、以下關(guān)于菜單的表達(dá)中，錯(cuò)誤的選項(xiàng)是()。A)當(dāng)窗體為活動(dòng)窗體時(shí)，用Ctrl＋E鍵可以翻開菜單編輯器B)把菜單項(xiàng)的Enabled屬性設(shè)置為False，則可刪除該菜單項(xiàng)C)彈出式菜單在菜單編輯器中設(shè)計(jì)D)程序運(yùn)行時(shí)，利用控件數(shù)組可以實(shí)現(xiàn)菜單項(xiàng)的增加或減少參考答案：B2-27、以下表達(dá)中錯(cuò)誤的選項(xiàng)是()。A)在程序運(yùn)行時(shí)，通用對(duì)話框控件是不可見的B)調(diào)用同一個(gè)通用對(duì)話框控件的不同方法(如ShowOpen或ShowSave)可以翻開不同的對(duì)話框窗口C)調(diào)用通用對(duì)話框控件的ShowOpen方法，能夠直接翻開在該通用對(duì)話框中指定的文件D)調(diào)用通用對(duì)話框控件的ShowColor方法，可以翻開顏色對(duì)話框窗口參考答案：C2-28、下面控件中，沒有Caption屬性的是()。A)復(fù)選框B)單項(xiàng)選擇按鈕C)組合框D)框架參考答案：C2-29、用來(lái)設(shè)置文字字體是否斜體的屬性是()。A)FontUnderlineB)FontBoldC)FontSlopeD)FontItalic參考答案：D2-30、窗體上有一個(gè)名稱為Timer1的計(jì)時(shí)器控件，一個(gè)名稱為Shape1的形狀控件，其Shape屬性值為3(Circle)。編寫程序如下：PrivateSubForm_Load()Shape1.Top＝0Timer1.Interval＝100EndSubPrivateSubTimer1_Timer()Static*AsIntegerShape1.Top＝Shape1.Top＋100*＝*＋1If*Mod10＝0ThenShape1.Top＝0EndIfEndSub以下關(guān)于上述程序的表達(dá)中，錯(cuò)誤的選項(xiàng)是()。A)每執(zhí)行一次Timer1_Timer事件過(guò)程，*的值都在原有根底上增加1B)Shape1每移動(dòng)10次回到起點(diǎn)，重新開場(chǎng)C)窗體上的Shape1由下而上移動(dòng)D)Shape1每次移動(dòng)100參考答案：C2-31、設(shè)有如下一段程序：PrivateSubmand1_Click()StaticaAsVarianta＝Array("one"，"two"，"three"，"four"，"five")Printa(3)EndSub針對(duì)上述事件過(guò)程，以下表達(dá)中正確的選項(xiàng)是()。A)變量聲明語(yǔ)句有錯(cuò)，應(yīng)改為Statica(5)AsVariantB)變量聲明語(yǔ)句有錯(cuò)，應(yīng)改為StaticaC)可以正常運(yùn)行，在窗體上顯示threeD)可以正常運(yùn)行，在窗體上顯示four參考答案：D2-32、求1！＋2?。?0！的程序如下：PrivateFunctions(*AsInteger)f＝1Fori＝1To*f＝f*iNe*ts＝fEndFunctionPrivateSubmand1_Click()DimiAsIntegerDimyAsLongFori＝1To10Ne*tPrintyEndSub為實(shí)現(xiàn)功能要求，程序的橫線處應(yīng)該填入的內(nèi)容是()。A)Calls(i)B)CallsC)y＝y(tǒng)＋s(i)D)y＝y(tǒng)＋s參考答案：C2-33、窗體上有一個(gè)由兩個(gè)文本框組成的控件數(shù)組，名稱為Te*t1，并有如下事件過(guò)程：PrivateSubTe*t1_Change(Inde*AsInteger)SelectCaseInde*Case0Te*t1(1).FontSize＝Te*t1(0).FontSize*2Te*t1(1).Te*t＝Te*t1(0).Te*tCase1Te*t1(0).FontSize＝Te*t1(1).FontSize/2Te*t1(0).Te*t＝Te*t1(1).Te*tCaseElseMsgBo*"執(zhí)行Else分支"EndSelectEndSub關(guān)于上述程序，以下表達(dá)中錯(cuò)誤的選項(xiàng)是()。A)Inde*用于標(biāo)識(shí)數(shù)組元素B)本程序中CaseElse分支的語(yǔ)句永遠(yuǎn)不會(huì)被執(zhí)行C)向任何一個(gè)文本框輸入字符，都會(huì)在另一個(gè)文本框中顯示該字符D)下標(biāo)為0的文本框中顯示的字符尺寸將越來(lái)越小參考答案：D2-34、設(shè)有如下程序：OptionBase1Dima(3，4)AsInteger，b(4，3)AsIntegerPrivateSubmand1_Click()'循環(huán)1Fori＝1To3Forj＝1To4b(j，i)＝a(i，j)Ne*tjNe*ti'循環(huán)2*＝b(1，1)Fori＝1To4Forj＝1To3Printb(i，j)；If*<b(i，j)Then*＝b(i，j)Ne*tjPrintNe*tiEndSub程序中的數(shù)組a已被賦值。以下關(guān)于上述程序的表達(dá)中，正確的選項(xiàng)是()。A)窗體模塊中，不能使用Dim聲明a、b數(shù)組B)"循環(huán)1"可以正常運(yùn)行C)"循環(huán)2"中循環(huán)變量i、j的終值不對(duì)，所以不能正常運(yùn)行D)程序可以正常運(yùn)行，*中保存的是數(shù)組b中所有元素中最小的數(shù)參考答案：B2-35、*人編寫了向隨機(jī)文件中寫一條記錄的程序，代碼如下：TypeRTypeNameAsString*10TelAsString*20EndTypePrivateSubmand1_Click()DimpAsRTypep.Name＝InputBo*("")p.Tel＝InputBo*("號(hào)")Open"Books.dat"ForRandomAs#1Put#1，，pClose#1EndSub該程序運(yùn)行時(shí)有錯(cuò)誤，修改的方法是()。A)在類型定義"TypeRType"之前加上"Private"B)DimpAsRType必須置于窗體模塊的聲明局部C)應(yīng)把Open語(yǔ)句中的ForRandom改為ForOutputD)Put語(yǔ)句應(yīng)該寫為Put#1，p.Name，p.Tel(36)有如下程序：PrivateSubForm_Click()DimsAsInteger，pAsIntegerp＝1Fori＝1To4Forj＝1Tois＝s＋jNe*tjp＝p*sNe*tiPrintpEndSub程序運(yùn)行后，單擊窗體，則輸出結(jié)果是()。A)在類型定義"TypeRType"之前加上"Private"B)DimpAsRType必須置于窗體模塊的聲明局部C)應(yīng)把Open語(yǔ)句中的ForRandom改為ForOutputD)Put語(yǔ)句應(yīng)該寫為Put#1，p.Name，p.Tel參考答案：A2-36、有如下程序：PrivateSubForm_Click()DimsAsInteger，pAsIntegerp＝1Fori＝1To4Forj＝1Tois＝s＋jNe*tjp＝p*sNe*tiPrintpEndSub程序運(yùn)行后，單擊窗體，則輸出結(jié)果是()。A)90B)180C)400D)800參考答案：D2-37、設(shè)有如下圖窗體和以下程序：PrivateSubmand1_Click()Te*t1.Te*t＝"VisualBasic"EndSubPrivateSubTe*t1_LostFocus()IfTe*t1.Te*t<>"BASIC"ThenTe*t1.Te*t＝""Te*t1.SetFocusEndIfEndSub程序運(yùn)行時(shí)，在Te*t1文本框中輸入"Basic"(如下圖)，然后單擊mand1按鈕，則產(chǎn)生的結(jié)果是()。A)文本框中無(wú)內(nèi)容，焦點(diǎn)在文本框中B)文本框中為"Basic"，焦點(diǎn)在文本框中C)文本框中為"Basic"，焦點(diǎn)在按鈕上D)文本框中為"VisualBasic"，焦點(diǎn)在按鈕上參考答案：A2-38、窗體上有一個(gè)名稱為mand1的命令按鈕，其事件過(guò)程如下：PrivateSubmand1_Click()*＝"VisualBasicProgramming"a＝Right(*，11)b＝Mid(*，7，5)c＝MsgBo*(a，，b)EndSub運(yùn)行程序后單擊命令按鈕。以下表達(dá)中錯(cuò)誤的選項(xiàng)是()。A)信息框的標(biāo)題是BasicB)信息框中的提示信息是ProgrammingC)c的值是函數(shù)的返回值D)MsgBo*的使用格式有錯(cuò)2-39、設(shè)工程文件包含兩個(gè)窗體文件Form1.frm、Form2.frm及一個(gè)標(biāo)準(zhǔn)模塊文件Module1.bas。兩個(gè)窗體上分別只有一個(gè)名稱為mand1的命令按鈕。Form1的代碼如下：Public*AsIntegerPrivateSubForm_Load()*＝1y＝5EndSubPrivateSubmand1_Click()Form2.ShowEndSubForm2的代碼如下：PrivateSubmand1_Click()PrintForm1.*，yEndSubModule1的代碼如下：PublicyAsInteger運(yùn)行以上程序，單擊Form1的命令按鈕mand1，則顯示Form2；再單擊Form2上的命令按鈕mand1，則窗體上顯示的是()。A)15B)05C)00D)程序有錯(cuò)參考答案：A2-40、窗體上有一個(gè)名稱為Te*t1的文本框，一個(gè)名稱為mand1的命令按鈕。窗體文件的程序如下：PrivateType*aAsIntegerbAsIntegerEndTypePrivateSubmand1_Click()DimyAs*y.a＝InputBo*("")Ify.a\2＝y(tǒng).a/2Theny.b＝y(tǒng).a*y.aElsey.b＝Fi*(y.a/2)EndIfTe*t1.Te*t＝y(tǒng).bEndSub對(duì)以上程序，以下表達(dá)中錯(cuò)誤的選項(xiàng)是()。A)*是用戶定義的類型B)InputBo*函數(shù)彈出的對(duì)話框中沒有提示信息C)假設(shè)輸入的是偶數(shù)，y.b的值為該偶數(shù)的平方D)Fi*(y.a/2)把y.a/2的小數(shù)局部四舍五入，轉(zhuǎn)換為整數(shù)返回參考答案：D3-11、以下表達(dá)中正確的選項(xiàng)是()。A)MsgBo*語(yǔ)句的返回值是一個(gè)整數(shù)B)執(zhí)行MsgBo*語(yǔ)句并出現(xiàn)信息框后，不用關(guān)閉信息框即可執(zhí)行其他操作C)MsgBo*語(yǔ)句的第一個(gè)參數(shù)不能省略D)如果省略MsgBo*語(yǔ)句的第三個(gè)參數(shù)(Title)，則信息框的標(biāo)題為空參考答案：C3-12、語(yǔ)句Dima(－3To4,3To6)AsInteger定義的數(shù)組的元素個(gè)數(shù)是()。A)18B)28C)21D)32參考答案：D3-13、以下關(guān)于函數(shù)過(guò)程的表達(dá)中，正確的選項(xiàng)是()。A)函數(shù)過(guò)程形參的類型與函數(shù)返回值的類型沒有關(guān)系B)在函數(shù)過(guò)程中，過(guò)程的返回值可以有多個(gè)C)當(dāng)數(shù)組作為函數(shù)過(guò)程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以傳址方式傳遞D)如果不指明函數(shù)過(guò)程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型參考答案：A3-14、以下關(guān)于過(guò)程及過(guò)程參數(shù)的描述中，錯(cuò)誤的選項(xiàng)是()。A)過(guò)程的參數(shù)可以是控件名稱B)調(diào)用過(guò)程時(shí)使用的實(shí)參的個(gè)數(shù)應(yīng)與過(guò)程形參的個(gè)數(shù)一樣(假定不含可變參數(shù))C)只有函數(shù)過(guò)程能夠?qū)⑦^(guò)程中處理的信息返回到調(diào)用程序中D)窗體可以作為過(guò)程的參數(shù)參考答案：C3-15、以下變量名中合法的是()。A)*2－1B)printC)str_nD)2*3-16、把數(shù)學(xué)表達(dá)式表示為正確的VB表達(dá)式應(yīng)該是()。A)(5*＋3)/(2y－6)B)C)D)(**5＋3)/(y*2－6)參考答案：D3-17、下面有關(guān)標(biāo)準(zhǔn)模塊的表達(dá)中，錯(cuò)誤的選項(xiàng)是()。A)標(biāo)準(zhǔn)模塊不完全由代碼組成，還可以有窗體B)標(biāo)準(zhǔn)模塊中的Private過(guò)程不能被工程中的其他模塊調(diào)用C)標(biāo)準(zhǔn)模塊的文件擴(kuò)展名為.basD)標(biāo)準(zhǔn)模塊中的全局變量可以被工程中的任何模塊引用參考答案：A3-18、可以產(chǎn)生30～50(含30和50)之間的隨機(jī)整數(shù)的表達(dá)式是()。A)Int(Rnd*21＋30)B)Int(Rnd*20＋30)C)Int(Rnd*50－Rnd*30)D)Int(Rnd*30＋50)參考答案：A3-19、在程序運(yùn)行時(shí)，下面的表達(dá)中正確的選項(xiàng)是()。A)用鼠標(biāo)右鍵單擊窗體中無(wú)控件的局部，會(huì)執(zhí)行窗體的Form_Load事件過(guò)程B)用鼠標(biāo)左鍵單擊窗體的標(biāo)題欄，會(huì)執(zhí)行窗體的Form_Click事件過(guò)程C)只裝入而不顯示窗體，也會(huì)執(zhí)行窗體的Form_Load事件過(guò)程D)裝入窗體后，每次顯示該窗體時(shí)，都會(huì)執(zhí)行窗體的Form_Click事件過(guò)程參考答案：C3-20、以下有關(guān)文件的表達(dá)中，正確的選項(xiàng)是()。A)以O(shè)utput方式翻開一個(gè)不存在的文件時(shí)，系統(tǒng)將顯示出錯(cuò)信息B)以Append方式翻開的文件，既可以進(jìn)展讀操作，也可以進(jìn)展寫操作C)在隨機(jī)文件中，每個(gè)記錄的長(zhǎng)度是固定的D)無(wú)論是順序文件還是隨機(jī)文件，其翻開的語(yǔ)句和翻開方式都是完全一樣的參考答案：C3-21、假設(shè)看到程序中有以下事件過(guò)程，則可以肯定的是，當(dāng)程序運(yùn)行時(shí)()。PrivateSubClick_MouseDown(ButtonAsInteger，ShiftAsInteger，*AsSingle，YAsSingle)Print"VBProgram"EndSubA)用鼠標(biāo)左鍵單擊名稱為"mand1"的命令按鈕時(shí)，執(zhí)行此過(guò)程B)用鼠標(biāo)左鍵單擊名稱為"MouseDown"的命令按鈕時(shí)，執(zhí)行此過(guò)程C)用鼠標(biāo)右鍵單擊名稱為"MouseDown"的控件時(shí)，執(zhí)行此過(guò)程D)用鼠標(biāo)左鍵或右鍵單擊名稱為"Click"的控件時(shí)，執(zhí)行此過(guò)程參考答案：D3-22、窗體上有名稱為mand1的命令按鈕和名稱為Te*t1的文本框PrivateSubmand1_Click()Te*t1.Te*t＝"程序設(shè)計(jì)"Te*t1.SetFocusEndSubPrivateSubTe*t1_GotFocus()Te*t1.Te*t＝"等級(jí)考試"EndSub運(yùn)行以上程序，單擊命令按鈕后()。A)文本框中顯示的是"程序設(shè)計(jì)"，且焦點(diǎn)在文本框中B)文本框中顯示的是"等級(jí)考試"，且焦點(diǎn)在文本框中C)文本框中顯示的是"程序設(shè)計(jì)"，且焦點(diǎn)在命令按鈕上D)文本框中顯示的是"等級(jí)考試"，且焦點(diǎn)在命令按鈕上參考答案：B3-23、設(shè)窗體上有名稱為Option1的單項(xiàng)選擇按鈕，且程序中有語(yǔ)句：IfOption1.Value＝TrueThen下面語(yǔ)句中與該語(yǔ)句不等價(jià)的是()。A)IfOption1.ValueThenB)IfOption1＝TrueThenC)IfValue＝TrueThenD)IfOption1Then參考答案：C3-24、設(shè)窗體上有1個(gè)水平滾動(dòng)條，已經(jīng)通過(guò)屬性窗口把它的Ma*屬性設(shè)置為1，Min屬性設(shè)置為100。下面表達(dá)中正確的選項(xiàng)是()。A)程序運(yùn)行時(shí)，假設(shè)使?jié)L動(dòng)塊向左移動(dòng)，滾動(dòng)條的Value屬性值就增加B)程序運(yùn)行時(shí)，假設(shè)使?jié)L動(dòng)塊向左移動(dòng)，滾動(dòng)條的Value屬性值就減少C)由于滾動(dòng)條的Ma*屬性值小于Min屬性值，程序會(huì)出錯(cuò)D)由于滾動(dòng)條的Ma*屬性值小于Min屬性值，程序運(yùn)行時(shí)滾動(dòng)條的長(zhǎng)度會(huì)縮為一點(diǎn)，滾動(dòng)塊無(wú)法移動(dòng)參考答案：A3-25、以下關(guān)于通用對(duì)話框monDialog1的表達(dá)中，錯(cuò)誤的選項(xiàng)是()。A)只要在"翻開"對(duì)話框中選擇了文件，并單擊"翻開"按鈕，就可以將選中的文件翻開B)使用monDialog1.ShowColor方法，可以顯示"顏色"對(duì)話框C)CancelError屬性用于控制用戶單擊"取消"按鈕關(guān)閉對(duì)話框時(shí)，是否顯示出錯(cuò)警告D)在顯示"字體"對(duì)話框前，必須先設(shè)置monDialog1的Flags屬性，否則會(huì)出錯(cuò)參考答案：A3-26、在利用菜單編輯器設(shè)計(jì)菜單時(shí)，為了把組合鍵"Alt＋*"設(shè)置為"退出(*)"菜單項(xiàng)的訪問(wèn)鍵，可以將該菜單項(xiàng)的標(biāo)題設(shè)置為()。A)退出(*&)B)退出(&*)C)退出(*#)D)退出(#*)3-27、下面哪個(gè)屬性肯定不是框架控件的屬性()。A)Te*tB)CaptionC)LeftD)Enabled參考答案：A3-28、窗體上有一個(gè)名稱為Option1的單項(xiàng)選擇按鈕數(shù)組，程序運(yùn)行時(shí)，當(dāng)單擊*個(gè)單項(xiàng)選擇按鈕時(shí)，會(huì)調(diào)用下面的事件過(guò)程：PrivateSubOption1_Click(Inde*AsInteger)…EndSub下面關(guān)于此過(guò)程的參數(shù)Inde*的表達(dá)中正確的選項(xiàng)是()。A)Inde*為1表示單項(xiàng)選擇按鈕被選中，為0表示未選中B)Inde*的值可正可負(fù)C)Inde*的值用來(lái)區(qū)分哪個(gè)單項(xiàng)選擇按鈕被選中D)Inde*表示數(shù)組中單項(xiàng)選擇按鈕的數(shù)量參考答案：C3-29、設(shè)窗體中有一個(gè)文本框Te*t1，假設(shè)在程序中執(zhí)行了Te*t1.SetFocus，則觸發(fā)()。A)Te*t1的SetFocus事件B)Te*t1的GotFocus事件C)Te*t1的LostFocus事件D)窗體的GotFocus事件參考答案：B3-30、窗體上有兩個(gè)水平滾動(dòng)條HV、HT，還有一個(gè)文本框Te*t1和一個(gè)標(biāo)題為"計(jì)算"的命令按鈕mand1，并編寫了以下程序：PrivateSubmand1_Click()Callcalc(HV.Value，HT.Value)EndSubPublicSubcalc(*AsInteger，yAsInteger)Te*t1.Te*t＝**yEndSub運(yùn)行程序，單擊"計(jì)算"按鈕，可根據(jù)速度與時(shí)間計(jì)算出距離，并顯示計(jì)算結(jié)果。對(duì)以上程序，以下表達(dá)中正確的選項(xiàng)是()。A)過(guò)程調(diào)用語(yǔ)句不對(duì)，應(yīng)為calc(HV，HT)B)過(guò)程定義語(yǔ)句的形式參數(shù)不對(duì)，應(yīng)為Subcalc(*AsControl，yAsControl)C)計(jì)算結(jié)果在文本框中顯示出來(lái)D)程序不能正確運(yùn)行參考答案：C3-31、現(xiàn)有如下程序：PrivateSubmand1_Click()s＝0Fori＝1To5s＝s＋f(5＋i)Ne*tPrintsEndSubPublicFunctionf(*AsInteger)If*>＝10Thent＝*＋1Elset＝*＋2EndIff＝tEndFunction運(yùn)行程序，則窗體上顯示的是()。A)38B)49C)61D)70參考答案：B3-32、窗體上有一個(gè)名稱為Picture1的圖片框控件，一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽控件，如下圖。現(xiàn)有如下程序：PublicSubdisplay(*AsControl)IfTypeOf*IsLabelThen*Caption＝"計(jì)算機(jī)等級(jí)考試"Else*Picture＝LoadPicture("pic.jpg")EndIfEndSubPrivateSubLabel1_Click()Calldisplay(Label1)EndSubPrivateSubPicture1_Click()Calldisplay(Picture1)EndSub對(duì)以上程序，以下表達(dá)中錯(cuò)誤的選項(xiàng)是()。A)程序運(yùn)行時(shí)會(huì)出錯(cuò)B)單擊圖片框，在圖片框中顯示一幅圖片C)過(guò)程中的*是控件變量D)單擊標(biāo)簽，在標(biāo)簽中顯示一串文字參考答案：A3-33、窗體上有兩個(gè)名稱分別為Te*t1、Te*t2的文本框。Te*t1的KeyUp事件過(guò)程如下：PrivateSubTe*t1_KeyUp(KeyCodeAsInteger，ShiftAsInteger)DimcAsStringc＝UCase(Chr(KeyCode))Te*t2.Te*t＝Chr(Asc(c)＋2)EndSub當(dāng)向文本框Te*t1中輸入小寫字母a時(shí)，文本框Te*t2中顯示的是()。A)AB)aC)CD)c參考答案：C3-34、設(shè)窗體上有一個(gè)文本框Te*t1和一個(gè)命令按鈕mand1，并有以下事件過(guò)程：PrivateSubmand1_Click()DimsAsString，chAsStrings＝""Fork＝1ToLen(Te*t1)ch＝Mid(Te*t1，k，1)s＝ch＋sNe*tkTe*t1.Te*t＝sEndSub程序執(zhí)行時(shí)，在文本框中輸入"Basic"，然后單擊命令按鈕，則Te*t1中顯示的是()。A)BasicB)cisaBC)BASICD)CISAB參考答案：B3-35、*人編寫了如下程序，用來(lái)求10個(gè)整數(shù)(整數(shù)從鍵盤輸入)中的最大值：PrivateSubmand1_Click()Dima(10)AsInteger，ma*AsIntegerFork＝1To10a(k)＝InputBo*("輸入一個(gè)整數(shù)")Ne*tkma*＝0Fork＝1To10Ifa(k)>ma*Thenma*＝a(k)EndIfNe*tkPrintma*EndSub運(yùn)行程序時(shí)發(fā)現(xiàn)，當(dāng)輸入10個(gè)正數(shù)時(shí)，可以得到正確結(jié)果，但輸入10個(gè)負(fù)數(shù)時(shí)結(jié)果是錯(cuò)誤的，程序需要修改。下面的修改中可以得到正確運(yùn)行結(jié)果的是()。A)把Ifa(k)>ma*Then改為Ifa(k)<ma*ThenB)把ma*＝a(k)改為a(k)＝ma*C)把第2個(gè)循環(huán)語(yǔ)句Fork＝1To10改為Fork＝2To10D)把ma*＝0改為ma*＝a(10)參考答案：D3-36、在4行3列的全局?jǐn)?shù)組score(4,3)中存放了4個(gè)學(xué)生3門課程的考試成績(jī)(均為整數(shù))?，F(xiàn)需要計(jì)算每個(gè)學(xué)生的總分，*人編寫程序如下：OptionBase1PrivateSubmand1_Click()DimsumAsIntegersum＝0Fori＝1To4Forj＝1To3sum＝sum＋score(i，j)Ne*tjPrint"第"&i&"個(gè)學(xué)生的總分是："；sumNe*tiEndSub運(yùn)行此程序時(shí)發(fā)現(xiàn)，除第1個(gè)人的總分計(jì)算正確外，其他人的總分都是錯(cuò)誤的，程序需要修改。以下修改方案中正確的選項(xiàng)是()。A)把外層循環(huán)語(yǔ)句Fori＝1To4改為Fori＝1To3內(nèi)層循環(huán)語(yǔ)句Forj＝1To3改為Forj＝1To4B)把sum＝0移到Fori＝1To4和Forj＝1To3之間C)把sum＝sum＋score(i，j)改為sum＝sum＋score(j，i)D)把sum＝sum＋score(i，j)改為sum＝score(i，j)參考答案：B3-37、窗體上有mand1、mand2兩個(gè)命令按鈕。現(xiàn)編寫以下程序：OptionBase0Dima()AsInteger，mAsIntegerPrivateSubmand1_Click()m＝InputBo*("請(qǐng)輸入一個(gè)正整數(shù)")ReDima(m)EndSubPrivateSubmand2_Click()m＝InputBo*("請(qǐng)輸入一個(gè)正整數(shù)")ReDima(m)EndSub運(yùn)行程序時(shí)，單擊mand1后輸入整數(shù)10，再單擊mand2后輸入整數(shù)5，則數(shù)組a中元素的個(gè)數(shù)是()。A)5B)6C)10D)11參考答案：B3-38、在窗體上畫一個(gè)命令按鈕和一個(gè)標(biāo)簽，其名稱分別為mand1和Label1，然后編寫如下事件過(guò)程：PrivateSubmand1_Click()Counter＝0Fori＝1To4Forj＝6To1Step－2Counter＝Counter＋1Ne*tjNe*tiLabel1.Caption＝Str(Counter)EndSub程序運(yùn)行后，單擊命令按鈕，標(biāo)簽中顯示的內(nèi)容是()。A)11B)12C)16D)203-39、在窗體上畫一個(gè)名為mand1的命令按鈕，然后編寫以下程序：PrivateSubmand1_Click()DimM(10)AsIntegerFork＝1To10M(k)＝12－kNe*tk*＝8PrintM(2＋M(*))EndSub運(yùn)行程序，單擊命令按鈕，在窗體上顯示的是()。A)6B)5C)7D)8參考答案：A3-40、在窗體上畫一個(gè)名稱為mand1的命令按鈕，再畫兩個(gè)名稱分別為L(zhǎng)abel1、Label2的標(biāo)簽，然后編寫如下程序代碼：Private*AsIntegerPrivateSubmand1_Click()*＝5：Y＝3Callproc(*，Y)Label1.Caption＝*Label2.Caption＝Y(jié)EndSubPrivateSubproc(aAsInteger，ByValbAsInteger)*＝a*aY＝b＋bEndSub程序運(yùn)行后，單擊命令按鈕，則兩個(gè)標(biāo)簽中顯示的內(nèi)容分別是()。A)25和3B)5和3C)25和6D)5和6參考答案：A4-11、在VB集成環(huán)境中要完畢一個(gè)正在運(yùn)行的工程，可單擊工具欄上的一個(gè)按鈕，這個(gè)按鈕是()。A)B)C)D)參考答案：D4-12、設(shè)*是整型變量，與函數(shù)IIf(*>0，－*，*)有一樣結(jié)果的代數(shù)式是()。A)|*|B)－|*|C)*D)－*參考答案：B4-13、設(shè)窗體文件中有下面的事件過(guò)程：PrivateSubmand1_Click()Dimsa%＝100PrintaEndSub其中變量a和s的數(shù)據(jù)類型分別是()。A)整型，整型B)變體型，變體型C)整型，變體型D)變體型，整型參考答案：C4-14、下面不能在信息框中輸出"VB"的是()。A)MsgBo*"VB"B)*＝MsgBo*("VB")C)MsgBo*("VB")D)CallMsgBo*"VB"參考答案：D4-15、下面關(guān)于標(biāo)準(zhǔn)模塊的表達(dá)中錯(cuò)誤的選項(xiàng)是()。A)標(biāo)準(zhǔn)模塊中可以聲明全局變量B)標(biāo)準(zhǔn)模塊中可以包含一個(gè)SubMain過(guò)程，但此過(guò)程不能被設(shè)置為啟動(dòng)過(guò)程C)標(biāo)準(zhǔn)模塊中可以包含一些Public過(guò)程D)一個(gè)工程中可以含有多個(gè)標(biāo)準(zhǔn)模塊參考答案：B4-16、下面正確使用動(dòng)態(tài)數(shù)組的是()。A)B)C)D)參考答案：A4-17、下面是求最大公約數(shù)的函數(shù)的首部：Functiongcd(ByVal*AsInteger，ByValyAsInteger)AsInteger假設(shè)要輸出8、12、16這3個(gè)數(shù)的最大公約數(shù)，下面正確的語(yǔ)句是()。A)Printgcd(8,12)，gcd(12,16)，gcd(16,8)B)Printgcd(8,12,16)C)Printgcd(8)，gcd(12)，gcd(16)D)Printgcd(8，gcd(12,16))參考答案：D4-18、假設(shè)在窗體模塊的聲明局部聲明了如下自定義類型和數(shù)組：PrivateTyperecCodeAsIntegerCaptionAsStringEndTypeDimarr(5)Asrec則下面的輸出語(yǔ)句中正確的選項(xiàng)是()。A)Printarr.Code(2)，arr.Caption(2)B)Printarr.Code，arr.CaptionC)Printarr(2).Code，arr(2).CaptionD)PrintCode(2)，Caption(2)參考答案：C4-19、下面程序運(yùn)行時(shí)，假設(shè)輸入395，則輸出結(jié)果是()。PrivateSubmand1_Click()Dim*%*＝InputBo*("請(qǐng)輸入一個(gè)3位整數(shù)")Print*Mod10，*\100，(*Mod100)\10EndSubA)395B)539C)593D)359參考答案：B4-20、*人編寫了下面的程序，希望能把Te*t1文本框中的內(nèi)容寫到out.t*t文件中：PrivateSubmand1_Click()Open"out.t*t"ForOutputAs#2Print"Te*t1"Close#2EndSub調(diào)試時(shí)發(fā)現(xiàn)沒有到達(dá)目的，為實(shí)現(xiàn)上述目的，應(yīng)做的修改是()。A)把Print"Te*t1"改為Print#2，Te*t1B)把Print"Te*t1"改為PrintTe*t1C)把Print"Te*t1"改為Write"Te*t1"D)把所有#2改為#1參考答案：A4-21、VB中有3個(gè)鍵盤事件：KeyPress、KeyDown、KeyUp，假設(shè)光標(biāo)在Te*t1文本框中，則每輸入一個(gè)字母()。A)這3個(gè)事件都會(huì)觸發(fā)B)只觸發(fā)KeyPress事件C)只觸發(fā)KeyDown、KeyUp事件D)不觸發(fā)其中任何一個(gè)事件參考答案：A4-22、設(shè)窗體的名稱為Form1，標(biāo)題為Win，則窗體的MouseDown事件過(guò)程的過(guò)程名是()。A)Form1_MouseDownB)Win_MouseDownC)Form_MouseDownD)MouseDown_Form1參考答案：C4-23、要求當(dāng)鼠標(biāo)在圖片框P1中移動(dòng)時(shí)，立即在圖片框中顯示鼠標(biāo)的位置坐標(biāo)。下面能正確實(shí)現(xiàn)上述功能的事件過(guò)程是()。A)PrivateSubP1_MouseMove(ButtonAsInteger，ShiftAsInteger，*AsSingle，YAsSingle)Print*，YEndSubB)PrivateSubP1_MouseDown(ButtonAsInteger，ShiftAsInteger，*AsSingle，YAsSingle)Picture.Print*，YEndSubC)PrivateSubP1_MouseMove(ButtonAsInteger，ShiftAsInteger，*AsSingle，YAsSingle)P1.Print*，YEndSubD)PrivateSubForm_MouseMove(ButtonAsInteger，ShiftAsInteger，*AsSingle，YAsSingle)P1.Print*，YEndSub參考答案：C4-24、為了使窗體的大小可以改變，必須把它的BorderStyle屬性設(shè)置為()。A)1B)2C)3D)4參考答案：B4-25、為了對(duì)多個(gè)控件執(zhí)行操作，必須選中這些控件。以下不能選中多個(gè)控件的操作是()。A)按住Alt鍵，不要松開，然后單擊每個(gè)要選中的控件B)按住Shift鍵，不要松開，然后單擊每個(gè)要選中的控件C)按住Ctrl鍵，不要松開，然后單擊每個(gè)要選中的控件D)拖動(dòng)鼠標(biāo)畫出一個(gè)虛線矩形，使所選中的控件位于這個(gè)矩形內(nèi)參考答案：A4-26、在窗體上畫一個(gè)文本框，其名稱為Te*t1，為了在程序運(yùn)行后隱藏該文本框，應(yīng)使用的語(yǔ)句為()。A)Te*t1.ClearB)Te*t1.Visible＝FalseC)Te*t1.HideD)Te*t1.Enabled＝False參考答案：B4-27、以下能夠觸發(fā)文本框Change事件的操作是()。A)文本框失去焦點(diǎn)B)文本框獲得焦點(diǎn)C)設(shè)置文本框的焦點(diǎn)D)改變文本框的內(nèi)容參考答案：D4-28、假定在圖片框Picture1中裝入了一個(gè)圖片，在程序運(yùn)行中，為了去除該圖片(注意，去除圖片，而不是刪除圖片框)，應(yīng)采用的正確方法是()。A)單擊圖片框，然后按Del鍵B)執(zhí)行語(yǔ)句Picture1.Picture＝LoadPicture("")C)執(zhí)行語(yǔ)句Picture1.Picture＝""D)執(zhí)行語(yǔ)句：Picture1.Cls參考答案：B4-29、要想使列表框只允許單項(xiàng)選擇列表項(xiàng)，應(yīng)設(shè)置的屬性為()。A)StyleB)SelectedC)MultiSelectD)Enabled參考答案：C4-30、在窗體上畫一個(gè)名稱為Te*t1的文本框和一個(gè)名稱為mand1的命令按鈕，然后編寫如下事件過(guò)程：PrivateSubmand1_Click()DimiAsInteger，nAsIntegerFori＝0To50i＝i＋3n＝n＋1Ifi>10ThenE*itForNe*tTe*t1.Te*t＝Str(n)EndSub程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是()。A)2B)3C)4D)5參考答案：B4-31、在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程：PrivateSubmand1_Click()DimI，NumRandomizeDoForI＝1To1000Num＝Int(Rnd*100)PrintNum；SelectCaseNumCase12E*itForCase58E*itDoCase65，68，92EndEndSelectNe*tILoopEndSub上述事件過(guò)程執(zhí)行后，以下描述中正確的選項(xiàng)是()。A)Do循環(huán)執(zhí)行的次數(shù)為1000次B)在For循環(huán)中產(chǎn)生的隨機(jī)數(shù)小于或等于100C)當(dāng)所產(chǎn)生的隨機(jī)數(shù)為12時(shí)完畢所有循環(huán)D)當(dāng)所產(chǎn)生的隨機(jī)數(shù)為65、68或92時(shí)窗體關(guān)閉、程序完畢參考答案：D4-32、在窗體上畫一個(gè)名為mand1的命令按鈕，然后編寫如下代碼：OptionBase1PrivateSubmand1_Click()Dimaa＝Array(1，2，3，4)j＝1Fori＝4To1Step－1s＝s＋a(i)*jj＝j(luò)*10Ne*tiPrintsEndSub運(yùn)行上面的程序，其輸出結(jié)果是()。A)1234B)12C)34D)4321參考答案：A4-33、設(shè)有如下通用過(guò)程：PublicFunctionFun(*StrAsString)AsStringDimtStrAsString，strLAsIntegertStr＝""strL＝Len(*Str)i＝1DoWhilei<＝strL/2tStr＝tStr&Mid(*Str，i，1)&Mid(*Str，strL－i＋1，1)i＝i＋1LoopFun＝tStrEndFunction在窗體上畫一個(gè)名稱為mand1的命令按鈕。然后編寫如下的事件過(guò)程：PrivateSubmand1_Click()DimS1AsStringS1＝"abcdef"PrintUCase(Fun(S1))EndSub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是()。A)ABCDEFB)abcdefC)AFBECDD)DEFABC參考答案：C4-34、*人為計(jì)算n！(0<n<＝12)編寫了下面的函數(shù)過(guò)程：PrivateFunctionfun(nAsInteger)AsLongDimpAsLongp＝1Fork＝n－1To2Step－1p＝p*kNe*tkfun＝pEndFunction在調(diào)試時(shí)發(fā)現(xiàn)該函數(shù)過(guò)程產(chǎn)生的結(jié)果是錯(cuò)誤的，程序需要修改。下面的修改方案中有3種是正確的，錯(cuò)誤的方案是()。A)把p＝1改為p＝nB)把Fork＝n－1To2Step－1改為Fork＝1Ton－1C)把Fork＝n－1To2Step－1改為Fork＝1TonD)把Fork＝n－1To2Step－1改為Fork＝2Ton4-35、假定有以下函數(shù)過(guò)程：FunctionFun(SAsString)AsStringDims1AsStringFori＝1ToLen(S)s1＝LCase(Mid(S，i，1))＋s1Ne*tiFun＝s1EndFunction在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程：PrivateSubmand1_Click()DimStr1AsString，Str2AsStringStr1＝InputBo*("請(qǐng)輸入一個(gè)字符串")Str2＝Fun(Str1)PrintStr2EndSub程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中輸入字符串"abcdefg"，則單擊"確定"按鈕后在窗體上的輸出結(jié)果為()。A)ABCDEFGB)abcdefgC)GFEDCBAD)gfedcba參考答案：D4-36、為計(jì)算an的值，*人編寫了函數(shù)power如下：PrivateFunctionpower(aAsInteger，nAsInteger)AsLongDimsAsLongp＝aFork＝1Tonp＝p*aNe*tkpower＝pEndFunction在調(diào)試時(shí)發(fā)現(xiàn)是錯(cuò)誤的，例如Printpower(5,4)的輸出應(yīng)該是625，但實(shí)際輸出是3125。程序需要修改。下面的修改方案中有3個(gè)是正確的，錯(cuò)誤的一個(gè)是()。A)把Fork＝1Ton改為Fork＝2TonB)把p＝p*a改為p＝p^nC)把Fork＝1Ton改為Fork＝1Ton－1D)把p＝a改為p＝1參考答案：B4-37、*人編寫了下面的程序：PrivateSubmand1_Click()DimaAsInteger，bAsIntegera＝InputBo*("請(qǐng)輸入整數(shù)")b＝InputBo*("請(qǐng)輸入整數(shù)")proaprobCallpro(a＋b)EndSubPrivateSubpro(nAsInteger)While(n>0)PrintnMod10；n＝n\10WendPrintEndSub此程序功能是：輸入2個(gè)正整數(shù)，反序輸出這2個(gè)數(shù)的每一位數(shù)字，再反序輸出這2個(gè)數(shù)之和的每一位數(shù)字。例如：假設(shè)輸入123和234，則應(yīng)該輸出：321432753但調(diào)試時(shí)發(fā)現(xiàn)只輸出了前2行(即2個(gè)數(shù)的反序)，而未輸出第3行(即2個(gè)數(shù)之和的反序)，程序需要修改。下面的修改方案中正確的選項(xiàng)是()。A)把過(guò)程pro的形式參數(shù)nAsInteger改為ByValnAsIntegerB)把Callpro(a＋b)改為proa＋bC)把n＝n\10改為n＝n/10D)在prob語(yǔ)句之后增加語(yǔ)句c%＝a＋b，再把Callpro(a＋b)改為proc參考答案：A4-38、在窗體上畫一個(gè)名稱為mand1的命令按鈕，然后編寫如下事件過(guò)程：PrivateSubmand1_Click()c＝1234c1＝Trim(Str(c))Fori＝1To4PrintNe*tEndSub程序運(yùn)行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容：1121231234則在橫線處應(yīng)填入的內(nèi)容為()。A)Right(c1，i)B)Left(c1，i)C)Mid(c1，i，1)D)Mid(c1，i，i)參考答案：B4-39、假定有以下程序段：Fori＝1To3Forj＝5To1Step－1Printi*jNe*tjNe*ti則語(yǔ)句Printi*j的執(zhí)行次數(shù)是()。A)15B)16C)17D)18參考答案：A4-40、在窗體上畫兩個(gè)文本框(名稱分別為Te*t1和Te*t2)和一個(gè)命令按鈕(名稱為mand1)，然后編寫如下事件過(guò)程：PrivateSubmand1_Click()*＝0DoWhile*<50*＝(*＋2)*(*＋3)n＝n＋1LoopTe*t1.Te*t＝Str(n)Te*t2.Te*t＝Str(*)EndSub程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為()。A)1和0B)2和72C)3和50D)4和168參考答案：B5-11、以下表達(dá)中正確的選項(xiàng)是()。A)在屬性窗口只能設(shè)置窗體的屬性B)在屬性窗口只能設(shè)置控件的屬性C)在屬性窗口可以設(shè)置窗體和控件的屬性D)在屬性窗口可以設(shè)置任何對(duì)象的屬性參考答案：C5-12、以下翻開"代碼窗口"的操作中錯(cuò)誤的選項(xiàng)是()。A)按F4鍵B)單擊"工程資源管理器"窗口中的"查看代碼"按鈕C)雙擊已建立好的控件D)執(zhí)行"視圖"菜單中的"代碼窗口"命令參考答案：A5-13、以下表達(dá)中錯(cuò)誤的選項(xiàng)是()。A)VisualBasic是事件驅(qū)動(dòng)型可視化編程工具B)VisualBasic應(yīng)用程序不具有明顯的開場(chǎng)和完畢語(yǔ)句C)VisualBasic工具箱中的所有控件都具有寬度(Width)和高度(Height)屬性D)VisualBasic中控件的*些屬性只能在運(yùn)行時(shí)設(shè)置參考答案：C5-14、設(shè)a＝2，b＝3，c＝4，d＝5，以下表達(dá)式的值是()。A)TrueB)FalseC)－1D)1參考答案：B5-15、在標(biāo)準(zhǔn)模塊中用Public關(guān)鍵字定義的變量，其作用域?yàn)?)。A)本模塊所有過(guò)程B)整個(gè)工程C)所有窗體D)所有標(biāo)準(zhǔn)模塊參考答案：B5-16、假定有如下語(yǔ)句：answer$＝MsgBo*("String1"，，"String2"，"String3"，2)執(zhí)行該語(yǔ)句后，將顯示一個(gè)信息框，單擊其中的"確定"按鈕，則answer$的值為()。A)String1B)String2C)String3D)1參考答案：D5-17、設(shè)a＝10，b＝5，c＝1，執(zhí)行語(yǔ)句Printa>b>c后，窗體上顯示的是()。A)TrueB)FalseC)11D)出錯(cuò)參考答案：B5-18、為了通過(guò)傳值方式來(lái)傳送過(guò)程參數(shù)，在函數(shù)聲明局部應(yīng)使用的關(guān)鍵字為()。A)ValueB)ByValC)ByRefD)Ref