计算机二级vb考试复习题

1VB复习题一、选择题1、在窗体Form1的Click事件过程中有以下语句：Label1.Caption=VisualBasic若本语句执行之前，标签控件Label1的Caption属性为默认值，则标签控件的Name属性和Caption属性在执行本语句之前的值分别为：(A)Label、Label(B)Label、Caption(C)Label1、Label1(D)Caption、Label2、文本框对象的默认属性是：(A)Name(B)Text(C)Visible(D)Enabled3、下列数据类型中，占用内存最小的是：(A)Boolean(B)Byte(C)Integer(D)Single4、下面哪一个不是字符串常量：(A)你好(B)(C)True(D)#False#5、下列哪一个是日期型常量：(A)2/1/99(B)2/1/99(C)#2/1/99#(D){2/1/99}6、已知变量A、B、C中C值最小，下列表达式中，可以判断A、B、C的值可否构成三角形三条边长的是：(A)A=BAndB=CAndC0(B)A+CBAndB+CAAndC0(C)(A+B=COrA-B=C)AndC0(D)A+BCAndA-BCAndC07、下列运算符中，优先级最高的是：(A)Not(B)Is(C)Like(D)&8、当VB执行下面语句后，A的值为__________A=1IfA0ThenA=A+1IfA1ThenA=0(A)0(B)1(C)2(D)39、程序在运行循环“Fori=1to14step3”结束后，i的值等于________。(A)16(B)13(C)14(D)15210、以下______语句可以跳出DoUntil……Loop循环(A)End(B)ExitLoop(C)ExitDo(D)ExitFor11、窗体上放置一个命令按钮Commmand1，单击按钮后，X的值是______。PrivateSubCommand1_Click()x=5Fori=1To20Step2x=x+i\5NextiEndSub(A)21(B)22(C)23(D)2412、在窗体上画1个命令按钮和1个标签，其名称分别为Command1和Label1，然后编写如下事件过程：PrivateSubCommand1_Click()Counter=0Fori=1To4Forj=6To1Step-2Counter=Counter+1NextjNextiLabel1.Caption=Str(Counter)EndSub程序运行后，单击命令按钮，标签中显示的内容是(A)11(B)12(C)16(D)2013、阅读下面的程序段：Fori=1to3Forj=1toia=a+1nextjnexti执行上面的两重循环后，a的值为(A)3(B)9(C)6(D)2114、用下面的语句所定义的数组的元素个数是DimA(-3to5)AsInterger(A)6(B)7(C)8(D)9315、Sub过程与Function过程最根本的区别是：(A)前者可以使用Call或直接使用过程名调用，后者不可以(B)后者可以有参数，前者不可以(C)两种过程参数的传递方式不同(D)前者无返回值，但后者有返回值16、在定义函数过程时，不可能用到的关键字是：(A)Exit(B)As(C)Sub(D)End17、3．在定义通用过程时，下列关键字中不能用来修饰形参的是：(A)ByVal(B)ByRef(C)Optional(D)Static18、执行以下程序段：a$=abbacddcbaFori=6To2Step-2X=Mid(a,i,i)Y=Left(a,i)Z=Right(a,i)Z=UCase(X&Y&Z)NextiPrintZ(A)ABA(B)AABAAB(C)ABBABA(D)BBABBA19、用下面的语句所定义的数组的元素个数是______。Dimarr(3To5，-2To2)(A)20(B)12(C)15(D)2420、以下程序段的执行结果是____________。DimA(1To10)Fori=1To10A(i)=2*iNextiPrintA(A(3))(A)12(B)6(C)8(D)16二、填充题21、下列数据类型的变量各占多少字节的内存：Byte：（1）；Integer：（2）；Long：（3）；Single：（4）；Double：（5）。422、刚被定义尚未赋值的日期型变量的值为（6）；逻辑型变量的值为（7）；对象型变量的值为（8）；变体变量的值为（9）。23、如果int1是整型变量，则执行int1=2+3语句之后，int1的值为（10）；执行int1=2+3语句之后，int1的值为（11）。24、表达式(-3)Mod8的值为（12）。25、判断变量X是不是能被5整除的偶数，逻辑表达式可写为(13)26、已知a、b、c都是整型变量，使用VisualBasic逻辑表达式描述下列条件：a小于b或小于c：（14）；a和b都大于c：（15）；a和b中至少有一个大于c：（16）；a和b中只有一个大于c：（17）；a是非正数：（18）；a不能被b整除：（19）。27、阅读下面的事件过程。单击窗体后，在文本框Text1和Text2中显示的内容分别是（20）和（21）；若将程序中A语句与B语句的位置互换，再次执行程序，单击窗体后在Text1和Text2中显示的内容分别是（22）和（23）。1PrivateSubForm_Click()2DimxAsInteger,yAsInteger3x=1:y=04DoWhilex35y=y+x'A语句6x=x+1'B语句7Loop8Text1.Text=x9Text2.Text=y10EndSub28、本程序根据下式计算x1sin的值（通项的值小于10-6时停止计算），请完善之。...764253154231321sin7531xxxxx1PrivateSubCommand1_Click()2DimxAsSingle,yAsSingle,tAsSingle3DimaAsSingle,bAsSingle,nAsSingle4x=CSng(Text1.Text)5y=（24）6b=17n=258Do9a=x^(2*n-1)/(2*n-1)10b=（25）11t=a*b12y=y+t13n=n+114LoopWhile（26）15Text2.Text=y16EndSub29、在过程调用中，参数的传递方式可分为按值传递和按地址传递两种，其中（27）是默认方式。使用（28）关键字来修饰形式参数，可以使之按值传递。30、运行下面程序，当单击窗体时，窗体上显示在内容是（29）；如果把A语句替换为x=64，B语句替换为r=8，则输出结果为（30）。分析一下这个程序的功能是什么。1DimnAsInteger,kAsInteger,xAsInteger,rAsInteger'模块级变量2Dima(8)AsInteger'模块级数组3PrivateSubconv(dAsInteger,r,i)4i=05DoWhiled06i=i+17a(i)=dModr:d=d\r8Loop9EndSub1011PrivateSubForm_click()12x=12'A语句13r=2'B语句14PrintCStr(x);(;CStr(r);)=;15Ifx=0Then16Print017Else18Callconv(x,r,n)19Fork=nTo1Step-120Printa(k);21Nextk22Print23EndIf24EndSub三、编程题31、若一头小母牛从第四个年头开始每年生一头母牛，按此规律，求第n年时共有多少头母牛。632、编程显示如图1所示的星号三角形，三角形的行数可由文本框指定。图1星号三角形33、编程计算11541431321211nn...的值，其中n=20。34、编写程序，实现矩阵转置，即将1个n×m的矩阵的行和列互换。例如，a矩阵为654321a转置后的矩阵b为635241a35、编写程序，把下面的数据输入1个二维数组中：25367813122688937518223256443658然后执行以下操作：（1）输出矩阵2个对角线上的数（2）分别输出各行和各列的和（3）交换第1行和第3行的位置（4）交换第2列和第4列的位置（5）输出处理后的数组36、编写程序完成下列要求：（1）随机产生1个NN二维数组，二维数组中的数字为0～100之间的整数，N由文本框输入（N不大于8）。（2）找出数组中的最大数。（3）输出随机产生的二维数组，最大数和最大数的行号及列号。7答案一、选择题1、C2、B3、B4、D5、C6、B7、D8、C9、A10、C11、A12、B13、C14、D15、D16、C17、D18、D19、C20、A二、填充题21、（1）1（2）2（3）4（4）4（5）822、（6）#0:00:00#（7）Fasle（8）Nothing（9）Empty23、（10）5（11）2324、（12）-325、（13）(XMod5)=0And(XMod2)=0或XMod10=026、（14）abOrac（15）acAndbc（16）acOrbc（17）acXorbc（18）a=0（19）aModb027、（20）3（21）3（22）3（23）528、（24）x（25）b*(2*n-3)/(2*n-2)（26）Abs(t)=0.00000129、（27）按地址传递（28）ByVal30、（1）12(2)=1100（2）64(8)=100三、编程题31、（提示：从第4年起，第n年牛数等于第n-1年和第n-3年牛数的和。）1PrivateSubCommand1_Click()2Dima1AsInteger,a2AsInteger,a3AsInteger,aAsInteger3Dimint1AsInteger,nAsInteger4n=Cint(Text1.Text)5Forint1=1Ton6Ifint14Then7a1=1:a2=1:a3=1:a=18Else9a=a1+a310a1=a211a2=a312a3=a13EndIf14Next15Text2.Text=a16EndSub32、1PrivateSubCommand1_Click()2Dims1AsString,s2AsString83DimnAsInteger4DimiAsInteger,jAsInteger5Cls'清除窗体上现有内容6n=Text1.Text7Fori=1Ton8s1=9Forj=1Ton-i10s1=s1&'产生n-i个空格11Next12s2=s2&*'产生i个由空格分隔的“*”13Prints1&s2'在窗体上显示一行“*”14Next15EndSub33、计算结果为0.9523811。1PrivateSubCommand1_Click()2DimsngAmountAsSingle3Dimint1AsInteger4sngAmount=05Forint1=1To206sngAmount=sngAmount+1/int1/(int1+1)7Next8Text1.Text=sngAmount9EndSub34、PrivateSubForm_Click()ConstN=3ConstM=4DimA(N,M),B(M,N)AsIntegerFori=1ToNForj=1ToMA(i,j)=Int(Rnd*90)+10NextjNextiFori=1ToNForj=1ToMB(j,i)=A(i,j)NextjNexti9PrintPrint矩阵A（转置前）：PrintFori=1ToNForj=1ToMPrintTab(5*j);A(i,j);NextjPrintNextiPrintPrint矩阵B（转置后）：Fori=1ToMForj=1ToNPr