VB程序設(shè)計入門練習及答案

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

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

斷結(jié)果。請在畫線處填入正確的內(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?閱讀下面程序，當單擊窗體之后，窗體上輸出的__4 。PrivateSubForm_Click()DimiAsInteger,jAsInteger,kA