2002年4月二級VB筆試試題一、選擇題1?35題每題2分，共70分。下列各題A)、B)、C)、D)四個選項中，只有一個選擇是正確的，請將正確選項涂寫在答題卡相應(yīng)位置匕答在試卷上不得分。.下列不能打開屬性窗口的操作是()oA)執(zhí)行“視圖”菜單中的“屬性窗口”命令B)按F4鍵C)按Ctrl+TD)單擊工具欄上的“屬性窗口”按鈕。.下列可以打開立即窗口的操作是().A)Ctrl+DB)Ctrl+EC)Ctrl+FD)Ctrl+G.InputBox函數(shù)返回值的類型為()=A)數(shù)值B)字符串C)變體D)數(shù)值或字符串(視輸入的數(shù)據(jù)而定).可以同時刪除字符串前導(dǎo)和尾部空白的函數(shù)是()oA)LtrimB)RtrimC)TrimD)Mid.表達式4+56*7/8Mod9的值是().A)4B)5C)6D)7.如果在立即窗口中執(zhí)行以下操作：a=8<CR> (vCR>是回車鍵，下同)b=9<CR>printa>b<CR>則輸出結(jié)果是()oA)-1B)0C)FalseD)True.以下語句的輸出結(jié)果是()oPrintFormat$(32548.5,“000,000.00")A)32548.5B)32,548.50032,548.50D)32,548.50.執(zhí)行以下程序段后，變量c$的值為()oa$="VisualBasicPrograming"b$="Quick”c$=b$&UCase(Mid$(a$,7,6))&Right$(a$,ll)A)VisualBASICProgramingB)QuickBasicProgramingC)QUICKBasicProgramingD)QuickBASICPrograming.為了在按下回車鍵時執(zhí)行某個命令按鈕的事件過程，需要把該命令按鈕的一個屬性設(shè)置為True,這個屬性是()oA)ValueB)DefaultC)CancelD)Enabled.為了把焦點移到某個指定的控件，所使用的方法是()。A)SetFocusB)VisibleC)RefreshD)GetFocus.設(shè)a=6,則執(zhí)行x=Hf(a>5,-l,0)后，x的值為(),>A)5B)600D)-1.執(zhí)行下面的程序段后，x的值為()。x=5Fori=lTo20Step2x=x+i5NextiA)21B)22023D)24.在窗體上畫一個命令按鈕，然后編寫如下事件過程：PrivateSubCommandl_Click()Fori=lTo4x=4Forj=1To3 x=3Fork=lTo2x=x+6NextkNextjNextiPrintxEndSub程序運行后，單擊命令按鈕，輸出結(jié)果是()。A)7B)150157D)538.在窗體上畫一個命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()x=0DoUntilx=-la=InputBox(“請輸入A的值”)a=Val(a)b=InputBox(“請輸入B的值”)b=Val(b)x=InputBox("請輸入x的值”)x=Val(x)a=a+b+xLoopPrintaEndSub程序運行后，單擊命令按鈕，依次在輸入對話框中輸入5、4、3、2、1、?1,則輸出結(jié)果為()oA)2B)3C)14D)15.在窗體(Name屬性為Form1)上畫兩個文本框(其Name屬性分別為Textl和Text2)和一個命令按鈕(Name屬性為Commandl),然后編寫如下兩個事件過程：PrivateSubCommand1_Click()a=Text1.Text+Text2.TextPrintaEndSubPrivateSubForm_Load()Textl.Text=m,Text2.Text=,u,Endsub程序運行后，在第一個文本框(Textl)和第二個文本框(Text2)中分別輸入123和321,然后單擊命令按鈕，則輸出結(jié)果為()oA)444B)3211230123321D)132231.閱讀下面的程序段：Fori=lTo3Forj=lToiFork=jTo3a=a+lNextkNextjNexti執(zhí)行上面的三重循環(huán)后，a的值為()。A)3B)9014D)21.在窗體上畫一個文本框(其中Name屬性為Textl),然后編寫如下事件過程：PrivateSubForm_Load()Textl.Text="HTextl.SetFocusFori=lTo10Sum=Sum+iNextiTextl.Text=SumEndSub上述程序的運行結(jié)果是(〉。A)在文本框Textl中輸出55B)在文本框Text1中輸出0C)出錯D)在文本框Textl中輸出不定值.在窗體上畫兩個文本框(其Name屬性分別為Textl和Text2)和一個命令按鈕(其Name屬性為Command]),然后編寫如下事件過程：PrivateSubCommandl_Click()x=0DoWhilex<50x=(x+2)*(x+3)n=n+lLoopTextl.Text=Str(n)Text2.Text=Str(x)EndSub程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別為()。A)1^0B)2和72C)3和50D)4和168.用下面語句定義的數(shù)組的元素個數(shù)是()。DimA(-3To5)AsIntegerA)6B)708D)9.以下程序的輸出結(jié)果是()。OptionBase1PrivateSubCommand1_Click()Dima(10),p(3)AsIntegerk=5Fori=lTo10a(i)=iNextiFori=lTo3p(i)=a(i*i)NextiFori=lTo3k=k+p(i)*2NextiPrintkEndsubA)33B)28035D)37.在窗體上畫一個命令按鈕，然后編寫如下事件過程：OptionBase1PrivateSubCommandl_Click()Dimaa=Array(l,2,3,4)j-1Fori=4ToStep-1s=s+a(i)*jj=j*10NextiPrintsEndSub運行上面的程序，單擊命令按鈕，其輸出結(jié)果是()oA)4321B)12034D)1234.在窗體上畫一個命令按鈕(其Name屬性為Commandl),然后編寫如下代碼:OptionBase1PrivateSubCommandl_Click()Dima(4,4)Fori=1To4Forj=1To4a(i,j)=(i-l)*3+jNextjNextiFori=3To4Forj=3To4Printa(j,i)；NextjPrintNextiEndSub程序運行后，單擊命令按鈕，其輸出結(jié)果為()。A)69 B)710

7 1008119127 100811912811D)9121013.假定有如下的Sub過程：SubS(xAsSingle,yAsSingle)x=t/yy=tModyEndSub在窗體上畫一個命令按鈕，然后編寫如下事件過程:PrivateSubCommandl_Click()DimaAsSingleDimbAsSinglea=5b=4Sa,bPrinta,bEndSub程序運行后，單擊命令按鈕，輸出結(jié)果為()。A)54B)11C)1.254D)1.251.閱讀程序：FunctionF(aAsInteger)b=0Staticcb=b+lc=c+1F=a+b+cEndFunctionPrivateSubCommandl_Click()DimaAsIntegera=2Fori=1To3PrintF(a)NextiEndSub運行上面的程序，單擊命令按鈕，輸出結(jié)果為()oA)4B)4C)4D)44 5 674 6 8925.閱讀程序：SubsubP(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubCommandl_Click()Dima(lTo4)AsIntegera(1)=5a(2)=6a⑶=7a(4)=8subPa()Fori=1To4Printa(i)NextiEndSub運行上面的程序，單擊命令按鈕，輸出結(jié)果為()oA)2B)5C)10D)出錯TOC\o"1-5"\h\z6 127 148 16.下列不能打開菜單編輯器的操作是()。A)按Ctrl+EB)單擊工具欄中的“菜單編輯器”按鈕 C)執(zhí)行“工具”菜單中的“菜單編輯器”命令D)按Shift+Alt+M.假定有一個菜單項，名為Menuitem,為了在運行時使該菜單項失效(變灰)，應(yīng)使用的語句為()oA)Menuitem.Enabled=FalseB)Menuitem.Enabled=TrueC)Menuitem.Visible=TrueD)Menuitem.Visible=False.在程序運行期間，如果拖動滾動條上的滾動塊，則觸發(fā)的滾動條事件是()oA)MoveB)ChangeC)ScrollD)GetFocus.假定窗體上有一個標簽，名為LabelL為了使該標簽透明并且沒有邊框，則正確的屬性設(shè)置為()oLabel1.BackStyle=OLabel1.Borderstyle=0Label1.BackStyle=1Label1.Borderstyle=1Label1.BackStyle=TrueLabel1.BorderStyle=TrueLabel1.BackStyle=FalseLabel1.Borderstyle=False.在窗體上畫一個列表框和一個文本框，然后編寫如下兩個事件過程：PrivateSubForm_Load()List1.Addltemn357nListl.AddItemM246MListl.AddItemM123nListl.AddItemM456nTextl.Text=H"EndSubPrivateSubListl_DblClick()a=Listl.TextPrinta+Textl.TextEndSub程序運行后，在文本框中輸入“789”(見圖附錄-1),然后雙擊列表框中的“456”，則輸出結(jié)果為()o圖附錄?11245456789C)789456D)0.為了暫時關(guān)閉計時器，應(yīng)把該計時器的某個屬性設(shè)置為False,這個屬性是()。VisibleTimerEnabledInterval.為了把一個記錄型變量的內(nèi)容寫入文件中指定的位置，所使用的語句的格式為()oGet文件號，記錄號，變量名Get文件號，變量名，記錄號Put文件號，變量名，記錄號Put文件號，記錄號，變量名.對窗體編寫如下事件過程：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPrintMAAAAAMEndIfEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)PrintnBBBBB"EndSub程序運行后，如果右擊鼠標，則輸出結(jié)果為()oA)AAAAAB)BBBBBBBBBBC)AAAAAD)BBBBBAAAAA.為了在運行時能顯示窗體左上角的控制框(系統(tǒng)菜單)，必須()oA)把窗體的ControlBox屬性設(shè)置為False,其他屬性任意B)把窗體的ControlBox屬性設(shè)置為True,并且把BoderStyle屬性設(shè)置為1-5C)把窗體的ControlBox屬性設(shè)置為False,同時把BoderStyle屬性調(diào)協(xié)為非0值D)把窗體的ControlBox屬性設(shè)置為True,同時把BoderStyle屬性設(shè)置為0值.對窗體編寫如下代碼：OptionBase1PrivateSubForm_KeyPress(KeyAsciiAsInteger)a=Array(237,l26,87,48,498)ml=a(l)m2=1IfKeyAscii=13ThenFori=2To5Ifa(i)>mlThenml=a(i)m2=iEndIfNextiEndIfPrintmlPrintm2EndSub程序運行后，按回車鍵，輸出結(jié)果為().A)48 B)2371C)498 D)4984二、填空題(每空2分，共30分)請將每空的正確答案寫在答題卡［1］?［15］序號的橫線上，答在試卷上不得分。.設(shè)有如下的VisualBasic表達式：5*xA2-3*x-2*Sin(a)/3它相當于代數(shù)式［1］,,.執(zhí)行下面的程序段后，s的值為［2］?s=5Fori=2.6To4.9Step0.6s=s+1Nexti3.表達式Fix(-32.68)+Int(-23.02)的值為［3］..為了在運行時把圖形文件picfile.jpg裝入圖片框Pictured所使用的語句為［4］。.在窗體上畫一個命令按鈕，然后編寫如下事件過程：PrivateSubCommandl_Click()a=加putBox("請輸入一個整數(shù)”)b=InpulBox("請輸入一個整數(shù)”)Printa+bEndSub程序運行后，單擊命令按鈕，在輸入對話框中分別輸入321和456,輸出結(jié)果為15］o.執(zhí)行下面的程序段后，b的值為［6］oa=300b=20a=a+bb=a-ba=a-b.以下程序段的輸出結(jié)果是［7］?num=O ；Whilenum<=2num=num+lPrintnumWend.在窗體畫一個命令按鈕，然后編寫如下事件過程：PrivateSubCommandl_Click()Dima(lTo10)Dimp(lTo3)k=5Fori=lTo10a(i)=iNextiFori=lTo3p(i)=a(i*i)NextiFori=lTo3k=k+p(i)*2NextiPrintkEndSub程序運行后，單擊命令按鈕，輸出結(jié)果是[8]o.下面的程序用“冒泡”法將數(shù)組a中的10個整數(shù)按升序排列，請在[9]、[10]>[11]處將程序補充完整。OptionBase1PrivateSubCommandl_Click()Dimaa=Array(678,45,324,528,439,387,87,875,273,823)Fori=[9]Forj=[10]Ifa(i)[llJa(j)Thenal=a(i)a(i)=a(j)a(j)=alEndIfNextjNextiFori=lTo10Printa(i)NextiEndSub.在窗體上畫一個命令按鈕，然后編寫如下過程：Functionfun(ByVa)numAsLong)AsLongDimkAsLongk=lnum=Abs(num)DoWhilenumk=k*(numMod10)num=numl0Loopfun=kEndFunctionPrivateSubCommand1_Click()DimnAsLongDimrAsLongn=InputBox("請輸入一個數(shù)”)n=CLng(n)r=fun(n)PrintrEndSub程序運行后，單擊命令按鈕，在輸入對話框中輸入234,輸出結(jié)果為［12］?.如果要將某個菜單項設(shè)計為分隔線，則該菜單項的標題應(yīng)設(shè)置為［13］。.假定建立了一個工程，該工程包括兩個窗體，其名稱（Name屬性）分別為Forml和Form2,啟動窗體為Forml。在Forml上畫一個命令按鈕Command1,程序運行后，要求當單擊該命令按鈕時，F(xiàn)orml窗體消失，顯示窗體Form2,請在［14］和［15］處將程序補充完整。PrivateSubCommand1__Click（）;［14］FormlForm2.［15］EndSub2002年9月二級VB筆試試題一、選擇題（每題2分，共70分）下列各題A）、B）、C）、D）四個選項中，只有一個選項是正確的，請將正確選項涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。（1）在設(shè)計階段，當雙擊窗體上的某個控件時，所打開的窗口是（）oA）工程資源管理器窗口 B）工具箱窗口C）代碼窗口 D）屬性窗口（2）以下敘述中正確的是（）oA）窗體的Name屬性指定窗體的名稱，用來標識一個窗體B）窗體的Name屬性的值是顯示在窗體標題欄中的文本C)可以在運行期間改變對象的Name屬性的值D)對象的Name屬性值可以為空(3)剛建立一個新的標準EXE工程后，不在工具箱中出現(xiàn)的控件是()。A)單選按鈕 B)圖片框C)通用對話框 D)文本框(4)設(shè)有如下變量聲明DimTestDateAsDate為變量TestDate正確賦值的表達方式是()。A)TextDate=#l/l/2002# B)TestDate=#"1/1/2002”#C)TextDate=date(*'1/1/2002")D)TestDate=Format("m/d/yy”，“1/1/2002")(5)設(shè)有如下聲明：DimXAsInteger如果Sgn(X)的值為-1,則X的值是()。A)整數(shù)B)大于0的整數(shù)C)等于。的整數(shù)D)小于0的數(shù)(6)在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如下程序：PrivateSubCommandl_Click()StaticXAsIntegerStaticYAsIntegerCisY=1Y=Y+5X=5+XPrintX,YEndSub程序運行時，三次單擊命令按鈕Commandl后，窗體上顯示的結(jié)果為()。A)1516B)156C)1515 D)56(7)設(shè)a=3,b=5,則以下表達式值為真的是()oA)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并按回車鍵，則下列敘述中正確的是()。A)變量X的值是數(shù)值10B)在InputBox對話框標題欄中顯示的是“示例"C)0是默認值 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)(11)以下能夠觸發(fā)文本框Change事件的操作是()。A)文本框失去焦點 B)文本框獲得焦點C)設(shè)置文本框的焦點 D)改變文本框的內(nèi)容(12)在窗體上有一個文本框控件，名稱為TxtTime：一個計時器控件，名稱為Timed,要求每一秒鐘在文本框中顯示一次當前的時間。程序為：PrivateSubTimerI_()TxtTime.text=TimeEndSub在下劃線上應(yīng)填入的內(nèi)容是()oA)EnabledB)VisibleC)IntervalD)Timer(13)在窗體上畫兩個單選按鈕，名稱分別為Option】、Option2,標題分別為“宋體”和“黑體”；一個復(fù)選框，名稱為Checkl,標題為“粗體”；一個文本框，名稱為Textl,Text屬性為“改變文字字體”。要求程序運行時，“宋體”單選按鈕和“粗體”復(fù)選框被選中(窗體外觀如下圖)，則能夠?qū)崿F(xiàn)上述要求的語句序列是()oA)Optionl.value=TrueCheckA)Optionl.value=TrueCheck1.Value=FalseOption2.Value=FalseCheckl.Value=TrueB)Option1.Value=True

Check1.Value=TrueOption1.Value=TrueCheckl.Value=l(14)為了在按下Esc鍵時執(zhí)行某個命令按鈕的Click事件過程，需要把該命令按鈕的一個屬性設(shè)置為True,這個屬性是(A)ValueB)DefaultC)CancelD)Enabled(15)在窗體上畫一個命令按鈕，名稱為Commandl。然后編寫如下程序：PrivateSubCommandl_Click()For1=1To4ForJ=0To1PrintChr$(65+I);NextJPrintNextIEndSub程序運行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是()oA)BBB)AC)BD)AACC BB CCDDDD CCC DDDBBBCCCC

EEEEEDDDDEEEEDDDDDEEEEEDDDDEEEEDDDDD(16)圖像框有一個屬性，可以自動調(diào)整圖形的大小，以適應(yīng)圖像框的尺寸，這個屬性是()。A)AutosizeB)StretchC)AutoRedrawD)Appearance(17)在窗體上畫兩個名稱分別為Text1>Texte2的文本框和,個名稱為Command)的命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()DimxAsInteger,nAsIntegerx=ln=0DoWhilex<20x=x*3n=n+lLoopTextl.Text=Str(x)Text2.Text=Str(n)EndSub程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別是()o人)15和1 B)27和3 C)195和3D)600和4(18)在窗體上畫一個名稱為Textl的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：PrivateSubCommandl_Click()DimiAsInteger,nAsIntegerFor1=0To50i=i+3n=n+lIfi>10ThenxitforNextTextl.Text=Str(n)EndSub程序運行后，單擊命令按鈕，在文本框中顯示的值是()oA)2 B)3 D)4 D)5(19)在窗體上畫一個名稱為Textl的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：PrivateSubCommandI_Click()Dimarrayl(10,10)AsIntegerDimi,jAsIntegerFori=lTo3Forj=2To4arrayl(i,j)=i+jNextjNextITextl.Text=arrayl(2,3)+array1(3,4)EndSub程序運行后，單擊命令按鈕，在文本框中顯示的值是()oA)12B)13C)14D)15(20)在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下程序：PrivateSubCommand1_Click()DimiAsIntegerjAsIntegerDima(10,10)AsIntegerFori=lTo3Forj=lTo3a(i,j)=(i-l)*3+jPrinta(i,j);NextjPrintNextjEndSub程序運行后，單擊命令按鈕，窗體上顯示的是()oA)123B)234C)147D)123246 345 258 456369 456 369 789(21)設(shè)有如下程序：OptionBase0PrivateSubForm_Click()DimaDimiAsIntegera=Array。,2,3,4,5,6,7,8,9)Fori=0To3Printa(5-i);NextEndSub程序運行后，單擊窗體，則在窗體上顯示的是()oA)4321B)5432C)6543D)7654(22)下列敘述中正確的是(A)在窗體的Form_Load事件過程中定義的變量是全局變量B)局部變量的作用域可以超出所定義的過程C)在某個Sub過程中定義的局部變量可以與其它事件過程中定義的局部變量同名，但其作用域只限于該過程D)在調(diào)用過程時，所有局部變量被系統(tǒng)初始化為0或空字符串(23)在窗體上畫一個命令按鈕，名稱為Commands程序運行后，如果單擊命令按鈕，則顯示一個輸入對話框，在該對話框中輸入一個整數(shù)，并用這個整數(shù)作為實參調(diào)用函數(shù)過程Fl.在Fl中判斷所輸入的整數(shù)是否是奇數(shù)，如果是奇數(shù)，過程F1返回1,否則返回0。能夠正確實現(xiàn)上述功能的代碼是()oPrivateSubCommandl_Click()x=InputBox("請輸入整數(shù)”)a=Fl(Val(x))PrintaEndSubFunctionFl(ByRefbAsInteger)IfbMod2=0ThenReturn0ElseReturn1EndIfEndFunctionPrivateSubCommand1_Click()x=InputBox(“請輸入整數(shù)”)a=Fl(Val(x))PrintaEndSubFunctionFl(ByRefbAsInteger)IfbMod2=0ThenFl=0ElseFl=lEndIfEndFunctionPrivateSubCommandl_Click()x=InputBox("請輸入整數(shù)”)Fl(Val(x))PrintaEndSubFunctionFl(ByRefbAsInteger)IfbMod2=0ThenFl=lElseFl=0EndIfEndFunctionPrivateSubCommand1_Click()x=InpulBox(“請輸入整數(shù)”)Fl(Val(x))PrintaEndSubFunctionFl(ByRefbAsInteger)IfbMod2=0ThenReturn0ElseReturn1EndIfEndFunction(24)在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Textl的文本框，然后編寫如下程序：PrivateSubCommand1_Click()Dimx,y,zAsIntegerx=5y=7z=0Textl.text=CallPl(x,y,z)Textl.Text=Str(x)EndSubSubPl(ByVaiaAsInteger,ByVaibAsIntegersAsInteger)c=a+bEndSub程序運行后，如果單擊命令按鈕，則在文本框中顯示的內(nèi)容是()oA)0B)12C)Str(z)D)沒有顯示(25)以下敘述中錯誤的是()。A)如果過程被定義為Static類型，則該過程中的局部變量都是Static類型Sub過程中不能嵌套定義Sub過程Sub過程中可以嵌套調(diào)用Sub過程D)事件過程可以像通用過程一樣由用戶定義過程名(26)以下敘述中錯誤的是()?A)在KeyUp和KeyDown事件過程中，從犍盤上輸入A或a被視作相同的字母(即具有相同的KeyCode)B)在KeyUp和KeyDown事件過程中,將鍵盤上的“1”和右側(cè)小鍵盤上的“1”視作不同的數(shù)字(具有不同的KeyCode)KeyPress事件中不能識別鍵盤上某個鍵的按下與釋放KeyPress事件中可以識別鍵盤上某個鍵的按下與釋放(27)以下敘述中錯誤的是().A)在同一窗體的菜單項中，不允許出現(xiàn)標題相同的菜單項B)在菜單的標題欄中，“&”所引導(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)l(*.txt)"B)”文本文件(.txt)I(.txt)”C)utext(.txt)ll(*.txt)nD)**text(.txt)(*.txt)"(31)以下敘述中錯誤的是()。A)一個工程中只能有一個SubMain過程B)窗體的Show方法的作用是將指定的窗體裝入內(nèi)存并顯示該窗體C)窗體的Hide方法和Unload方法的作用完全相同D)若工程文件中有多個窗體，可以根據(jù)需要指定一個窗體為啟動窗體(32)以下敘述中錯誤的是()。A)一個工程中可以包含多個窗體文件B)在一個窗體文件中用Private定義的通用過程能被其他窗體調(diào)用C)在設(shè)計VB程序時，窗體、標準模塊、類模塊等需要分別保存為不同類型的磁盤文件D)全局變量必須在標準模塊中定義(33)設(shè)在工程中有一個標準模塊，其中定義了如下記錄類型TypeBooksNameAsString*10TelNumAsString*20EndType在窗體上畫一個名為Command1的命令按鈕。要求當執(zhí)行事件過程Commandl_Click時，在順序文件Person.txt中寫入一條記錄。下列能夠完成該操作的事件過程是()。PrivateSubCommand1_Click()DimBAsBooksOpen c:\Person.txtwForOutputAs#1B.Name=InpulBox("輸入姓名”)B.TelNum=InputBox("輸入電話號碼”)Write#l,B.Name,B.TelNumClose#1EndSubPrivateSubCommand1_Click()DimBAsBooksOpenuc:\Person.txt”ForInputAs#1B.Name=InputBox（"輸入姓名”）B.TelNum=InputBox（"輸入電話號碼”）Print#l,B.Name,BTelNumClose#1EndSubPrivateSubCommandl_Click（）DimBAsBooksOpenuc:\Person.txtnForOutputAs#1B.Name=InputBox（"輸入姓名"）B.TelNum=InputBox（"輸入電話號碼”）Write#1,BClose#1EndSubPrivateSubCommand1_Click（）Openuc:\Person.txtMForInputAs#1Name=InputBox（"輸入姓名”）TelNum=InpulBox（"輸入電話號碼”）Print#l,Name,TelNumClose#1EndSub（34）以下敘述中正確的是（）oA）一個記錄中所包含的各個元素的數(shù)據(jù)類型必須相同B）隨機文件中每個記錄的長度是固定的C）Open命令的作用是打開一個已經(jīng)存在的文件D）使用Input#語句可以從隨機文件中讀取數(shù)據(jù)（35）目錄列表框的Path屬性的作用是（）oA）顯示當前驅(qū)動器或指定驅(qū)動器上的目錄結(jié)構(gòu)B）顯示當前驅(qū)動器或指定驅(qū)動器上的某目錄下的文件名C）顯示根目錄下的文件名D）顯示該路徑下的文件二、填空題（每空2分，共40分）請將每空的正確答案寫在答題卡（1）至（15）的橫線上，答在試卷上不得分。（1）在窗體上畫兩個標簽，其名稱分別為Labell和Label2,Caption屬性分別為“數(shù)值”及空白；然后畫一個名稱為Hscolll的水平滾動條，其Min的值為0,Max的值為100。程序運行后，如果單擊滾動條兩端的箭頭，則在標簽Lable2中顯示滾動條的值，如圖所示。請在［1］和［2］處填入適當?shù)膬?nèi)容，將程序補充完整。PrivateSubHScrolll_［1］（）Labl2.Caption=HScrolll.［2］EndSub(2)在窗體上畫一?個名稱為Commandl、標題為“計算”的命令按鈕；畫兩個文本框，名稱分別為Textl和Text2；然后畫4個標簽，名稱分別為Label1、Label2、Label3和Label4,標題分別為“操作數(shù)1”、“操作數(shù)2”、“運算結(jié)果”和空白；再建立一個含有4個單選按紐的控件數(shù)組，名稱為Optionl,標題分別為“+ 和程序運行后，在Textl、Text2中輸入兩個數(shù)值，選中一個單選按鈕后單擊命令按鈕，相應(yīng)的計算結(jié)果顯示在Label4,程序運行情況如圖所示。請在［3］、［4J和［5］處填入適當?shù)膬?nèi)容，將程序補充完整。PrivateSubCommand1_Click()Fori=0To3If［3］=Truethenopt=Optionl(i).CaptionEndIfNextSelectCase|4］Case"+"Result=Val(Text1.Text)+Val(Text2.Text)Case”Result=Val(Text1.Text)-Val(Text2.Text)Case"*"Result=Val(Text.Text)*Val(Text2.Text)Case"rResult=Val(Text1.Text)/Val(Text2.Text)EndSelect［5］=ResultEndSub(3)在窗體上畫一個名稱為Commandl的命令按鈕和一個名稱為Text1的文本框。程序運行后，Commandl為禁用(灰色)。當向文框中輸入任何字符時，命令按鈕Commandl變?yōu)榭捎?。請在?J處填入適當?shù)膬?nèi)容，將程序補充完整.PrivateSubForm_Load()Command1.Enabled=FalseEndSubPrivateSubTextl_［6］()Command1.Enabled=TrueEndSub(4)在菜單編輯器中建立了一個菜單，名為pmenu,用下面的語句可以把它作為彈出式菜單彈出，請?zhí)羁铡orml.［7］Pmenu(5)以下程序的功能是：從鍵盤上輸入若干個學(xué)生的考試分數(shù)，當輸入負數(shù)時結(jié)束輸入,然后輸出其中的最高分數(shù)和最低分數(shù)。請在［8］和［9］處填入適當?shù)膬?nèi)容，將程序補充完整。PrivateSubForm_Click()DimxAsSingle,amaxAsSingle,aminAsSinglex=InputBox(uEnterascore")amax=xamin=xDoWhile［8］Ifx>amaxThenAmax=xEndIfIf［9］ThenAmin=xEndIfx=InputBox(uEnterascore'jLoopPrint“Max=";amax,MMin=";aminEndSub(6)在窗體上畫一個文本框和一個圖片框，然后編寫如下兩個事件過程：PrivateSubForm_Load()Textl.Text=>>計算機”EndSubPrivateSubTextl_Change()Picture1.Print"等級考試”EndSub程序運行后，在文本框中顯示的內(nèi)容是［10］,而在圖片框中顯示的內(nèi)容是［11］O(7)在窗體上畫一?個命令按鈕，其名稱為Commandl,然后編寫如下程序：FunctionM(xAsInteger,yAsInteger)AsIntegerM=Hf(x>y,x,y)EndFunctionPrivateSubcommand1_Click()DimaAsInteger,bAsIntegera=100b=200PrintM(a,b)EndSub程序運行后，單擊命令按鈕，輸出結(jié)果為［12］。(8)為了改變計時器控件的時間間隔，應(yīng)該修改該控件的［13］屬性。(9)在窗體上畫一個名稱為Lablel的標簽和一個名稱為Listl的列表框。程序運行后，在列表框中添加若干列表項。當雙擊列表框中的某個項目時，在標簽Label1中顯示所選中的項目，如圖所示。請在［14］和［15］處填入適當?shù)膬?nèi)容將程序補充完整。PrivateSubForm_load()List1.Additem”北京”

List1.Additem”上?！盠istLAdditem"湖北”EndSubPrivateSub[14]()Label1.Caption=[15]EndSub2003年4月二級VB筆試試題一、選擇題（⑴一（20）每小題2分，（21）—（30）每小題3分，共30題，70分）下列各題A）、B）、C）、D）四個選項中，只有一個選項是正確的，請將正確選項涂在答題卡的相應(yīng)位置上，答在試卷上不得分。（1）以下不能在"工程資源管理器"窗口中列出的文件類型是（）?A）,bas.res.fnn.ocx（2）以下關(guān)于窗體的描述中，錯誤的是（）。A）執(zhí)行UnloadFoMl語句后，窗體Fonnl消失，但仍在內(nèi)存中B）窗體的load事件在加載窗體時發(fā)生C）當窗體的Enabled屬性為False時，通過鼠標和鍵盤對窗體的操作都被禁止D）窗體的Heighl、widlh屬性用于設(shè)置窗體的高和寬⑶下列可作為V2sualBasic變量名的是（）。A）A#AB)4AC)?xYD)constA(4)設(shè)有如下的記錄類型TypeStudentnumberAsstringnameAsStringageAsIntegerEndType則正確引用該記錄類型變量的代碼是()oB)DimAsStudentD)DimsAsTypes.Dame="張紅B)DimAsStudentD)DimsAsTypes.Dame="張紅C)DimsAsTypeStudentS.name士'張紅”（5）函數(shù)String（n,"str”）的功能是（）。A）把數(shù)值型數(shù)據(jù)轉(zhuǎn)換為字符串B)返回由n個字符組成的字符串C)從字符串中取出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í)行如下事件過程：PrivateSubCommandl_C1ick()a$="softwareandhardwareMb$=Right(a$,8)c$=Mid(a$,l,8)Msgboxa$,,b$,c$,lEndSub則在彈出的信息框的標題欄中顯示的信息是()。A)softWareandhardwareB)softwareC)hardwafeD)1(8)執(zhí)行如下語句：a=inutBox(HTodayu,"Tomorrow,,,Yesterday,,?,,'Daybeforeyesterday",5)將顯示一個輸入對話框，在對話框的輸入?yún)^(qū)中顯示的信息是()。A)TodayB)TomorrowC)YesterdayD)Daybeforeyesterday(9)表示滾動條控件取值范圍最大值的屬性是().A)MaxB)LargeChangeC)ValueD)Max-Min(10)在窗體上畫一個名稱為Listl的列表框，--個名稱為Labell的標簽。列表框中顯示若干城市的名稱。當單擊列表框中的某個城市名時，在標簽中顯示選中城市的名稱。下列能正確實現(xiàn)上述功能的程序是A)PrivateSublistl_Click()B)PrivateSubListl_Click()Labell.Caplion=lisll.listindexLabell.Nanle=Listl.listindexEndSub.EndSub程序運行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是()oA)空白B)錯誤提示C)北京D)上海(15)假定有以下函數(shù)過程：FunctionFun(SAsString)AsStringDimsiAsStringFori=lToLen(S)sl=UCase(Mid(S,i,l))+slNextiFun=slEndFunction在窗體上畫?個命令按鈕，然后編寫如下事件過程：PrivateSubCommmldl_Click()DimStrlAsString,Str2AsStringStrl=inputbox("請輸入一個字符串”)Str2=Fun(Strl)PrintStr2EndSub程序運行后，單擊命令按鈕，如果在輸入對話框中輸入字符串"abcdefg",則單擊”確定”按鈕后在窗體上的輸*結(jié)果為()?A)abcdefgB)ABCDEFGC)gfedcbaD)GFEDCBA(16)設(shè)有語句open"c：\Test.Dat*'ForOutPutAs#l則以下錯誤的敘述是()?A)該語句打開C盤根目錄下?個己存在的文件Test.DatB)該語句在C盤根目錄下建立一個名為Test.Dat的文件C)該語句建立的文件的文件號為1D)執(zhí)行該語句后，就可以通過Print#語句向文件Test.Dat中寫入信息(17)以下敘述中錯誤的是()。A)用Shell函數(shù)可以調(diào)用能夠在Windows下運行的應(yīng)用程序B)用Shell函數(shù)可以調(diào)用可執(zhí)行文件，也可以調(diào)用VisualBasic的內(nèi)部函數(shù)C)調(diào)用Shell函數(shù)的格式應(yīng)為：v變量名＞=Shell(……)D)用Sheil函數(shù)不能執(zhí)行DoS命令(18)以下關(guān)于過程及過程參數(shù)的描述中，錯誤的是().A)過程的參數(shù)可以是控件名稱B）用數(shù)組作為過程的參數(shù)時，使用的是"傳地址"方式C）只有函數(shù)過程能夠?qū)⑦^程中處理的信息傳回到調(diào)用的程序中D）窗體可以作為過程的參數(shù)（19）在窗體上畫一個名稱為TxtA的文本框，然后編寫如下的事件過程：PrivateSubTxta_KeyPress（keyasciiasinteger）EndSub若焦點位于文本框中，則能夠觸發(fā)KeyPress事件的操作是（）。A）單擊鼠標B）雙擊文本框C）鼠標滑過文本框D）按下鍵盤上的某個鍵（20）目錄列表框的Path屬性的作用是（）。A）顯示當前驅(qū)動器或指定驅(qū)動器上的路徑B）顯示當前驅(qū)動器或指定驅(qū)動器上的某目錄下的文件名D）顯示根目錄下的文件名D）只顯示當前路徑下的文件（21）假定有如下事件過程：PrivateSubForm_MouseDown（buttonAsInteger,ShiftAsInteger,xAsSingle,YAsSingle）IfButton=2thenPopupMenupopFormEndifEndSub則以下描述中錯誤的是（）oA）該過程的功能是彈出一個菜單B）popForm是在菜單編輯器中定義的彈出式菜單的名稱C）參數(shù)X、Y指明鼠標的當前位置D）Button=2表示按下的是鼠標左鍵（22）以下能夠正確計算n!的程序是（）oPrivateSubCommandl_ClicK（）n=5:x=1DoX=x*li=i十1LoopWhilei<nPrintxEndSubPrivateSubCommandl_Click（）n=5:x=l：i=IDoX=X*1i=i十1LoopWhilei<nPrintxEndSubC)PrivateSubCommandl_Click()n=5：x=l：i=IDoX=X*1i=i十1Loopwhilei<=nPrintxEndSubD)PrivateSubCommandl_C1ick()n=5：x=l：i=lDoX=X*1i=i+1loopWhilei>nPrintxEndSub(23)在窗體上畫一個名稱為Commandl的命令按鈕，再畫兩個名稱分別為LabelkLabel2的標簽，然后編寫如下程序代碼：PrivatexAsIntegerPrivateSubCommandl-Click()X=5：Y=3Callproc(x,Y)Labell.Caption=XLabel2.Caption=YEndSubPrivateSubproc(ByValaAsInteger,ByVaibAshteger)x=a*aY=b十bEndSub程序運行后，單擊命令按鈕，則兩個標簽中顯示的內(nèi)容分別是()oA)5和3B)25和3C)25和6D)5和6(24)在窗體上畫?個名稱為Commandl的命令按鈕，一個名稱為Labell的標簽，然后編寫如下事件過程：PrivateSubCommandl_C1ick()s=oFori=lTO15x=2*i一1IfxMod3=0Thens=s十1NextiLabell.Caption=sEndSub程序運行后，單擊命令按鈕，則標簽中顯示的內(nèi)容是()oA)1B)5C)27D)45(25)在窗體上畫一個名稱為Command)的命令按鈕和三個名稱分別為Labell、Label2>Label3的標簽，然后編寫如下代碼：PrivatexAsIntegerPrivateSubCommand1_C1ick()StaticyAsIntegerDimzAsIntegern=10z=n十zy=y十zX=X十ZLabell.Caption=xLabel2.Caption=yLabel3.Caption=zEndSub運行程序，連續(xù)三次單擊命令按鈕后，則三個標簽中顯示的內(nèi)容分別是()oA)101010B)303030C)303010D)103030(26)設(shè)在窗體上有一個名稱為Commandl的命令按鈕，并有以下事件過程：PriVateSubCommandl_C1ick()StaticbAsVariantb=Array。,3,5,7,9)EndSub此過程的功能是把數(shù)組b中的5個數(shù)逆序存放(即排列為9,7,5,3,1).,為實現(xiàn)此功能，省略號處的程序段應(yīng)該是()?A)Fori=0To5-l\2tmp=b(i)b(i)=b(5-i-l)b(5-i-l)=tmpNextB)fori=0To5tmp=b(i)b(i)=b(5-i-l)b(5-i-l)=tmpNextC)Fori=0T05\2tmp=b(i)b(i)=b(5-i-l)b(5-i-l)；tmpNextD)Fori=lT05\2tmp=b(i)b(i)=b(5-i—1)b(5-i-l)=tmpNext(27)在窗體上畫一個名稱為Drivel的驅(qū)動器列表框，?個名稱為Dirl的目錄列表框，?個名稱為Filel的文件列表框，兩個名稱分別為Labell、Label2,標題分別為空白和“共有文件”的標簽。編寫程序，使得驅(qū)動器打開一個保存文件的通用對話框。該窗口的標題為“Save”，缺省文件名為“SaveFile”，在“文件類型”欄中顯示*.txt。則能夠滿足上述要求的程序是()。A)PrivateSubCommand_Click()Commondialogl.FileName=nSavefileMCommondialogLfilter="AllFilesl*.*l(*.txt)l*.txtl(*.doc).I*.doc"CommonDialogl.Filterindex=2CommonDialogl.DialOg.title="Save"CommonDialogl.Action=2EndSubB)PrivateSubCommandl-Click()CommonDialogl.FileName=,,SaveFile,,CommonDiaLogl.Filter=MAllFilesl*.*l(*.txt)l*.txtl*.docl*.doc”COmmonDialogl.Filterindex=1CommonDialogl.DialogTitle="Save"CommonDialogl.Action=2EndSubC)PrivateSubCmmandl_C1ick()COmmonDialogl.FileName="Save"CommonDialogl.FiLter="A11Filesl*.*l(*.txt)l*.txtl(*.doc)l*,docuCommonDialogl.Filterindex=2COmmonDialogl.DialogTitle="SaveFile”CommonDialogl.Action=2EndSubD)PrivateSubCommandl_C1ick()CommonDialogl.FileName=nSaveFile"CommonDialogl.Filter="AHFilesl*.*l(*.txt)l*.txtl(*.doc)l*.docnCommonDialogl.Filterlndex=lCommonDialogl.DialogTitle=nSavenCommonDialogl.Action=1EndSub二、填空題(每空2分，共30分)請將每空的正確答案寫在答題卡[1]一[15序號的橫線上，答在試卷上不得分。(l)visualBasic中有--種控件組合了文本框和列表框的特性，這種控件是(2)VisualBasic提供的對數(shù)據(jù)文件的三種訪問方式為隨機訪問方式 和二進制訪問方式。(3)執(zhí)行下面的程序段后，變量S的值為oS=5Fori=2.6To4.9Step0.6S=S+1Nexti(4)為了在運行時把d:\pic文件夾下的圖形文件a.jpg裝入圖片框Picture1,所使用的語句為(5)計時器控件能有規(guī)律的以一定時間間隔觸發(fā)事件，并執(zhí)行該事件過程中的程序代碼。(6)以下程序的功能是：生成20個200到300之間的隨機整數(shù)，輸出其中能被5整除的數(shù)并求出它們的和。請?zhí)羁?。PrivateSubCommandl_Click()Fori=ITo20x=Int(*200+100)If[7]=0ThenPrintxS=S十[83EndIfNextiPrint,'Sum=n：SEndSub(7)設(shè)有如下程序PrivateSubForm_Click()DimaASInteger,bAsintegera=20：b=50R>p2a,bp3a,bPrint,'a=H；a,"b="；bEndSubSubpl(xAsInteger,ByVaiyAsInteger)x=x十10.v=v十20EndSubSubp2(byVaixAsInteger,yAsInteger)x=x十10y=y十20EndSubSubp3(ByValxAsInteger,ByVaiyAsInteger)x=x十10y=y十20EndSub該程序運行后，單擊窗體，則在窗體匕顯示的內(nèi)容是：a=和卜o(8)在窗體上畫,個名稱為Commandl的命令按鈕，編寫如下事件過程PrivateSubCommandl_C1icK()DimAsStringa= [11]Fori=1To5PrintSpace(6-i)；Mid$3(a,6-i,2*i-l)NextiEndSub程序運行后，單擊命令按鈕，要求窗體上顯示的輸出結(jié)果為456345672345678123456789請?zhí)羁铡?9)在窗體上畫一個名稱為Combo1的組合框，畫兩個名稱分別Labell和Label2及Caption屬性分別為“城市名稱"和空白的標簽。程序運行后，當在組合框中輸入一個新項后按回車鍵(ASCII碼為13)時，如果輸入的項在組合框的列表中不存在，則自動添加到組合框的列表中，并在Label2中給出提示"己成功添加輸入項"如圖所示；如果存在，則在Label2中給出提示"輸入項已在組合框中"。請在[12>、[13]和[14]處將程序補充完整。PrivateSubCombol<12>(KeyAsciiAsinteger)IfKeyAscii=13ThenFori=0ToCombo1.listCount-1IfCombol.Text=[13]IhenLabel2.Caption="輸入項己在組合框中”ExitSubEndIfNextiLabel2.Caption="J成功添加輸入項”Combo1.[14]CombO1.TextEndIfEndSub(10)設(shè)有如下程序Privatesubsearch(a()Asvariant,ByVaikeyAsVariant,index%)Diml%Fori=LBound(a)ToUBound(a)Ifkey=a(I)Thenindex=IExitSubEndIfNextIIndex=-lEndSubPrivateSubForm_Load()ShowDtmb()AsVariantDimnAsIntegerb=Array(l,3,5,7,9,11,13,15)Callsearch(b,ILn)PrinttnEndSub程序運行后，輸出結(jié)果是。2003年9月二級VB筆試試題（考試時間90分鐘，滿分100分）一、選擇題（（1）~（20）每小題2分（21）?（30）每小題3分，共70分）（1）以下敘述中錯誤的是（）.VisualBasic是事件驅(qū)動型可視化編程工具VisualBasic應(yīng)用程序不具有明顯的開始和結(jié)束語句VisualBasic工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性VisualBasic中控件的某些屬性只能在運行時設(shè)置（2）以下敘述中錯誤的是（）?A）在工程資源管理器窗口中只能包含一個工程文件及屬于該工程的其他文件B）以.BAS為擴展名的文件是標準模塊文件C）窗體文件包含該窗體及其控件的屬性D）一個工程中可以含有多個標準模塊文件（3）以下敘述中錯誤的是（）.A）雙擊鼠標可以觸發(fā)DbIClick事件B）窗體或控件的事件的名稱可以由編程人員確定

C)移動鼠標時，會觸發(fā)MouseMove事件D)控件的名稱可以由編程人員設(shè)定(4)以下不屬于VisualBasic系統(tǒng)的文件類型是()。.frmB).batC).vbgD).vbp(5)以下敘述中錯誤的是()oA)打開一個工程文件時，系統(tǒng)自動裝入與該工程有關(guān)的窗體、標準模塊等文件B)保存VisualBasic程序時，應(yīng)分別保存窗體文件及工程文件C)VisualBasic應(yīng)用程序只能以解釋方式執(zhí)行D)事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)(6)以下能正確定義數(shù)據(jù)類型TelBook的代碼是()。A)TypeTelBookNameAsString*10TelNumAsIntegerEndTypeC)TypeTelBookNameString*10TelNumIntegerEndTypeTelBookA)TypeTelBookNameAsString*10TelNumAsIntegerEndTypeC)TypeTelBookNameString*10TelNumIntegerEndTypeTelBookEndTelBookD)TypedefTelBookNameString*10TelNumIntegerEndType(7)以下聲明語句中錯誤的是()oA)Constvarl=123B)Dimvar2='ABCDeflnta-z D)Staticvar3AsInteger(8)設(shè)窗體上有一個列表框控件Listl,且其中含有若干列表項。則以下能表示當前被選中的列表項內(nèi)容的是().A)List1.List B)List1.ListindexC)Listl.IndexD)Listl.Text(9)程序運行后，在窗體上單擊鼠標，此時窗體不會接收到的事件是()oA)MouseDown B)MouseUpC)LoadD)Click(10)設(shè)a=10,b=5,c=l,執(zhí)行語句Printa>b>c后，窗體上顯示的是()。A)TrueB)FalseC)1 D)出錯信息(11)如果要改變窗體的標題，則需要設(shè)置的屬性是()。A)CaptionB)NameC)BackColorD)BorderStyle(12)以下能判斷是否到達文件尾的函數(shù)是()。BOF B)LOC C)LOF D)EOF(13)如果一個工程含有多個窗體及標準模塊，則以下敘述中錯誤的是()。A)如果工程中含有SubMain過程，則程序一定首先執(zhí)行該過程B)不能把標準模塊設(shè)置為啟動模塊C)用Hide方法只是隱藏一個窗體，不能從內(nèi)存中清除該窗體D)任何時刻最多只有一個窗體是活動窗體(14)窗體的MouseDown事件過程Form_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)有4個參數(shù)，關(guān)于這些參數(shù)，正確的描述是()。A)通過Button參數(shù)判定當前按下的是哪一個鼠標鍵Shift參數(shù)只能用來確定是否按下Shift鍵Shift參數(shù)只能用來確定是否按下Alt和Ctrl鍵D)參數(shù)x,y用來設(shè)置鼠標當前位置的坐標(15)設(shè)組合框Combol中有3個項目，則以下能刪除最后一項的語句是().Combo1.RemoveitemTextCombol.Removeitem2C)Combo1.Removeitem3D)Combo1.RemoveitemCombo1.Listcount(16)以下關(guān)于焦點的敘述中，錯誤的是()。A)如果文本框的TabSt叩屬性為False,則不能接收從鍵盤上輸入的數(shù)據(jù)B)當文本框失去焦點時，觸發(fā)LostFocus事件C)當文本框的Enabled屬性為False時，其Tab順序不起作用D)可以用Tabindex屬性改變Tab順序(17)如果要在菜單中添加一個分隔線，則應(yīng)將其Caption屬性設(shè)置為()。A)= B)*C)&D)-(18)執(zhí)行語句Open"Tel.dat"ForRandomAs#1Len=50后，對文件Tel.dat中的數(shù)據(jù)能夠執(zhí)行的操作是()?A)只能寫，不能讀 B)只能讀，不能寫C)既可以讀，也可以寫 D)不能讀，不能寫(19)在窗體上畫一個名稱為Commandl的命令按鈕和兩個名稱分別為Text1、Text2的文本框，然后編寫如下事件過程：PrivateSubCommand1_Click()n=Text1.TextSelectCasenCaseITo20x=10Case2,4,6x=20CaseIs<10x=30Case10x=40EndSelectText2.Text=xEndSub程序運行后，如果在文本框Text1中輸入10,然后單擊命令按鈕，則在Text2中顯示的內(nèi)容是().A)10 B)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)在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()DimnumAsIntegernum=1DoUntilnum>6Printnum;num=num+2.4LoopEndSub程序運行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是()。A)13.45.8 B)135147 D)無數(shù)據(jù)輸出(22)在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如下事件過程：PrivateSubCommandl_Click()DimaAsInteger,sAsIntegera=8s=1Dos=s+aa=a-1LoopWhilea<=0Prints;aEndSub程序運行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是()。A)79 B)340C)97 D)死循環(huán)(23)設(shè)有如下通用過程：PublicFunctionf(xAsInteger)DimyAsIntegerx=20y=2f=x*yEndFunction在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：PrivateSubCommandl_Click()StaticxAsIntegerx=10y=5y=f(x)Printx;yEndSub程序運行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是()oA)105 B)205C)2040 D)1040(24)設(shè)有如下通用過程：PublicSubFun(a(),ByVaixAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗體上畫一個名稱為Tex