VB程序設(shè)計(jì)入門(mén)練習(xí)及答案

習(xí)題2(程序設(shè)計(jì)入門(mén))一、選擇題如果把一個(gè)人當(dāng)作對(duì)象，那么血型相當(dāng)于這個(gè)對(duì)象的：A(A)屬性 (B)方法 (C)事件 (D)特征下列哪一種方法不能改變窗體的大小：A(A)設(shè)計(jì)時(shí)在窗體布局窗口中進(jìn)行調(diào)整(B)設(shè)計(jì)時(shí)在屬性窗口中設(shè)置相應(yīng)的屬性(C)運(yùn)行時(shí)設(shè)置相應(yīng)屬性的值 (D)運(yùn)行時(shí)調(diào)用窗體的Move方法一個(gè)對(duì)象可以執(zhí)行的動(dòng)作和可被對(duì)象識(shí)別的動(dòng)作分別稱(chēng)為：B(A)事件、方法(B)方法、事件(C)屬性、方法(D)過(guò)程、事件在窗體Form1的Click事件過(guò)程中有以下語(yǔ)句：Label1.Caption="VisualBasic"若本語(yǔ)句執(zhí)行之前，標(biāo)簽控件Labell的Caption屬性為默認(rèn)值，則標(biāo)簽控件的Name屬性和Caption屬性在執(zhí)行本語(yǔ)句之前的值分別為：A"Label"、"Label" (B)"Label"、"Caption"(C)"Label1"、"Label1" (D)"Caption"、"Label"5.見(jiàn)上題。該語(yǔ)句執(zhí)行后，標(biāo)簽控件的Name屬性和Caption屬性的值分別為：B"Label1"、"VisualBasic"(D)"Label"、"Label1"CommandButton(D)Label"Label""Label1"、"VisualBasic"(D)"Label"、"Label1"CommandButton(D)Label(C)"Label1"、"Caption"下面哪種對(duì)象沒(méi)有Caption屬性：B(A)Form (B)TextBox文本框?qū)ο蟮哪J(rèn)屬性是：B(A)Name (B)Text8(A)Name (B)Text8.VisualBasic源程序的續(xù)行符是：D(A)單引號(hào) (B)雙引號(hào)(C)Visible (D)Enabled(C)冒號(hào) (D)空格與下劃線9.下面的動(dòng)作中，不能引發(fā)按鈕Click事件的是：B(A)在按鈕上單擊鼠標(biāo)左鍵 (B)在按鈕上單擊鼠標(biāo)右鍵(C)把焦點(diǎn)移至按鈕上，然后按回車(chē)鍵(D)如果按鈕有快捷字母，按“Alt+該字母”二、判斷題標(biāo)簽控件是專(zhuān)門(mén)用來(lái)顯示信息的，所以不能響應(yīng)鼠標(biāo)的單擊事件。F窗體的Move方法不但可以移動(dòng)窗體，而且可以改變窗體的大小，同時(shí)也會(huì)改變窗體與大小和位置有關(guān)的屬性值。T窗體的Enabled屬性為False時(shí)，窗體上的按鈕、文本框等控件都不會(huì)對(duì)用戶的操作作出反應(yīng)。T一條VisualBasic語(yǔ)句如果不超過(guò)80個(gè)字符是不能續(xù)行的。F在VisualBasic程序中不可能同時(shí)出現(xiàn)txtA和txta兩個(gè)控件名。T命令按鈕支持Click事件，但不支持DblClick事件，所以雙擊按鈕不會(huì)有任何反應(yīng)。

文本框的Left屬性是文本框左邊框與屏幕左邊框之間的距離(單位為緹)。FVisualBasic工程文件的擴(kuò)展名為.vbp，窗體文件的擴(kuò)展名為.frm。T語(yǔ)句frmFirst.Move1000,,1200 可把窗體frmFirst水平地移動(dòng)到坐標(biāo)為1000單位處，并改變寬度為1200個(gè)單位，垂直坐標(biāo)與高度保持不變。F三、填空題要使按鈕表面上顯示的文字為“確定(Q)”(其中“0”為快捷鍵)，則按鈕的Caption屬性的值應(yīng)為 確定(Q) 。欲將按鈕設(shè)為默認(rèn)按鈕，應(yīng)把其default屬性值設(shè)為true。3?要使按鈕無(wú)效，則可其Enabled屬性設(shè)置為false。文本框中所顯示的內(nèi)容是它的 屬性的值。要讓文本框顯示滾動(dòng)條，必須 (6)屬性和 (7) 屬性的值。如果文本框中沒(méi)有選定部分，則其SelLength屬性的值為，0 。習(xí)題3(數(shù)據(jù)類(lèi)型、常量與變量)一、選擇題Integer類(lèi)型的變量可存放的最大整數(shù)為：D(A)255 (B)256 (C)32768 (D)32767下面的4對(duì)數(shù)據(jù)類(lèi)型中，哪一對(duì)所占的內(nèi)存字節(jié)數(shù)相等：A(A)Integer和Boolean (B)Integer和Single(C)Date和Single (D)Long和Double下列數(shù)據(jù)類(lèi)型中，占用內(nèi)存最小的是：B(A)Boolean (B)Byte (C)Integer (D)Single使用PublicConst語(yǔ)句定義全局常量，該語(yǔ)句可以放在下列什么位置：C(A)過(guò)程中 (B)窗體模塊的聲明段中(C)標(biāo)準(zhǔn)模塊的聲明段中 (D)窗體模塊或標(biāo)準(zhǔn)模塊的聲明段中在窗體模塊的聲明段中定義變量時(shí)，不可能使用下列哪個(gè)關(guān)鍵字：D(A)Dim (B)Private下列哪種數(shù)據(jù)類(lèi)型的變量不能存放負(fù)值(A)Integer (B)Single(A)Dim (B)Private下列哪種數(shù)據(jù)類(lèi)型的變量不能存放負(fù)值(A)Integer (B)Single下面哪一個(gè)不是字符串常量：D(A)"你好" (B)" "下面列出的語(yǔ)句中，沒(méi)有錯(cuò)誤的是：D(A)txt1.Text+txt2.Text=txt3.Text(C)12Label.Caption=1234變量名最多不能超過(guò)的字符個(gè)數(shù)為：D(C)Public (D)StaticC(C)Byte (D)Long"True" (D) #False#cmdAdd.Name=cmdSubfrmFirst.Move1000,1000,2000,1200下列哪一個(gè)是日期型常量：C(A)"2/1/99" (B)2/1/99 (C)#2/1/99# (D){2/1/99}11.下面哪條賦值語(yǔ)句不能使字節(jié)型變量bytl在內(nèi)存中的二進(jìn)制位成為：00001111。B(A(A)byt1=15 (B)byt1=111112.下列哪一組語(yǔ)句會(huì)產(chǎn)生錯(cuò)誤：D(A)Dimint1AsInteger:int1=TrueDimint1AsInteger:int1="123.4"byt1=&HF (D)byt1=&O17Dimstr1Asstring*10:str1="123.4.5"Dimbln1AsBoolean:bln1="Yes"二、填空題下列數(shù)據(jù)類(lèi)型的變量各占多少字節(jié)的內(nèi)存：Byte： 1:Integer： 2；Long： 4；Single： 4；Double： 8。把整型數(shù)1賦給一個(gè)邏輯型變量，則邏輯變量的值為 true。剛被定義尚未賦值的日期型變量的值為#0:0:0#：邏輯型變量的值為false:對(duì)象型變量的值為—nothing—:變體變量的值為 empty。對(duì)象型變量可以引用一個(gè)對(duì)象。使用DimobjFirstAsObject語(yǔ)句定義一個(gè)對(duì)象型變量，如果要把名稱(chēng)為cmdFirst的命令按鈕賦予它，應(yīng)使用 語(yǔ)句。在一條Dim語(yǔ)句中可以定義多個(gè)變量，如DimstrVar,intVar,sngVarAsInteger，則strVar、intVar與sngVar的數(shù)據(jù)類(lèi)型分另別是 variant、variant和integer。如果int1是整型變量，則執(zhí)行int1="2"+3語(yǔ)句之后，int1的值為5:執(zhí)行int1="2"+"3"語(yǔ)句之后，int1的值為23 。把邏輯值True賦給整型變量之后，此變量的值會(huì)變?yōu)? 。默認(rèn)情況下，所有未經(jīng)顯式定義的變量均被視為variant 類(lèi)型。如果要強(qiáng)制變量的定義，應(yīng)在模塊的聲明段使用 optionexplist語(yǔ)句。9.如果要在文本框Text1中顯示“Hesaid,"Goodmorning!".”(注：不包括外層的中文雙引號(hào)，內(nèi)層是英文雙引號(hào))，則應(yīng)使用以下的賦值語(yǔ)句：Text1.Text=上Hesaid,"Goodmorning!'””'。習(xí)題4(運(yùn)算符與表達(dá)式)一、求表達(dá)式的值(已知a=3:b=4:c=5)1.a+b>cAndb=cfalse2．a(chǎn)Orb+cAndb-c 113．Not(a>b)AndNotcOr1-51*2+3/4\2人224*(76-43)人2Imp3<=4And5<4Or5-3>0-15Mod2A2-32/3\2ImpNot3=4Xor5-3>037．5Mod2EqvNot3Xor5-3>0-38．a(chǎn)=b=Falsetrue9．2=2=2false10．True=-1 true二、選擇題1?代數(shù)運(yùn)算式1?代數(shù)運(yùn)算式b對(duì)應(yīng)的VisualBasic表達(dá)式是：(A)a/b+c/d (B)a/(b+c)/d (C)(a/b+c)/d (D)a/(b+c/d)已知變量A、B、C中C值最小，下列表達(dá)式中，可以判斷A、B、C的值可否構(gòu)成三角形三條邊長(zhǎng)的是：B(A)A>=BAndB>=CAndC>0(A+B>=COrA-B<=C)AndC>0(A)A>=BAndB>=CAndC>0(A+B>=COrA-B<=C)AndC>03．下列哪個(gè)是算術(shù)運(yùn)算符：B(B)A+C>BAndB+C>AAndC>0A+B>CAndA-B<CAndC>0(D)Eqv(D)(D)Eqv(D)&4．下列運(yùn)算符中，優(yōu)先級(jí)最高的是：D(A)Not (B)Is (C)Like5．下列運(yùn)算符中，屬于單目運(yùn)算符的是：A(A)Not (B)= (C)A (D)Mod6．假定bln1是邏輯型變量，下面賦值語(yǔ)句中不出錯(cuò)的是：D(A)bln1='True'(B)bln1=.True.(C)bln1=#TRUE#(D)bln1=3<47.要判斷兩個(gè)整型變量A和B中是否只有一個(gè)為零，不能使用下面的哪個(gè)表達(dá)式:h】A*B=0AndA<>B(A=0OrB=0)AndA<>BA=0AndB<>0OrA<>0AndB=0A=0XorB=0A*B=0AndA+B<>0(A=0OrB=0)And(A<>0OrB<>0)Not(A=0AndB=0)And(A=0OrB=0)A*B=0And(A=0OrB=0)三、填空題表達(dá)式(-3)Mod8的值為-3 。表達(dá)式"[A]"Like"[A]"的值為false。(數(shù)組)3?判斷變量X是不是能被5整除的偶數(shù)，邏輯表達(dá)式可寫(xiě)為xmod5=0andxmod2=04．已知a、b、c都是整型變量，使用VisualBasic邏輯表達(dá)式描述下列條件：TOC\o"1-5"\h\za小于b或小于c： avboravc ；a和b都大于c： a>candb>c ；a和b中至少有一個(gè)大于c： a>corb>c ；a和b中只有一個(gè)大于c： a>cxorb>c ；a是非正數(shù)： a<=0 ；a不能被b整除： amodb<>0 。設(shè)平面上任意一個(gè)點(diǎn)的坐標(biāo)為（x,y），寫(xiě)出一個(gè)邏輯表達(dá)式來(lái)判斷這個(gè)點(diǎn)是否位于圖4.3中陰影部分（包括邊界）。如果位于陰影部分，表達(dá)式的值為T(mén)rue,否則為False。這個(gè)表達(dá)式為x*x+y*y>=1andx>=-2andxv=2andy>=-2andyv=2習(xí)題5（控制結(jié)構(gòu)）一、判斷題If與EndIf關(guān)鍵字必須成對(duì)地使用，有一個(gè)If就有一個(gè)EndIf與之相對(duì)應(yīng)。FDo和Loop關(guān)鍵字必須成對(duì)使用，有一個(gè)Do就必須有一個(gè)Loop與之對(duì)應(yīng)。TFor和ExitFor必須成對(duì)使用，有一個(gè)For就必須有一個(gè)ExitFor與之對(duì)應(yīng)。FSelectCase語(yǔ)句實(shí)現(xiàn)的是一種循環(huán)結(jié)構(gòu)。F—個(gè)Do循環(huán)只能使用一個(gè)Loop關(guān)鍵字，但可以使用多個(gè)ExitDo語(yǔ)句。T如果有多重Do循環(huán)嵌套，位于最里層循體語(yǔ)句中的ExitDo語(yǔ)句可以跳出所有的循環(huán)。F7?如果有多重Do循環(huán)與For循環(huán)嵌套使用，并且ExitFor語(yǔ)句位于一個(gè)內(nèi)層Do循環(huán)中，則該語(yǔ)句不能從Do循環(huán)中跳出。F二、填空題1．判斷下面4個(gè)循環(huán)語(yǔ)句分別執(zhí)行了多少次循環(huán)。下面循環(huán)執(zhí)行了 4_次：int2=0Forinti=1To-2Step-1int2=int2+1Next下面循環(huán)執(zhí)行了 1 次：int2=0Forint1=1To1Step-1int2=int2+1Next下面循環(huán)執(zhí)行了 1 次：int2=0For int1 =1To10 Step1Exit Forint2 =int2+1■5Next下面循環(huán)執(zhí)行了 5 次：DimiAsInteger,jAsIntegerFori=1To10Step1i=i+1j=j+1NextPrintj執(zhí)行下面的程序段，文本框Textl中顯示的是 9 。Dimint1AsInteger,int2AsIntegerint1=1int2=0DoWhileint1<20int2=int1+int2int1=int1*(int1+1)LoopText1.Text=int2閱讀下面的事件過(guò)程。單擊窗體后，在文本框Text1和Text2中顯示的內(nèi)容分別是3—和.3—；若將程序中A語(yǔ)句與B語(yǔ)句的位置互換，再次執(zhí)行程序，單擊窗體后在Textl和Text2中顯示的內(nèi)容分別是3和5。PrivateSubForm_Click()DimxAsInteger,yAsIntegerx=1:y=0DoWhilex<3y=y+x 'A語(yǔ)句x=x+1 'B語(yǔ)句LoopText1.Text=xText2?Text=yEndSub下面的事件過(guò)程判斷文本框txtl中輸入的數(shù)所在的區(qū)間，并在文本框txt2中輸出判

斷結(jié)果。請(qǐng)?jiān)诋?huà)線處填入正確的內(nèi)容。12345678910111213141234567891011123456789101112123456789PrivateSubCommand1_Click()Dimint1AsIntegerint1=CInt(txt1.Text)SelectCaseint1Case 0txt2.Text=值"為0"Case1to10txt2.Text=值"在1和10之間(包括1和10)"Caseis>10txt2.Text=值"大于10"CaseElsetxt2.Text=值"小于0"EndSelectEndSub下面程序段中，k循環(huán)共執(zhí)行3次，在窗體上顯示的結(jié)果是515DimbAsInteger,kAsIntegerLetb=1Fork=1To5Letb=b*kIfb>=15ThenExitForElseLetk=k+1EndIfNextkPrintk,b6?閱讀下面程序，當(dāng)單擊窗體之后，窗體上輸出的__4 。PrivateSubForm_Click()DimiAsInteger,jAsInteger,kA