VB程序设计入门练习及答案

习题2(程序设计入门)一、选择题如果把一个人当作对象，那么血型相当于这个对象的：A(A)属性 (B)方法 (C)事件 (D)特征下列哪一种方法不能改变窗体的大小：A(A)设计时在窗体布局窗口中进行调整(B)设计时在属性窗口中设置相应的属性(C)运行时设置相应属性的值 (D)运行时调用窗体的Move方法一个对象可以执行的动作和可被对象识别的动作分别称为：B(A)事件、方法(B)方法、事件(C)属性、方法(D)过程、事件在窗体Form1的Click事件过程中有以下语句：Label1.Caption="VisualBasic"若本语句执行之前，标签控件Labell的Caption属性为默认值，则标签控件的Name属性和Caption属性在执行本语句之前的值分别为：A"Label"、"Label" (B)"Label"、"Caption"(C)"Label1"、"Label1" (D)"Caption"、"Label"5.见上题。该语句执行后，标签控件的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文本框对象的默认属性是：B(A)Name (B)Text8(A)Name (B)Text8.VisualBasic源程序的续行符是：D(A)单引号 (B)双引号(C)Visible (D)Enabled(C)冒号 (D)空格与下划线9.下面的动作中，不能引发按钮Click事件的是：B(A)在按钮上单击鼠标左键 (B)在按钮上单击鼠标右键(C)把焦点移至按钮上，然后按回车键(D)如果按钮有快捷字母，按“Alt+该字母”二、判断题标签控件是专门用来显示信息的，所以不能响应鼠标的单击事件。F窗体的Move方法不但可以移动窗体，而且可以改变窗体的大小，同时也会改变窗体与大小和位置有关的属性值。T窗体的Enabled属性为False时，窗体上的按钮、文本框等控件都不会对用户的操作作出反应。T一条VisualBasic语句如果不超过80个字符是不能续行的。F在VisualBasic程序中不可能同时出现txtA和txta两个控件名。T命令按钮支持Click事件，但不支持DblClick事件，所以双击按钮不会有任何反应。

文本框的Left属性是文本框左边框与屏幕左边框之间的距离(单位为缇)。FVisualBasic工程文件的扩展名为.vbp，窗体文件的扩展名为.frm。T语句frmFirst.Move1000,,1200 可把窗体frmFirst水平地移动到坐标为1000单位处，并改变宽度为1200个单位，垂直坐标与高度保持不变。F三、填空题要使按钮表面上显示的文字为“确定(Q)”(其中“0”为快捷键)，则按钮的Caption属性的值应为 确定(Q) 。欲将按钮设为默认按钮，应把其default属性值设为true。3•要使按钮无效，则可其Enabled属性设置为false。文本框中所显示的内容是它的 属性的值。要让文本框显示滚动条，必须 (6)属性和 (7) 属性的值。如果文本框中没有选定部分，则其SelLength属性的值为，0 。习题3(数据类型、常量与变量)一、选择题Integer类型的变量可存放的最大整数为：D(A)255 (B)256 (C)32768 (D)32767下面的4对数据类型中，哪一对所占的内存字节数相等：A(A)Integer和Boolean (B)Integer和Single(C)Date和Single (D)Long和Double下列数据类型中，占用内存最小的是：B(A)Boolean (B)Byte (C)Integer (D)Single使用PublicConst语句定义全局常量，该语句可以放在下列什么位置：C(A)过程中 (B)窗体模块的声明段中(C)标准模块的声明段中 (D)窗体模块或标准模块的声明段中在窗体模块的声明段中定义变量时，不可能使用下列哪个关键字：D(A)Dim (B)Private下列哪种数据类型的变量不能存放负值(A)Integer (B)Single(A)Dim (B)Private下列哪种数据类型的变量不能存放负值(A)Integer (B)Single下面哪一个不是字符串常量：D(A)"你好" (B)" "下面列出的语句中，没有错误的是：D(A)txt1.Text+txt2.Text=txt3.Text(C)12Label.Caption=1234变量名最多不能超过的字符个数为：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.下面哪条赋值语句不能使字节型变量bytl在内存中的二进制位成为：00001111。B(A(A)byt1=15 (B)byt1=111112.下列哪一组语句会产生错误：D(A)Dimint1AsInteger:int1=TrueDimint1AsInteger:int1="123.4"byt1=&HF (D)byt1=&O17Dimstr1Asstring*10:str1="123.4.5"Dimbln1AsBoolean:bln1="Yes"二、填空题下列数据类型的变量各占多少字节的内存：Byte： 1:Integer： 2；Long： 4；Single： 4；Double： 8。把整型数1赋给一个逻辑型变量，则逻辑变量的值为 true。刚被定义尚未赋值的日期型变量的值为#0:0:0#：逻辑型变量的值为false:对象型变量的值为—nothing—:变体变量的值为 empty。对象型变量可以引用一个对象。使用DimobjFirstAsObject语句定义一个对象型变量，如果要把名称为cmdFirst的命令按钮赋予它，应使用 语句。在一条Dim语句中可以定义多个变量，如DimstrVar,intVar,sngVarAsInteger，则strVar、intVar与sngVar的数据类型分另别是 variant、variant和integer。如果int1是整型变量，则执行int1="2"+3语句之后，int1的值为5:执行int1="2"+"3"语句之后，int1的值为23 。把逻辑值True赋给整型变量之后，此变量的值会变为1 。默认情况下，所有未经显式定义的变量均被视为variant 类型。如果要强制变量的定义，应在模块的声明段使用 optionexplist语句。9.如果要在文本框Text1中显示“Hesaid,"Goodmorning!".”(注：不包括外层的中文双引号，内层是英文双引号)，则应使用以下的赋值语句：Text1.Text=上Hesaid,"Goodmorning!'””'。习题4(运算符与表达式)一、求表达式的值(已知a=3:b=4:c=5)1.a+b>cAndb=cfalse2．aOrb+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=b=Falsetrue9．2=2=2false10．True=-1 true二、选择题1•代数运算式1•代数运算式b对应的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的值可否构成三角形三条边长的是：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．下列哪个是算术运算符：B(B)A+C>BAndB+C>AAndC>0A+B>CAndA-B<CAndC>0(D)Eqv(D)(D)Eqv(D)&4．下列运算符中，优先级最高的是：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。(数组)3•判断变量X是不是能被5整除的偶数，逻辑表达式可写为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是非正数： a<=0 ；a不能被b整除： amodb<>0 。设平面上任意一个点的坐标为（x,y），写出一个逻辑表达式来判断这个点是否位于图4.3中阴影部分（包括边界）。如果位于阴影部分，表达式的值为True,否则为False。这个表达式为x*x+y*y>=1andx>=-2andxv=2andy>=-2andyv=2习题5（控制结构）一、判断题If与EndIf关键字必须成对地使用，有一个If就有一个EndIf与之相对应。FDo和Loop关键字必须成对使用，有一个Do就必须有一个Loop与之对应。TFor和ExitFor必须成对使用，有一个For就必须有一个ExitFor与之对应。FSelectCase语句实现的是一种循环结构。F—个Do循环只能使用一个Loop关键字，但可以使用多个ExitDo语句。T如果有多重Do循环嵌套，位于最里层循体语句中的ExitDo语句可以跳出所有的循环。F7•如果有多重Do循环与For循环嵌套使用，并且ExitFor语句位于一个内层Do循环中，则该语句不能从Do循环中跳出。F二、填空题1．判断下面4个循环语句分别执行了多少次循环。下面循环执行了 4_次：int2=0Forinti=1To-2Step-1int2=int2+1Next下面循环执行了 1 次：int2=0Forint1=1To1Step-1int2=int2+1Next下面循环执行了 1 次：int2=0For int1 =1To10 Step1Exit Forint2 =int2+1■5Next下面循环执行了 5 次：DimiAsInteger,jAsIntegerFori=1To10Step1i=i+1j=j+1NextPrintj执行下面的程序段，文本框Textl中显示的是 9 。Dimint1AsInteger,int2AsIntegerint1=1int2=0DoWhileint1<20int2=int1+int2int1=int1*(int1+1)LoopText1.Text=int2阅读下面的事件过程。单击窗体后，在文本框Text1和Text2中显示的内容分别是3—和.3—；若将程序中A语句与B语句的位置互换，再次执行程序，单击窗体后在Textl和Text2中显示的内容分别是3和5。PrivateSubForm_Click()DimxAsInteger,yAsIntegerx=1:y=0DoWhilex<3y=y+x 'A语句x=x+1 'B语句LoopText1.Text=xText2・Text=yEndSub下面的事件过程判断文本框txtl中输入的数所在的区间，并在文本框txt2中输出判

断结果。请在画线处填入正确的内容。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循环共执行3次，在窗体上显示的结果是515DimbAsInteger,kAsIntegerLetb=1Fork=1To5Letb=b*kIfb>=15ThenExitForElseLetk=k+1EndIfNextkPrintk,b6•阅读下面程序，当单击窗体之后，窗体上输出的__4 。PrivateSubForm_Click()DimiAsInteger,jAsInteger,kA