2022年VB期末考试题库及答案.pdf

《2022年VB期末考试题库及答案.pdf》由会员分享，可在线阅读，更多相关《2022年VB期末考试题库及答案.pdf（43页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、学习资料收集于网络，仅供参考学习资料试卷方案： 201105 Visual Basic期末考试方案一、单项选择 _共 50 题（选： 20 题*1 =20分）第 1 题以下有关对象属性的说法中，错误的是_. A. 工具箱中的控件并不是VB中所有的控件B. 若将 Frame的 Enabled 属性设置为False ，则不能使用放置在Frame里面的控件C. 对象的 Name属性在运行时不能改变D. 对象的所有属性都可以在属性窗口中设置第 2 题数学表达式|27sin3yxex的 VB算术表达式为 _ .A. Sin(27)+Sqr(x+Exp3)/(x+y) B. Sin(27*3.14159/

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

3、0 Mod 2的运算结果是_. A. 1 B. -1 C. 2 D. 3第 5 题下列关于菜单的说法中,错误的是 _. A. 每一个菜单项就是一个对象，并且可设置自己的属性和事件B. 菜单项不可以响应DblClick事件C. VB6.0 允许创建超过四级的子菜单D. 程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的Enabled 属性为 False 第 6 题以下关于数组的说法中,错误的是 _. A. 使用了 Preserve 子句的 Redim 语句，只允许改变数组最后一维的上界B. 对于动态数组 , Redim 语句可以改变其维界但不可以改变其数据类型C. Erase语句

4、的功能只是对固定大小的数组进行初始化D. Lbound 函数返回值是指定数组某一维的下界第 7 题设 a=3,b=2,c=1,运行 print abc的结果是 _. A. True B. FalseC. 1 D. 出错精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 1 页，共 43 页 - - - - - - - - - - 学习资料收集于网络，仅供参考学习资料第 8 题以下说法不正确的是_. A. 使用不带关键字Preserve 的 ReDim语句可以重新定义数组的维数B. 使用不带关键字Preserv

5、e 的 ReDim语句可以改变数组各维的上、下界C. 使用不带关键字Preserve 的 ReDim语句可以改变数组的数据类型D. 使用不带关键字Preserve 的 ReDim语句可以对数组中的所有元素进行初始化第 9 题在列表框 List1中有若干列表项, 可以删除选定列表项的语句是_. A. List1.text= B. List1.List(List1.ListIndex)= C. List1.Clear D. List1.RemoveItem List1.ListIndex 第 10题数学表达式|cossin|)2(sinln2352xxxxex对应的 VB表达式是 _. A. (e

6、(2*x-5)*Log(x)+(Sin(2x)3)/Sqr(Sin(x)-Cos(x2) B. (Exp(2*3.14159*x-5)*Log(x)+(Sin(2*x)3)/Sqr(Sin(x)-Cos(x2) C. (Exp(2*x-5)*Ln(x)+(Sin(2*x)3)/Sqr(Sin(x)-Cos(x2) D. e(2*3.14159*x-5)*Ln(x)+(Sin(2*x)3)/Sqr(Sin(x)-Cos(x2) 第 11题以下有关数组参数的说明中，正确的是_ A. 在过程中也可用Dim语句对形参数组进行说明B. 动态数组作为实参时，可用ReDim语句在过程中改变对应形参数组的维界

7、C. 调用过程时，数组名不能作为实参D. 数组可以按地址传递也可以按植传递第 12题下列有关过程的说法中,错误的是 _. A. 在 Sub 或 Function过程内部不能再定义其它Sub或 Function 过程B. 对于使用 ByRef 说明的形参 , 在过程调用时形参和实参只能按传址方式结合C. 递归过程既可以是递归Function过程 , 也可以是递归Sub 过程D. 可以像调用Sub 过程一样使用Call语句调用 Function过程第 13题要将焦点设置在某个控件上, 以下四个选项中正确的是_. A. 只能使用鼠标直接点击控件B. 只能使用 Tab 键将焦点移到该控件C. 只能在程

8、序中调用该控件的SetFocus 方法D. A 、B、C三选项中涉及的方法均可使用第 14题以下 Case 语句中 , 能正确描述Y的绝对值大于6 的是 _. A. Case Abs(Y)6 B. Case -6 To 6 C. Case Not(-6 To 6) D. Case Is6 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 2 页，共 43 页 - - - - - - - - - - 学习资料收集于网络，仅供参考学习资料第 15题以下关于变量作用域的叙述中, 正确的是 _. A. 窗体中凡用P

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

10、y)B. Abs(Exp(x)+Sin(30)3)(Sqr(x+y)C. Abs(ex+Sin(30*3.14159 180)3) (Sqr(x+y)D. Abs(Exp(x)+Sin(30*3.14159180)3) Sqr(x+y)第 18题下面的 4 个表达式中 , 有关 _ 个能够对Single类型变量 x( 正数 ) 的第 3 位小数正确地进行四舍五入计算. Format(x, #.00) Int(100*(x+0.005)/100 CInt(100*(x+0.005)/100 Fix(100*(x+0.005)/100 A. 1个B. 2 个C. 3 个D. 4 个第 19题执行以

11、下语句时, 会出现错误提示的是_. A. Print2b3 +12.5 B. Print12.5+ 12 C.Print12.5 & 12.5 D.Print2e3+12 第 20题以下 Case 语句含有错误的是_. A. Case 0 To 10 B. Case Is10 C. Case Is10 And Is10 第 21题下列语句中 , 正确的是 _ A. Textl.SetFocusB. Forml.Clear C. Labell.SetFocus D. Listl.Cls 第 22题下列选项中 , 所包含的所有表达式能够将两位整数x 的个位数与十位数对调( 如将 78 转换为 87

12、) 的是_. 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(Mid(X,2,1)+Mid(X,1,1)A. B. C. D. 第 23题以下关于子过程或函数的定义中, 正确的是 _ A. Sub f1(n As String*1 ) B. Sub f1(n As Integer)As Integer 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 3

13、页，共 43 页 - - - - - - - - - - 学习资料收集于网络，仅供参考学习资料C. Function f1(f1 As Integer)As Integer D. Function f1(ByVal n As Integer) 第 24题下列有关控件数组的说法中, 错误的是 _. A. 控件数组由一组具有相同名称和相同类型的控件组成，不同类型的控件无法组成控件数组B. 控件数组中的所有控件不得具有各自不同的属性设置值C. 控件数组中的所有控件共享同一个事件过程D. 控件数组中每个元素的下标由控件的Index 属性指定第 25题以下对数组参数的说明中, 错误的是 _ . A. 在

14、过程中可以用Dim 语句对形参数组进行声明B. 形参数组只能按地址传递C. 实参为动态数组时，可用ReDim语句改变对应形参数组的维界D. 只需把要传递的数组名作为实参，即可调用过程第 26题要向文件datal.txt添加数据 , 正确的文件打开命令是_. A. Opendatal.txtFor Output As #1 B. Opendatal.txtFor Input As #1 C. Opendatal.txtFor Append As #5 D. Opendatal.txt For Write As #5 第 27题下面有关数组处理的叙述中，正确的是_. A. 在过程中使用ReDim

15、语句可以改变动态数组数据的类型B. 在过程中，可以使用Dim 、Private和 Static语句来定义数组C. 用 ReDim语句重新定义动态数组时，可以改变数组的大小，但不能改变数组的维数D. 不可以用 Public语句在窗体模块的通用处说明一个全局数组第 28题下面的表达式中, 运算结果为True 的是 _. A. abcrd =ABCRD B. Int(134.69) 21 D. Mid(Visual,1,4)=Right(lausiV,4) 第 29题设计界面时 , 要使一个文本框具有水平和垂直滚动条, 应先将其 _属性置为True, 再将 ScrollBar属性设置为 3. A.

16、MultiLine B. AutoSize C. Alignment D. RightToLeft 第 30题下面有关数组的说法中, 正确的是 _ A. 数组的维下界不可以是负数B. 模块通用声明处有Option Base 1，则模块中数组定义语句Dim A(0 To 5)会与之冲突C. 模块通用声明处有Option Base 1，模块中有Dim A(0 To 5),则 A数组第一维维下界为0 D. 模块通用声明处有Option Base 1，模块中有DimA(0 To 5),则 A数组第一维维下界为1 第 31题下面有关数组的叙述中, 不正确的是 _. 在过程中用ReDim语句定义的动态数组

17、, 其下标的上下界可以是变量 数组作为形式参数时, 传递的是每个数组元素的值精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 4 页，共 43 页 - - - - - - - - - - 学习资料收集于网络，仅供参考学习资料 在窗体模块的通用声明处可以用Public 说明一个全局数组 数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值A. B. C. D. 第 32题下列关于对象SetFocus 与 GotFocus 的描述中 , 正确的是 _ A. SetFocus是事件 ,GotFocus是

18、方法B. Setfocus和 Gotfocus都是事件C. Setfocus和 GotFocus 都是方法D. SetFocus是方法 ,GotFocus是事件第 33题创建一个名为文件 的菜单项 , 欲使其可用Alt+F方式访问 , 则在菜单编辑器的标题文本框中应输入_. A. 文件 ($F) B. 文件 (&F) C. 文件 (#F) D. 文件 (%F) 第 34题在下列属性中, 属于 CommandButton 控件、 ListBox控件共有的是_. A. Caption、 Text B. Visible、Font C. Caption、 Visible D. List、Visible

19、 第 35题下列能够正确表示条件 XYZ的VB逻辑表达式是_ A. XYZB. X=Y And YZ C. XY OR YZD. X=YZ 第 36题以下关于Function过程的说法中, 错误的是 _. A. Function过程名可以有一个或多个返回值B. 在 Function过程内部不得再定义Function过程C. Function过程中可以包含多个Exit Function语句D. 可以像调用Sub 过程一样调用Function过程第 37题下面的关系表达式中, 运算结果为True 的是 _. A. CInt(1.5)=Int(1.5) B. Fix(1.5)=Int(1.5) C.

20、 Fix(-1.5)=CInt(-1.5) D. Fix(-1.5)=Int(-1.5) 第 38题已知 XB,则下列表达式中, 结果为 True 的是 _ A. Sgn(X-Y)+Sgn(A-B)=-1 B. Sgn(X-Y)+Sgn(A-B)=-2 C. Sgn(Y-X)+Sgn(A-B)=2 D. Sgn(Y-X)+Sgn(A-B)=0 第 39题执行 _ 语句时 , 会出现出错提示信息. A. Print 5+7=14 B. Print 16384*2 C. Print 32768*2 D. Print 14+32 第 40题数学表达式yxeyx2log30sin对应的 Visual

21、Basic表达式是 _. A. Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Exp(x+y) B. (Sin(30*/180)+Sqr(Ln(x)+y)/(2*+Exp(x+y) C. Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+e(x+y) D. (Sin(30*3.14159/180)+Sqr(Log(x)+y)/(2*3.14159+Exp(x+y) 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 5 页，共

22、43 页 - - - - - - - - - - 学习资料收集于网络，仅供参考学习资料第 41题在一个多窗体程序中, 可以仅将窗体Form2 从内存中卸载的语句是_. A. Form2.Unload B. Unload Form2 C. Form2.End D. Form2.Hide 第 42题Print方法可在 _ 上输出数据 . 窗体文本框图片框标签列表框立即窗口A. B. C. D. 第 43题若要使逻辑表达式xy Xor y 0 If x Mod 4=0 Then y=y+x Else y=y-x End If x=x-3 Print x,y Loop End Sub 第 3 题执行下

23、面的程序，单击Command1, 窗体上显示的第一行是_【1】_，第二行是 _【2】_, 第四行是_【3】_。 Option Explicit 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 7 页，共 43 页 - - - - - - - - - - 学习资料收集于网络，仅供参考学习资料 Private Sub Command1_Click() Dim a As Integer, b As Integer a=1 : b=1 Call sub1(a, b) Print a, b End Sub Priv

24、ate Sub sub1(a As Integer, b As Integer) a=a+b : b=b+a Print a, b If a10 Then a=a+b b=b+a Else Call sub1(a, b) End If End Sub 第 4 题运行下面的程序，单击Command1, 在窗体上显示的变量a 的值为 _【1】_，变量 b 的值为 _【2】_,变量 c 的值为 _【3】_。 Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=5: b=

25、10: c=15 Print fun(a,b,c)+fun(a,b,c) Print a,b,c End Sub Private Function fun(x As Integer, y As Integer, z As Integer) As Integer z=x x=x+y y=y+z fun=x+y End Function 第 5 题执行下面的程序，连续三次单击命令按钮Command1 之后， A数组共有【1】个元素；数组元素A(2) 的值【2】，A(4) 的值是【3】。 Option Explicit Option Base 1 Private Sub Command1_Click

26、() Static A( ) As Integer,n As Integer Dim i As Integer,k As Integer k=n n=n + 2 ReDim Preserve A(n) For i=k+1 To n A(i)=i*n+1 Next i 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 8 页，共 43 页 - - - - - - - - - - 学习资料收集于网络，仅供参考学习资料 For i=1 To n Print A(i); Next i Print End Sub 第

27、 6 题运行下面程序，单击Command1 ，在窗体上显示的变量A的值为 _【 1】_, 变量 B的值为 _ 【2】_。Option Explicit Dim a As Integer Private Sub Command1_Click() Dim b As Integer b = 3 a = 4 b = fun(fun(a, b + 2), a) + b Print a, b End Sub Private Function fun(n As Integer, k As Integer) n = n + a k = n - k fun = n + k + a End Function 第

28、7 题执行下面的程序，单击Commandl，则窗体上第一行显示的是【1】 ，第二行显示的是【 2】。 Option Explicit Dim x As Integer Private Sub Command1_Click() Dim y as Integer X=10:Y=2 Call process(y) Print X,Y Call process(y) Print X,Y End Sub Private Sub process(n As Integer) Dim y As Integer If n0 Then x=x-n y=x Else x=x+n y=x+2 End If n=-n

29、End Sub 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 9 页，共 43 页 - - - - - - - - - - 学习资料收集于网络，仅供参考学习资料第 8 题执行下面程序， 单击 Command1 ， 窗体上显示的第一行是_ 【 1】 _， 第二行是 _ 【2】 _， 第四行是 _ 【3】 _，最后一行是 _【4】_. Option Explicit Private Sub Command1_Click() Dim n As Integer n = 5 Call test(n) Print

30、n End Sub Private Sub test(ByVal n As Integer) Dim i As Integer, s As Integer If n 0 Then For i = 1 To n s = s & CStr(i) Next i Print s Call test(n - 2) Else Print OVER End If End Sub 第 9 题运行下列程序，单击Command1 ，在窗体上显示的第一行内容是【1】 ,第二行的内容是【2】 ,第三行的内容是【3】。 （A 的 ASCII 码是 65，Z 是 90）Option Explicit Private Su

31、b Command1_Click() Dim i As Integer, st As String, n As Integer, p As String * 1 p = B For i = 3 To 1 Step -1 n = Asc(p) - i If n 65 Then n = n + 26 st = Chr(n) st = st & F(i) Print st Next i End Sub Private Function F(n As Integer) Dim i As Integer Static s As Integer For i = 1 To n s = s + i Next

32、i F = s End Function 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 10 页，共 43 页 - - - - - - - - - - 学习资料收集于网络，仅供参考学习资料第 10题执行下面的程序，单击 Command1 ， 输出的变量i 的值是【1】， 变量 j 的值是【2】，变量 k 的值是【3】。 Option Explicit Private Sub Command1_Click() Dim i As Integer,j As Integer Dim k As Integer i

33、=10 j=4 k=Funk(i,j) Print i,j,k End Sub Priate Function Funk(ByVal A As Integer,B As Integer) As Integer A=A+B B=B-2 If B=0 Or B=1 Then Funk=1 Else Funk=A+Funk(A,B) End If End Function 第 11题运行下面程序，如果连续三次单击命令按钮之后，数组共有_【1】_个元素；数组元素A(2) 的值是 _【2】_,A(5)的值是 _【3】_. Option Explicit Option Base 1 Private Sub

34、 Command1_Click() Static a() As Integer, n As Integer Dim i As Integer, k As Integer k = n n = n + 2 ReDim Preserve a(n) For i = k + 1 To n a(i) = i * n + 1 Next i For i = 1 To n Print a(i); Next i Print End Sub 第 12题执行下面的程序，单击 Command1, 在窗体界面上显示的第一行是【1】 ，第二行是【2】， 第三行是【3】，第四行是【 4】。 Option Explicit P

35、rivate Sub Command1_Click() Dim a As Integer,b As Integer,i As Integer 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 11 页，共 43 页 - - - - - - - - - - 学习资料收集于网络，仅供参考学习资料 i=1218 a=i100 b=i Mod 100 If b0 Then Print a Print b Print Lcd(a),(b);a;b Print Lcd(a,b);a;b End If End Sub P

36、rivate Function Lcd(x As Integer,Y As Integer) As Integer Dim d As Integer If x9 k=k+1 If i+13 And j+1=3 Then i=1:j=j+1 ElseIf i+13 Then i=i+1:j=1 Elself i+13 And j+13 Then i=i-1 ElseIf i+1=3 And j+1=3 And A(i+1,j+1)0 Then i=i-1 Else i=i+1:j=j+1 End If A(i,j)=k 精品资料 - - - 欢迎下载 - - - - - - - - - - -

37、欢迎下载 名师归纳 - - - - - - - - - -第 12 页，共 43 页 - - - - - - - - - - 学习资料收集于网络，仅供参考学习资料 Loop For i=1 To 3 For j=1 To 3 Picture1.Print A(i,j); Next j Picture1.Print Next i End Sub 第 14题执行下列程序，单击Command1 ，在窗体上显示的第一行内容是【1】，第二行的内容是【2】，第三行的内容是【3】。Option Explicit Private Sub Command1_Click Dim n As Integer ,i A

38、s Integer n=2 For i=7 To 1 Step -1 Call sub2(i,n) Print i,n Next i End Sub Private Sub sub2(x As Integer,y As Integer) Static n As Integer Dim i As Integer For i =2 To 1 Step -1 n =n+x x =x-1 Next i y=y+n End Sub 第 15题执行下列的程序，单击Command1 ，在窗体上显示的变量b 的值为【1】，变量c 的值为【2】，变量 z 的值为【3】。 Private Sub Command1

39、_Click() Dim b As Integer,c As Integer,z As Integer b=2 c=1 z=fun(b,fun(b+1,c)+b-c+1 Print b,c,z End Sub Private Function fun(x As Integer,ByVal y As Integer) As Integer x=x-y y=x+y+2 fun=y-x End Function 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 13 页，共 43 页 - - - - - - -

40、- - - 学习资料收集于网络，仅供参考学习资料第 16题执行下面程序，单击Command1, 窗体上显示的第一行是_【1】_, 第二行是 _【2】_, 第四行是 _【3】_. Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer, i As Integer a=2:b=5 For i=a To a*b Step a Call sub1(i,a,b) Print a,b Next i Print a,b,i End Sub Private Sub sub1(i As Integer, a As I

41、nteger, b As Integer) i=i+1 a=a+1 b=b+1 End Sub 第 17题执行下面程序，单击Command1 ，窗体上显示的第一行是【1】，第二行是【2】，第三行是【3】。Option Explicit Option Base 1 Private Sub Command1_Click() Dim sa (3,3) As String*1,i As Integer,j As Integer,k as Integer k=1 For i=1 To 3 For j=1 To 3 sa(i,j)=Chr(Asc(A)+(k+i+j) Mod 26) Print sa(i

42、,j); ; k=k+3 Next j Print Next i End Sub 第 18题执行下面程序，单击Command1, 则数组元素a(1,2)的数值是 _【1】_,a(3,3)的数值是 _【2】_, 图片框中最后一行显示的是_【3】_. Option Explicit Private Sub Command1_Click() Dim a(4,4) as Integer, i as Integer, j as Integer Dim k As Integer, num as Integer num=0 For k=1 To 4 For i=1 To k-1 精品资料 - - - 欢迎下

43、载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 14 页，共 43 页 - - - - - - - - - - 学习资料收集于网络，仅供参考学习资料 num=num+1 a(i,k)=num next i For j=k To 1 Step -1 num=num+1 a(k,j)=num next j next k For i=1 To 4 For j=1 To 4 Picture1.Print Right( & a(i,j),3); Next j Picture1.Print Next i End Sub 第 19题执行下面程序，

44、单击Command1 ，则图片框中显示的第一行是_【1】_，显示的第二行是_【2】_，最后一行显示的是_【3】_. Private Sub Command1_Click() Dim a(3, 3) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 3 To 1 Step -1 If i = j Then a(i, j) = i - j Else a(i, j) = j - i End If Next j Next i For i = 1 To 3 For j = 3 To 1 Step -1 Picture1.Pr

45、int a(i, j); Next j Picture1.Print Next i End Sub 第 20题执行下面程序，单击Command1 ，则窗体上显示的第一行是【1】，第二行是【2】，第三行是【 3】。 Option Explicit Private Sub Command1_Click() Dim a As String,i As Integer Dim x As String,z As String a=iamstudent i=InStr(5,a,d) Do 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - -

46、- - - -第 15 页，共 43 页 - - - - - - - - - - 学习资料收集于网络，仅供参考学习资料 x=Mid(a,i,3) z=Right(x,1) z=UCase(x & Z) i=i-2 Print z Loop Until i=1 End Sub 三、程序填空 _共 16 题（选： 10 空*2 =20分）完形填空 ：把题目中空的程序代码行补齐第 1 题 本程序的功能是把由个. 分隔的十进制数表示的IP 地址转换为由32 位二进制数组成 的 IP 地址。例如十进制表示的IP 地址为 202.119.191.1,其中每个十进制数对应一个8 位 的二进制数，合起来构成一

47、个32 位二进制的IP 地址 11001010011101111011111100000001 。 过程 Tiqu 用于提取十进制IP 地址中每个用 . 分隔的十进制数； 过程 Convert用于将十进制数转换为相应的8 位二进制数。程序界面参见下图。Option Explicit Private Sub Command1_Click() Dim str1 As String, str2 As String Dim a(4) As Integer, i As Integer str1 = Text1.Text Call Tiqu(str1, a) For i = 1 To 4 If a(i)

48、255 Then MsgBox(IP地址错误！ ) Exit Sub Else *SPACE* 【?】 End If Next i Text2.Text = str2 End Sub Private Sub Tiqu(st As String, a() As Integer) Dim n As Integer, k As Integer, s As String, d As String * 1, i As Integer n = Len(st): k = 0: s = For i = 1 To n *SPACE* 【?】 If d = . Then k = k + 1 a(k) = Val(

49、s) *SPACE* 【?】 Else s = s & d End If Next i 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 16 页，共 43 页 - - - - - - - - - - 学习资料收集于网络，仅供参考学习资料 a(4) = s End Sub Private Function convert(ByVal n As Integer) As String Dim b As Integer, i As Integer, s As String Do While n 0 b = n M

50、od 2 n = n 2 *SPACE* 【?】 Loop For i = 1 To 8 - Len(s) s = 0 & s Next i *SPACE* 【?】End Function 第 2 题 下面程序的功能是：统计存放在数组A 中的 N个数有多少个是不同的。 具体做法是：变量Left指向要被处理的数（从第2 个元素开始） ，Right指向数组最后一个元素。若A(Left)与排在它前面的某个数组元素值相同， 就用数组元素A(Right)的值来替换A(Left)的值，同时将变量Right的值减 1； 否则将变量Left的值加 1，处理数组下一个元素，重复以上过程，直到LeftRight为