考試立信選擇題題庫

VB A：Text1.Enabled=FalseD：Text1.Visible=False3、對于語句Ifx=1Theny=1,下列說法正確的 Ax=1y=1Bx=1和y=1Cx=1為賦值語句，y=1Dx=1為關(guān)系表達式，y=1為賦值語句 5、MsgBox函數(shù)返回值的類型 7a=6，則執(zhí)行后，x的值 A：- PrintFormat$("32548.5","000,000.00")10、設(shè)有DimXAs A0B0的整數(shù)D0的整數(shù)PrivateSubFori=1Tox=Forj=1Tox=Fork=1To2x=x+6NextkNextjNextiPrintEnd 參考答案：15#15#15#15 Fori=2.6To4.9Step0.6Next 14、表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達式 參考答案：xMod50OrxMod90#xMod90OrxMod5PrivateSubForm_click()Dimx,yAsSingleDimzAsIntegerx=InputBox("EnteraDowhiley=y+z=z+x=InputBox("Enterascore")Ifz=0z=1EndIfy= PrintyEndSubVB考試二 2、在窗體上畫一個名稱為List1的列表框，一個名稱為Label1的。列表框中顯示若干 A：PrivateSubList1_Click()EndSubB：PrivateSubList1_Click()EndSubC：PrivateSubList1_Click()EndSubD：PrivateSubList1_Click()EndSub A：Fori=1ToB：Fori=0ToList1.Count-C：Fori=0ToList1.ListCount-D：Fori=1ToOptionBase0PrivateSubForm_Click()DimaDimiAsa=Array(1,2,3,4,5,6,7,8,Fori=0To3Printa(5-i);End A：543B：432C：321D：6547、設(shè)執(zhí)行以下程序段時依次輸入1、3、5，執(zhí)行結(jié)果為 Dima(4)AsInteger,b(4)AsIntegerForK=0Toa(K1)Val(InputBox("請輸入數(shù)據(jù)"))b(3-K)=a(K+1)NextKPrintb(K)A：0B：C：D：PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDima(10,10)AsIntegerFori=1To3Forj=1ToPrinta(i,j);NextjNextiEndSub A：124578B：233445C：142536D：122436 Dimarr(3To5,-2to2) A：static語句B：Dim語句C：public語句D：ReDimanswer= A：0BX的值是字符串C：在InputBox框標(biāo)題欄中顯示的是"示例D：變量X Dima(-1To5)AsBooleanDimflagAsBooleanflag=FalseDimiAsIntegerDimjAsDoUntilflag=TrueFori=-1To5j=j+Ifa(i)=Falsea(i)=TrueExitForEndIfi=5Thenflag=EndIfPrintj x=IIF((a>b)And(c<d),10,20)Combo VB A：Combo1.RemoveItemCombo1.ListcountB：Combo1.RemoveItem2C：Combo1.RemoveItem3參考答案 題分FunctionFunc(ByValxAsInteger,yAsInteger)y=x*yIfy>0ThenFunc=xFunc=yEndIfEndPrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=b=c=Func(a,b)Print"a=";aPrint"b=";bPrint"c=";cEnd A：a=b=c=B：a=b=c=C：a=b=c=D：a=b=c=參考答案 PublicSubProcl(nAsInteger,ByValmAsInteger)n=nMod10m=m/10EndPrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=12:y=34CallProcl(x,Printx;yEndSubA：12B： C：12D：2參考答案：D 參考答案：B 參考答案 題分Command1，PrivateSubDimbAsIntegerb=b+1End運行程序，三次單擊命令按鈕后，變量b的值是 參考答案：BFunctionFun(SAsString)AsStringDims1AsStringFori=1ToLen(S)NextiFun=s1EndFunctionPrivateSubCommand1_Click()DimStr1AsString,Str2AsStringStr1InputBox("請輸入一個字符串Str2=Fun(Str1)PrintStr2End 參考答案：A8、Sub過程與Function過程最根本的區(qū)別 B：Function過程可以有參數(shù)，Sub過程不可以D：SubFunction過程能通過過程名返回值參考答案：D題分：6SubP(a,b)End下 A：CallPB：CallP10,20D：CallP(10,20)參考答案：D mand1令按鈕，然后編寫如下程序PrivateSubCommand1_Click()StaticXAsIntegerStaticYAsIntegerY=Y=Y+5X=5+PrintX,YEndSub A：B：6C：D：6參考答案：BLoopWhile<條件 AExitDoC：若"條件"0的常數(shù)，則一次也不執(zhí)行循環(huán)體D：如果"條件"True，則不停地執(zhí)行循環(huán)體參考答案 題分 mand1令按鈕，然后編寫如下通用過程和命令按鈕的PrivateFunctionfun(ByValmAsIfmMod2=0Thenfun=2fun=1EndIfEndPrivateSubCommand1_Click()DimiAsInteger,sAsIntegers=0Fori=1Tos=s+fun(i)PrintsEndSub 參考答案 VBPrivateSubDima(10)AsInteger,maxAsIntegerFork=1To10NextkFork=1ToIfa(k)>maxThenEndIfNextkPrintmaxEnd Amax=a(k)改為BIfa(k)>maxThenIfa(k)<maxC2Fork=1To10Fork=2To10Dmax=0max=a(10)2、設(shè)有語句：Open"d:\Test.txt"ForOutputAs#1，以下敘述中錯誤的是 A：執(zhí)行該語句后，就可以通過Print#語句向文件Test.txt中寫入信息B：用該語句建立的文件的文件號為1C：該語句打開d盤 下一個已存在的文件Test.txt，之后就可以從文件中信D：若d盤根 A：PrivateSubCommand1_Click()EndB：PrivateSubEndSubC：PrivateSubLoadForm2EndSubD：PrivateSubEndSubOptionBasePrivateSubDimaFori=4To1Step-1NextiPrintsEnd 5、設(shè)在窗體中有一個名稱為List1的列表框，其中有若干個項目（如圖。要求選中某一項后單擊Command1按鈕，就刪除選中的項，確的過程是 A：PrivateSubCommand1_Click()List1.ClearList1.ListIndexEndB：PrivateSubCommand1_Click()EndC：PrivateSubCommand1_Click()EndD：PrivateSubEndSub 7、設(shè)窗體上有一個框Picture1，要在程序運行期間裝入當(dāng)前文件夾下的圖形文件 A：CallLoadPicture("File1.jpg") 如下過程：PrivateSubCommonDialog1.Filter="AllFiles(*.*)|*.*|TextFiles"&_"(*.txt)|*.txt|ExecutableFiles(*.exe)|*.exe"MsgBoxCommonDialog1.FileNameEnd程序運行后，單擊命令按鈕，將顯示一個"打開"框，此時在"文件類型"框中顯示的 C：ExecutableFiles(*.exe) PrivateSubCommand1_Click()c="ABCD"Forn=1To4Print End則 11、在窗體上畫一個名稱為Label1、標(biāo)題為"VisualBasic考試"的，兩個名稱分別為Command1和Command2標(biāo)題分別為"開始"和"停止"令按鈕然后畫一個名稱為Timer1Interval500，如圖所示。PrivateSubForm_Load()EndPrivateSubCommand1_Click()EndPrivateSubCommand2_Click()Timer1.Enabled=FalseEndPrivateSubTimer1_Timer()IfLabel1.Left<WidthThenLabel1.Left=Label1.Left+20EndIfEnd程序運行后，單擊"開始"按鈕，在窗體中移動。 B：的移動方向為自右向 13、假定在框Picture1中裝入了一個圖形，為了清除該圖形（不刪除框應(yīng)采用 BPicture1.PictureLoadPictureC：選擇框，然后按Del鍵D：選擇框，在屬性窗口中選擇Picture屬性條，然后按回車鍵PrivateSubCommand1_Click()t="旅游景點：&IIf(a>0Anda<=10,"","")&IIf(a>10Anda<=20,"故宮","")_&IIf(a>20Anda<=31,"","")EndSub B：旅游景點：故宮C：旅游景點：D：旅游景點：故宮：a=0， PrivateSubForm_Click()DimiAsInteger,sumAsIntegersum=0Fori=2ToIfiMod2<>0AndiMod3=0Thensum=sum+iEndNextiPrintsumEnd 18、設(shè)窗體上有一個列表框控件List1，含有若干列表項。以下能表示當(dāng)前被選中的列表項 19、設(shè)a=5,b=10，則執(zhí)行c=Int((b-a)*Rnd+a)+1后，c值的范圍 20、在窗體上有1個名為Cd1的通用框，為了在運行程序時打開保存文件框，則 21、下面可以正確定義2個整型變量和1個字符串變量的語句 A：DimaAsInteger,b,cAsStringB：Dima%,b$,cAsStringC：Dimn,mAsInteger,sAsStringD：Dimx%,yAsInteger,zAs的Text屬性設(shè)置為空白，然后編寫如下過程：PrivateSuba=InputBox("Enteranb=InputBox("Enteraninteger")Text1.Text=b+aEnd程序運行后，單擊命令按鈕，如果在輸入框中分別輸入8和10，則文本框中顯示的內(nèi) monDialog1的通用框，一個名稱為Command1令PrivateSubCommand1_Click()CommonDialog1.FileName=""CommonDialog1.Filter="Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"End C：該框的標(biāo)題為VBTestD：該框被設(shè)置為"打開"框24、設(shè)在窗體Forml上有一個列表框Listl，其中有若干個項目。要求單擊列表框中某一項 A：PrivateSubList1_Click()PrintForm1.TextEndB：PrivateSubForm1_Click()PrintList1.TextEndC：PrivateSubList1_Click()PrintList1.TextEndD：PrivateSubForm1_Click()List1.PrintList1.TextEnd，Text2中；否則光標(biāo)不動，并彈出框"分數(shù)錯"。下面程序中正確的是 IfKeyAscii=13Then 'ASCII13Ifa<0Anda>100ThenEndIfEndIfEndIfKeyAscii=13Then 'ASCII13Ifa>=0Ora<=100ThenEndIfEndIfEndIfKeyAscii=13Then 'ASCII13Ifa>=0Anda<=100ThenEndIfEndIfEndIfKeyAscii=13Then 'ASCII13Ifa>=0Anda<=100ThenEndIfEndIfEnd26、假定通用框的名稱為CommonDialog1，命令按鈕的名稱為Command1，則單擊命令按鈕后，能使打開的框的標(biāo)題為"NewTitle"的過程是 A：PrivateSubCommand1_Click()CommonDialog1.DialogTitle="NewTitle"EndB：PrivateSubCommonDialog1.DialogTitle="NewTitle"EndC：PrivateSubCommand1_Click()CommonDialog1.DialogTitle="NewTitle"EndD：PrivateSubCommand1_Click()CommonDialog1.DialogTitle="NewTitle"End27、在窗體上畫一個通用框，程序運行后，通過ShowOpen方法顯示"打開"框，要求在該框的"文件類型"欄中只顯示擴展名為DOC的文件，則對通用框的Filter 29、為了暫時關(guān)閉計時器，應(yīng)把計時器的某個屬性設(shè)置為False，這個屬性是 30、在窗體上畫了一個名稱為Timer1的計時器和一個名稱為Label1的，計時器的PrivateSubEndSub B：把過程中的Label1.Caption=Time$語句改為Label1.Caption=Timer1.TimeC：通過屬性窗口把計時器的Interval2000D：把過程中的Label1.Caption=Time$語句改為 B：1個"$"C：8個"*"D：8個"$"PrivateSubForm_Load()Command2.Enabled=FalseCheck1.Value=1End 34List1Command1，然后編寫如下過程PrivateSubForm_Load()List1.AddItem"Item1"List1.AddItem"Item2"List1.AddItemEndPrivateSubCommand1_Click()List1.List(List1.ListCount)="AAAA"End ext1PrivateSubCommand1_Click()SelectCasexCase1,3Case-10To10EndEnd Ay=x*xy=-xBy=-xCy=x*x A：PrintLeft("VBProgram",7)B：PrintC：PrintMid("VBProgram",3)D：PrintMid("VBProgram",3,7) A：PrivateSubCommand1_Click()Open"out.txt"ForAppendAs#1Print#1,Text1.TextClose#1EndSubB：PrivateSubOpen"out.txt"ForOutputAs#1Print#1,Text1.TextClose#1EndSubC：PrivateSubOpen"out.txt"ForInputAs#1Print#1,Text1.TextClose#1EndSubD：PrivateSubOpen"out.txt"ForRandomAs#1Print#1,Text1.TextClose#1EndSubPrivateSubCommand1_Click()EndSubPrivateSubText1_LostFocus()IfText1.text<>"BASIC"ThenEndIfEndSub生的結(jié)果 D：文本框中為"VisualBasic"，焦點在按鈕上 40、創(chuàng)建了1個工程，其中的窗體名稱為Form1；之后又添加了一個名為Form2的窗體，并希望程序執(zhí)行時先顯示Form2窗體，那么，他需要做的工作是 AForm2TabIndex1Form1TabIndex2B：在Form1的Load過程中加入語句LoadForm2C：在Form2的Load過程中加入語句Form2.ShowD：在工程屬性框中把"啟動對象"設(shè)置為Form2、monDialog控件可以顯 A：4種B：5種C：7種D：6設(shè)x=10，則y的值 您的答案：B1（主菜單2（子菜單2（子菜單 A：PrivateSubbigicon_Click()Me.appear.bigicon.Checked=TrueEndSub