VB期末考试题库附答案

1、百度文库-让每个人平等地提升自我5Visual Basic 期末考试题库(部分)一、单项选择共50题第1题以下有关对象属性的说法中，错误的是.A.工具箱中的控件并不是 VB中所有的控件B.若将Frame的Enabled属性设置为False,则不能使用放置在 Frame里面的控件C.对象的Name属性在运行时不能改变D.对象的所有属性都可以在属性窗口中设置答案：D第2题数学表达式(如图所示)的VB算术表达式为 .A.Sin(27)+Sqr(x+Exp3)/(x+y)B.Sin(27*3.14159/180)+Sqr(x+Exp(3)/Abs(x+y)C.Sin(27*3.14159/180)+S

2、qr(x+eA3)/Abs(x+y)D.Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y)答案：B第3题下列有关对象的叙述中，正确的是 A.对象由属性，事件和方法构成B.对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置C.对象的事件一定就是由VB预先设置好的人工干预的动作D.对象的方法是对象响应某个事件后执行的一段程序代码答案：A第4题的运算结果是表达式 CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2A. 1B.-1C. 2D. 3答案：D第5题下列关于菜单的说法中，错误的是.A.每

3、一个菜单项就是一个对象，并且可设置自己的属性和事件B.菜单项不可以响应DblClick 事件C.VB6.0允许创建超过四级的子菜单D.程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的Enabled属性为False答案：C第6题以下关于数组的说法中，错误的是.A.使用了 Preserve 子句的Redim语句，只允许改变数组最后一维的上界B.对于动态数组，Redim语句可以改变其维界但不可以改变其数据类型C. Erase语句的功能只是对固定大小的数组进行初始化D. Lbound函数返回值是指定数组某一维的下界答案：C第7题题号:8设 a=3,b=2,c=1, 运彳p print

4、 a>b>c的结果是.A.TrueB.FalseC.1D.出错答案：B第8题题号:4 以下说法不正确的是 A.使用不带关键字B.使用不带关键字C.使用不带关键字D.使用不带关键字Preserve的ReDim语句可以重新定义数组的维数Preserve的ReDim语句可以改变数组各维的上、下界Preserve的ReDim语句可以改变数组的数据类型Preserve的ReDim语句可以对数组中的所有元素进行初始化答案：C第9题在列表框List1中有若干列表项，可以删除选定列表项的语句是 A.List1.text=""B.List1.List(List1.ListInde

5、x尸""C.listl.ClearD.Listl.Removeltem Listl.ListIndex答案：D第10题数学表达式(如图所示)对应的VB表达式是 .A. (eA(2* Tt *x -5)*Log(x)+(Sin(2x)3)/Sqr(Sin(x)-Cos(xA2)B. (Exp(2*3.14159*x-5)*Log(x)+(Sin(2*x)A3)/Sqr(Sin(x)-Cos(xA2)C. (Exp(2* Tt *x -5)*Ln(x)+(Sin(2*x)A3)/Sqr(Sin(x)-Cos(xA2)D. eA(2*3.14159*x-5)*Ln(x)+(Sin

6、(2*x)A3)/Sqr(Sing(x)-Cos(xA2)答案：B第11题以下有关数组参数的说明中，正确的是A.在过程中也可用Dim语句对形参数组进行说明B.动态数组作为实参时，可用ReDim语句在过程中改变对应形参数组的维界C.调用过程时，数组名不能作为实参D.数组可以按地址传递也可以按植传递答案：B第12题下列有关过程的说法中，错误的是.A.在Sub或Function 过程内部不能再定义其它Sub或Function 过程B.对于使用ByRef说明的形参，在过程调用时形参和实参只能按传址方式结合C.递归过程既可以是递归Function过程，也可以是递归 Sub过程D.可以像调用Sub过程一样

7、使用 Call语句调用Function过程答案：B第13题要将焦点设置在某个控件上，以下四个选项中正确的是 A.只能使用鼠标直接点击控件B.只能使用Tab键将焦点移到该控件C.只能在程序中调用该控件的SetFocus方法D. A > B C三选项中涉及的方法均可使用答案：D第14题以下Case语句中，能正确描述 Y的绝对值大于6的是A. Case Abs(Y)>6B. Case -6 To 6C. Case Not(-6 To 6)D. Case Is<-6,Is>6答案：D第15题以下关于变量作用域的叙述中，正确的是.A.窗体中凡用Private声明的变量只能在某个指

8、定的过程中使用B.模块级变量只能用Dim语句声明C.凡是在窗体模块或标准模块的通用声明段用Public语句声明的变量都是全局变量D.当不同作用域的同名变量发生冲突时，优先访问局限性小的变量答案：C第16题以下关于数值常量的说法中，错误的是A.八进制数的表示方法是在数字前面加&OB.十六进制数的表示方法是在数字前面加&HC.在浮点运算中使用D来分隔尾数和指数时，系统将把该数值作为单精度型数处理D. 32768是合法的数值常量答案：C第17题数学表达式(如图所示)对应的 VB表达式是 A. Abs(eAx+Sin(30)A3)/ Sqr(x+y)B. Abs(Exp(x)+Sin(

9、30)A3) / (Sqr(x+y)C. Abs(eAx+Sin(30*3.14159 / 180)A3) / (Sqr(x+y)D. Abs(Exp(x)+Sin(30*3.14159/ 180)A3) / Sqr(x+y)答案：D第18题百度文库-让每个人平等地提升自我下面的4个表达式中，有关 个能够对Single类型变量x(正数)的第3位小数正确地进行四舍五入计算.Format(x, " #.00")Int(100*(x+0.005)/100CInt(100*(x+0.005)/100Fix(100*(x+0.005)/100A. 1个B. 2个C. 3个D. 4个答

10、案：C第19题执行以下语句时，会出现错误提示的是 A.Print"2b3 " +12.5B. Print"12.5"+ 12C. Print"12.5" & 12.5D. Print"2e3”+12答案：A第20题以下Case语句含有错误的是.A. Case 0 To 10B. Case Is>10C. Case Is>10 And Is<50D. Case 3,5,Is>10答案：C第21题题号：1下列语句中，正确的是A.Textl.SetFocusB.Forml.ClearC.Labell

11、.SetFocusD.Listl.Cls第22题题号:9下列选项中，所包含的所有表达式能够将两位整数x的个位数与十位数对调(如将78转换为87)的是. Val(Right(X,1)&Left(X,1) Val(Right(Str(X),1)&Left(Str(X),1) Val(Right(CStr(X),1)&Left(CStr(X),1) Val(M id(X,2,1)+Mid(X,1,1)A.B.C.D.答案：D第23题以下关于子过程或函数的定义中，正确的是A. Sub f1(n As String*1 )B. Sub f1(n As Integer)As Int

12、egerC. Function f1(f1 As Integer)As IntegerD. Function f1(ByVal n As Integer)答案：D第24题下列有关控件数组的说法中，错误的是.A.控件数组由一组具有相同名称和相同类型的控件组成 不同类型的控件无法组成控件数组B.控件数组中的所有控件不得具有各自不同的属性设置值C.控件数组中的所有控件共享同一个事件过程D.控件数组中每个元素的下标由控件的Index属性指定答案：B第25题题号:7以下对数组参数的说明中，错误的是 .A.在过程中可以用Dim语句对形参数组进行声明B.形参数组只能按地址传递C.实参为动态数组时，可用ReD

13、im语句改变对应形参数组的维界D.只需把要传递的数组名作为实参，即可调用过程答案：A7百度文库-让每个人平等地提升自我第26题题号:6要向文件datal.txt添加数据，正确的文件打开命令是 A.Open"datal.txt"For Output As #1B.Open"datal.txt"For Input As #1C.Open"datal.txt"For Append As #5D.Open"datal.txt" For Write As #5答案：C第27题下面有关数组处理的叙述中，正确的是 .A.在过程中

14、使用 ReDim语句可以改变动态数组数据的类型B.在过程中，可以使用Dim、Private和Static语句来定义数组C.用ReDim语句重新定义动态数组时，可以改变数组的大小，但不能改变数组的维数D.不可以用Public语句在窗体模块的通用处说明一个全局数组答案：D第28题下面的表达式中，运算结果为True的是A. "abcrd" <="ABCRD”B. Int(134.69) <=CInt(134.69)C.3>2>1D. Mid("Visual",1,4)=Right("lausiV",4)答案

15、：B第29题设计界面时，要使一个文本框具有水平和垂直滚动条，应先将其 属性置为True,再将ScrollBar属性设置为3.A. MultiLineB. AutoSizeC.AlignmentD.RightToLeft答案：A第30题下面有关数组的说法中，正确的是A.数组的维下界不可以是负数B.模块通用声明处有OptionBase1,C.模块通用声明处有OptionBase1,D.模块通用声明处有OptionBase1,则模块中数组定义语句Dim A(0 To 5)会与之冲突模块中有Dim A(0 To 5), 则A数组第一维2t下界为0模块中有DimA(0 To 5),则A数组第一维2t下界

16、为1答案：C第31题下面有关数组的叙述中，不正确的是.在过程中用 ReDim语句定义的动态数组，其下标的上下界可以是变量数组作为形式参数时，传递的是每个数组元素的值 在窗体模块的通用声明处可以用Public说明一个全局数组数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值A.B.C.D.答案：A第32题下列关于对象 SetFocus与GotFocus的描述中，正确的是A . SetFocus 是事件,GotFocus 是方法B . Setfocus 和 Gotfocus 都是事件C . Setfocus 和 GotFocus 都是方法D . SetFocus 是方法,GotFocu

17、s 是事件答案：D第33题题号:2创建一个名为“文件”的菜单项，欲使其可用 Alt+F方式访问，则在菜单编辑器的 标题文本框中应输入 .A.文件($F)B.文件(&F)C.文件(#F)D.文件(%F)答案：B第34题在下列属性中，属于CommandButton控件、ListBox控件共有的是 1A. Caption 、TextB. Visible 、FontC. Caption 、VisibleD. List 、Visible答案：B第35题下列能够正确表示条件"X<Y<Z"的 VB逻辑表达式是 A. X <Y<ZB. X<=Y And

18、 Y<ZC. X<Y OR Y<ZD. X<=Y<Z答案：B第36题以下关于Function过程的说法中，错误的是A.Function 过程名可以有一个或多个返回值B.在Function过程内部不得再定义 Function过程C.Function 过程中可以包含多个Exit Function 语句D.可以像调用Sub过程一I专调用Function过程答案：A第37题下面的关系表达式中，运算结果为True的是A. CInt(1.5)=Int(1.5)B. Fix(1.5)=Int(1.5)C. Fix(-1.5)=CInt(-1.5)D. Fix(-1.5)=Int

19、(-1.5)答案：B第38题已知X<Y,A>B,则下列表达式中，结果为True的是A. Sgn(X-Y)+Sgn(A-B)=-1B. Sgn(X-Y)+Sgn(A-B)=-2C. Sgn(Y-X)+Sgn(A-B)=2D. Sgn(Y-X)+Sgn(A-B)=0答案：C第39题执行 语句时，会出现出错提示信息A. Print 5+7=14B. Print 16384*2C. Print 32768*2D. Print "14"+32答案：B第40题数学表达式(如图所示)对应的Visual Basic表达式是 .A. Sin(30*3.14159/180)+Sqr

20、(Log(x)+y)/2*3.14159+Exp(x+y)B.(Sin(30* Tt /180)+Sqr(Ln(x)+y)/(2* n +Exp(x+y)C. Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+eA(x+y)D. (Sin(30*3.14159/180)+Sqr(Log(x)+y)/(2*3.14159+Exp(x+y)答案：D第41题在一个多窗体程序中，可以仅将窗体 Form2从内存中卸载的语句是 A. Form2.UnloadB. Unload Form2C.Form2.EndD.Form2.Hide答案：B第42题Print方法可在

21、 上输出数据.窗体文本框图片框 标签 列表框立即窗口A.BCD答案：A第43题若要使逻辑表达式x>y Xor y<z 结果为True,则x、y、z的取值应为下列选项中的 A. x=3 、y=3、z=4B.x=2 、 y=1、 z=2C. x=1 、 y=3、 z=2D.x=2 、 y=2、 z=2答案：A第44题题号:5下列 是合法的变量名.A.absB.-alC.cdc dD.Abe_10答案：D第45题下列 是正确的VB常量.A.D-6B.E-6C.5DD.5E-6答案：D第46题若在模块中用Private Function Fun(A as Single,B as Integ

22、er) As Integer定义了函数Fun.调用函数Fun的过程中定义了I、J和K三个Integer型变量，则下列语句中不能正确调用函数Fun的语句是.A.Fun 3.14,JB. Call Fun(I,365)C.Fun(I),(J)D. K=Fun("24","35")答案：B第47题若需要在同一窗体内安排两组相互独立的单选按钮 做容器将它们分开. TextBox PictureBox ImageA.或B.或C.或D.或(OptionButton), 可使用 Frame控件答案：C第48题以下关于文件的叙述中，错误的是 A.用Output模式打开一

23、个顺序文件，即使不对它进行写操作，原来的内容也被清除B.可以用Print # 语句或 Write#语句将数据写到顺序文件中C.若以Output、Append、Random Binary 方式打开一个不存在的文件，系统会出错D.顺序文件或随机文件都可以用二进制访问模式打开答案：C第49题窗体上有若干命令按钮和一个文本框，程序运行时焦点置于文本框中，为了在按下回车键时执行某个命令按钮的Click事件过程，需要将该按钮的 属性设置为True.A.EnabledB. DefaultC. CancelD. Visible答案：B第50题数学表达式对应的VB表达式是A. (xA5-Cos(29)/Sqr(

24、eAx+In(y)+5B. (xA5-Cos(29)/(Sqr(Exp(x)+Log(y)+5)C. (xA5-Cos(29*3.14159/180)/(Sqr(Exp(x)+Log(y)+5)D. (xA5-Cos(29*3.14159/180)/(Sqr(eAx+Log(y)+5答案：C二、填空 共20题第1题运行下列程序，单击Commandl,在窗体上显示的第一行内容是 【1】第二行的内容是 【2】,第三行的内容是 【3】 oOption ExplicitPrivate Sub Command1_Click()Dim s As Strings="Basic"Call

25、trans(s)End SubPrivate Sub trans(s As String)Dim j As Integer,t As StringDim k As Integerk=3Doj=InStr(s,"a")t=LCase(Right(s,j)s=Right(t,Len(s)-k) & Left(s,Len(t)k=k-1Print sLoop Until k=0 End Sub答案：=(答案 1)=icBa=(答案 2)=baicBa=(答案 3)= baba第2题执行下面程序，单击 Command,则窗体上显示的第一行是【1】 第三行是【21 ,最后一行

26、是【3】 oOption ExplicitPrivate Sub Command1 Click()Dim x As Integer,y As Integer x=12:y=0Do While x> 0If x Mod 4=0 Theny=y+xElsey=y-xEnd Ifx=x-3Print x,y LoopEnd Sub答案：=(答案 1)=9 12=(答案 2)=3 -3=(答案 3)= 0 -6第3题执行下面的程序，单击Command1窗体上显示的第一行是 【1】 第二行是 【2】 ,第四行是 【3】 oOption ExplicitPrivate Sub Command1_Cl

27、ick()Dim a As Integer, b As Integera=1 : b=1Call sub1(a, b)Print a, bEnd SubPrivate Sub sub1(a As Integer, b As Integer)a=a+b : b=b+aPrint a, bIf a>10 Thena=a+bb=b+aElseCall sub1(a, b)End IfEnd Sub答案：=(答案 1)=2 3=(答案 2)=5 8=(答案 3)=34 55第4题运行下面的程序，单击Commandl在窗体上显示的变量a的值为【1】 ,变量b的值为【2】 ,变量c的值为【3】 oO

28、ption ExplicitPrivate Sub Command1_Click()Dim a As Integer, b As Integer, c As Integera=5: b=10: c=15Print fun(a,b,c)+fun(a,b,c)Print a,b,c End SubPrivate Function fun(x As Integer, y As Integer, z As Integer) As Integerz=xx=x+yy=y+z fun=x+yEnd Function答案：=(答案 1)=30=(答案 2)=30=(答案 3)=15第5题执行下面的程序，连续三

29、次单击命令按钮Command叱后，A数组共有【1】个元素;数组元素A(2)的值是2】，A(4)的值是3】。Option ExplicitOption Base 1Private Sub Command1_Click()Static A( ) As Integer,n As Integer Dim i As Integer,k As Integer k=n ' n=n + 2ReDim Preserve A(n)For i=k+1 To nA(i)=i*n+1Next iFor i=1 To nPrint A(i);Next iPrintEnd Sub答案：=(答案 1)=6=(答案 2

30、)=5=(答案 3)=17第6题运行下面程序，单击Command!在窗体上显示的变量A的值为【1】 ,变量B的值为【2】oOption ExplicitDim a As IntegerPrivate Sub Command1_Click() Dim b As Integer b = 3 a = 4 b = fun(fun(a, b + 2), a) + b Print a, bEnd SubPrivate Function fun(n As Integer, k As Integer) n = n + a k = n - k fun = n + k + aEnd Function答案：=(答案

31、 1)=19=(答案 2)= 68第7题2】执行下面的程序，单击Commandl,则窗体上第一彳f显示的是【1】，第二行显示的是【Option Explicit Dim x As IntegerPrivate Sub Command1_Click()Dim y as IntegerX=10:Y=2Call process(y) Print X,Y Call process(y) Print X,YEnd SubPrivate Sub process(n As Integer)Dim y As IntegerIf n>0 Thenx=x-ny=x Else x=x+n y=x+2 End

32、If n=-n End Sub答案：=(答案 1)= 8 -2=(答案 2)=6 -2第8题执行下面程序，单击 Command1窗体上显示的第一行是_【1】 ,第二行是 【2】 第四行是【3】 ,最后一行是【4】 .Option ExplicitPrivate Sub Command1_Click()Dim n As Integer n = 5Call test(n)Print nEnd SubPrivate Sub test(ByVal n As Integer)Dim i As Integer, s As IntegerIf n > 0 ThenFor i = 1 To ns = s

33、 & CStr(i)Next iPrint sCall test(n - 2)ElsePrint "OVER"End IfEnd Sub答案：=(答案 1)= 12345=(答案 2)= 123=(答案 3)=OVER=(答案 4)= 5第9题2】运行下列程序，单击 Command1在窗体上显示的第一行内容是【1】，第二行的内容是【第三行的内容是【3】。("A"的ASCII码是65, "Z"是90)Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, st A

34、s String, n As Integer, p As String * 1p = "B"For i = 3 To 1 Step -1n = Asc(p) - iIf n < 65 Then n = n + 26st = Chr(n)st = st & F(i)Print stNext iEnd SubPrivate Function F(n As Integer)Dim i As IntegerStatic s As IntegerFor i = 1 To ns = s + iNext iF = sEnd Function答案：=(答案 1)=Y6=(答案

35、 2)=Z9=(答案 3)=A10第10题执行下面的程序，单击 Command1输出的变量i的值是【1，变量j的值是【2】, 变量k的值是【3】。Option ExplicitPrivate Sub Command1_Click()Dim i As Integer,j As IntegerDim k As Integeri=10j=4k=Funk(i,j)Print i,j,kEnd SubPriate Function Funk(ByVal A As Integer,B As Integer) As IntegerA=A+BB=B-2If B=0 Or B=1 ThenFunk=1ElseF

36、unk=A+Funk(A,B)End IfEnd Function答案：=(答案 1)= 10=(答案 2)= 0=(答案 3)=15第11题运行下面程序，如果连续三次单击命令按钮之后，A数组共有【1】一个元素；数组元素A(2)的值是【2】 ,A(5)的值是【3】 .Option ExplicitOption Base 1Private Sub Command1_Click()Static a() As Integer, n As IntegerDim i As Integer, k As Integer k = n n = n + 2ReDim Preserve a(n)For i = k

37、+ 1 To na(i) = i * n + 1Next iFor i = 1 To n Print a(i);Next iPrintEnd Sub答案：=(答案 1)=6=(答案 2)= 5=(答案 3)=31第12题执行下面的程序，单击Command1在窗体界面上显示的第一行是【1】，第二行是【2】,第三行是【3】，第四行是【4】oOption ExplicitPrivate Sub Command1_Click()Dim a As Integer,b As Integer,i As Integeri=1218a=i100b=i Mod 100If b<>0 ThenPrint

38、 aPrint bPrint Lcd(a),(b);a;bPrint Lcd(a,b);a;bEnd IfEnd SubPrivate Function Lcd(x As Integer,Y As Integer) As IntegerDim d As IntegerIf x<y then d=x:x=y:y=dEnd Ifd=xDoIf x Mod y=0 ThenLcd=xExit DoElsex=x+dEnd IfLoopEnd Function答案：=(答案 1)=12=(答案 2)=18=(答案 3)=36 12 18=(答案 4)=36 36 12第13题执行以下程序，单击C

39、ommand1则在Picturel上显示的第一行是【1】，第二行是【2】,第三行是【3】oOption ExplicitPrivate Sub Command1_Click()Dim A(3,3) As Integer,i As IntegerAs IntegerDim k As Integeri=3:j=2:A(i,j)=1:k=1Do Until k>9k=k+1If i+1>3 And j+1<=3 Theni=1:j=j+1ElseIf i+1<=3 And j+1>3 Theni=i+1:j=1Elself i+1>3 And j+1>3 T

40、hen i=i-1ElseIf i+1<=3 And j+1<=3 And A(i+1,j+1)<>0 Theni=i-1Elsei=i+1:j=j+1End IfA(i,j)=kLoopFor i=1 To 3For j=1 To 3 Picture1.Print A(i,j);Next jPicture1.PrintNext iEnd Sub答案：=(答案 1)=4 9 2=(答案 2)=3 5 7=(答案 3)=8 1 6第14题执行下列程序，单击Command,在窗体上显示的第一行内容是【1】,第二行的内容是【2】,第三行的内容是【3】 oOption Expl

41、icitPrivate Sub Command1_ClickDim n As Integer ,i As Integern=2For i=7 To 1 Step -1Call sub2(i,n)Print i,nNext iEnd SubPrivate Sub sub2(x As Integer,y As Integer)Static n As IntegerDim i As IntegerFor i =2 To 1 Step -1n =n+xx =x-1Next iy=y+nEnd Sub答案：=(答案 1)=5 15=(答案 2)=2 35=(答案 3)=-1 56第15题执行下列的程序，

42、单击 Command!在窗体上显示的变量b的值为【1】变量c的值为【2】一变量z的值为【3】 oPrivate Sub Command1_Click()Dim b As Integer,c As Integer,z As Integerb=2c=1z=fun(b,fun(b+1,c)+b-c+1Print b,c,zEnd SubPrivate Function fun(x As Integer,ByVal y As Integer) As Integerx=x-yy=x+y+2fun=y-xEnd Function答案：=（答案 1）=-1=（答案 2）=1=（答案 3）=4第16题执行下面

43、程序，单击Command1窗体上显示的第一行是第二行是 【2】,第四行是【3】 .Option ExplicitPrivate Sub Command1_Click（）Dim a As Integer, b As Integer, i As Integera=2:b=5For i=a To a*b Step aCall sub1（i,a,b）Print a,bNext iPrint a,b,iEnd SubPrivate Sub sub1（i As Integer, a As Integer, b As Integer）i=i+1a=a+1b=b+1End Sub答案：=（答案 1）=3 6=

44、（答案 2）=4 7=（答案 3）=5 8 11第17题 11 1】执行下面程序，单击 Command,窗体上显示的第一行是 第二行是【2】,第三行是【3】o Option ExplicitOption Base 1Private Sub Command1_Click()Dim sa (3,3) As String*1,i As Integer,j As Integer,k as Integer k=1For i=1 To 3For j=1 To 3sa(i,j尸Chr(Asc("A")+(k+i+j) Mod 26)Print sa(i,j);""k=

45、k+3Next jPrintNext iEnd Sub答案：=(答案 1)=D H L=(答案 2)=N R V=(答案 3)=X B F第18题执行下面程序，单击Commandl则数组元素a(1,2)的数值是 【1】 ,a(3,3)的数值是 【2】 ,图片框中最后一行显示的是 【3】 Option ExplicitPrivate Sub Command1_Click()Dim a(4,4) as Integer, i as Integer, j as IntegerDim k As Integer, num as Integernum=0For k=1 To 4For i=1 To k-1n

46、um=num+1a(i,k)=numnext iFor j=k To 1 Step -1num=num+1a(k,j)=numnext jnext kFor i=1 To 4For j=1 To 4Picturel.Print Right(" " & a(i,j),3); Next jPicturel.PrintNext iEnd Sub答案：=(答案 1)=2=(答案 2)=7=(答案 3)=16 15 14 13第19题执行下面程序，单击 Command1则图片框中显示的第一行是 【1】显示的第二行是 【2】，最后一行显示的是【3】 .Private Sub C

47、ommand1_Click()Dim a(3, 3) As IntegerDim i As Integer, j As IntegerFori = 1 To 3For j = 3 To 1 Step -1If i >= j Then a(i, j) = i - jElsea(i, j) = j - iEnd IfNext jNext iFori = 1 To 3For j = 3 To 1 Step -1 Picture1.Print a(i, j);Next jPicture1.PrintNext iEnd Sub答案：=(答案 1)=2 1 0=(答案 2)=1 0 1=(答案 3)

48、=第20题执行下面程序，单击 Command1则窗体上显示的第一行是【1】，第二行是【2】，第三行是【3】。Option ExplicitPrivate Sub Command1_Click()Dim a As String,i As IntegerDim x As String,z As Stringa="iamstudent"i=InStr(5,a,"d")Dox=Mid(a,i,3)z=Right(x,1)z=UCase(x & Z)i=i-2Print zLoop Until i=1End Sub答案：=(答案 1)=DENN=(答案 2

49、)=TUDD=(答案 3)=MSTT三、程序填空共16题第1题本程序的功能是把由4个 "."分隔的十进制数表示的IP地址转换为由32位二进制数组成的IP地址。例如十进制表示的IP地址为202.119.191.1,其中每个十进制数对应一个8位的二进制数，合起来构成一个32位二进制的IP地址11001010011101111011111100000001。过程Tiqu用于提取十进制IP地址中每个用"."分隔的十进制数；过程Convert用于将十进制数转换为相应的8位二进制数。程序界面参见下图。Option ExplicitPrivate Sub Comman

50、d1_Click()Dim str1 As String, str2 As StringDim a(4) As Integer, i As Integerstr1 = Text1.TextCall Tiqu(str1, a)For i = 1 To 4If a(i) < 0 Or a(i) > 255 ThenMsgBox("IP地址错误！")51Exit SubElseI*SPACE*End IfNext iText2.Text = str2End SubPrivate Sub Tiqu(st As String, a() As Integer)Dim n A

51、s Integer, k As Integer, s As String, d As String * 1, i As Integern = Len(st): k = 0: s =""For i = 1 To nI*SPACE*【？】If d = "." Thenk = k + 1a(k) = Val(s)I*SPACE*Elses = s & dEnd IfNext i a(4) = s End SubPrivate Function convert(ByVal n As Integer) As StringDim b As Integer, i As Integer, s As StringDo While n > 0b = n Mod 2n = n 2*SPACE*LoopFor i = 1 To 8 - Len(s)s = "0" & sNext iI*SPACE*End Function答案：=(答案