VB期末考试题库1

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

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

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

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

5、ListIndex尸”"C. Listl.ClearD. Listl.Removeltem Listl.ListIndex第10题Q2 X 53 O 丫、数学表达式e 1nxsin(2x)对应的VB表达式是 B.J sin x cos x2 |A. (eA(2*兀 *x-5)*Log(x)+(Sin(2x)A3)/Sqr(Sin(x)-Cos(xA2)B. (Exp(2*3.14159*x-5)*Log(x)+(Sin(2*x)43)/Sqr(Sin(x)-Cos(xA2)C. (Exp(2* 兀 *x-5)*Ln(x)+(Sin(2*x)A3)/Sqr(Sin(x)-Cos(xA2

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

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

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

9、x+ y)B. Abs(Exp(x)+Sin(30)A3) / (Sqr(x+y)C. Abs(eAx+Sin(30*3.14159 / 1803) / (Sqr(x+y)D. Abs(Exp(x)+Sin(30*3.14159 / 1803) / Sqr(x+y)第18题下面的4个表达式中，有关 C 个能够对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个第19

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

11、istl.Cls第22题下列选项中，所包含的所有表达式能够将两位整数x的个位数与十位数对调(如将78转换为87)的是D. 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题以下关于子过程或函数的定义中，正确的是_DA. Sub f1(n As String*1 )B. Sub f1(n As Integer)As IntegerC. Function

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

13、形参数组的维界D. 只需把要传递的数组名作为实参，即可调用过程第 26 题要向文件 datal.txt 添加数据 , 正确的文件打开命令是C.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第 27 题下面有关数组处理的叙述中，正确的是D.A. 在过程中使用 ReDim 语句可以改变动态数组数据的

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

15、29 题设计界面时, 要使一个文本框具有水平和垂直滚动条, 应先将其_A属性置为 True, 再将 ScrollBar 属性设置为 3.A. MultiLineB. AutoSizeC. Alignment D. RightToLeft第 30 题, 正确的是 _CA. 数组的维下界不可以是负数Dim A(0 To 5) 会与之冲突Dim A(0 To 5), 则 A 数组第一维维下界为 0DimA(0 To 5), 则 A 数组第一维维下界为 1B. 模块通用声明处有OptionBase1C. 模块通用声明处有OptionBase1D. 模块通用声明处有OptionBase1第 31 题下面

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

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

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

19、则下列表达式中A. Sgn(X-Y)+Sgn(A-B)=-1C. Sgn(Y-X)+Sgn(A-B)=2,结果为True的是 C_B. Sgn(X-Y)+Sgn(A-B)=-2D. Sgn(Y-X)+Sgn(A-B)=0第39题执行 B 语句时，会出现出错提示信息.D. Print "14”+32A. Print 5+7=14B. Print 16384*2C. Print 32768*2第40题表达式是_D.数学表达式sin30 10g x-y对应的 Visual Basic2 ex yA. Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+E

20、xp(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)第41题在一个多窗体程序中，可以仅将窗体 Form2从内存中卸载的语句是 _BA. Form2.UnloadC. Form2.End第42题Print方法可在 A 上输出数据窗体文本框图片框A.B.第43题B. Unload Form2D. Form2.Hide标

21、签列表框立即窗口C.D.若要使逻辑表达式x>y Xor y<z 结果为True,则x、y、z的取值应为下列选项中的A. x=3 、y=3、z=4C. x=1、y=3、z=2第44题下列 D 是合法的变量名A. absB. al第45题下列D是正确的VB常量.A. D-6B. E-6第46题B. x=2、y=1、z=2D. x=2、y=2、z=2C. cdc dD. Abe_10C. 5DD. 5E-6若在模块中用Private Function Fun(A as Single,B as Integer) As Integer定义了函数 Fun.调用函数的过程中定义了I、J和K三个I

22、nteger型变量，则下列语句中不能正确调用函数Fun的语句是 CA. Fun 3.14,JB. Call Fun(I,365)C. Fun(I),(J)D. K=Fun("24","35")第47题若需要在同一窗体内安排两组相互独立的单选按钮(OptionButton), 可使用C控件做容器将它们分开.3) ImageFun TextBox PictureBoxA.或B.或第48题以下关于文件的叙述中，错误的是D FrameC. 或 D.或C o用Output模式打开一个顺序文件，即使不对它进行写操作，原来的内容也被清除B.可以用Print # 语句或

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

24、/(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二、填空_共 20 题 (选： 15 空*2 =30分) 阅读理解 ：填写程序的输出结果第1题运行下列程序， 单击 Command1, 在窗体上显示的第一行内容是【1】 , 第二行的内容是【2】 ,第三行的内容是 【 3】 。Option ExplicitPrivate Sub Command1_Click()Dim s As Strings="Basic

25、"Call 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=0End Sub第2题执行下面程序，单击 Command,则窗体上显示的第一行是【1第,第三行是【2】,最后一行是 3】。Option ExplicitPrivate Sub C

26、ommand1 】 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,yLoopEnd Sub第3题执行下面的程序，单击Commandl窗体上显示的第一行是 【1】 ,第二行是 【2】 ,第四行是 【 3 】 。Option ExplicitPrivate Sub Command1_Click()Dim a As Integer, b As Integera=1 : b=1Call sub1(a, b)Print a, bE

27、nd 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第4题运行下面的程序，单击Command1在窗体上显示的变量a的值为【1】 ,变量b的值为【2】变量c的值为【3】oOption ExplicitPrivate Sub Command1_Click()Dim a As Integer, b As Integer, c As Integera=5: b=10: c=15Print fun(

28、a,b,c)+fun(a,b,c)Print a,b,cEnd SubPrivate Function fun(x As Integer, y As Integer, z As Integer) As Integerz=xx=x+yy=y+z fun=x+yEnd Function第5题执行下面的程序，连续三次单击命令按钮Command叱后，A数组共有 【1】 个元素;数组元素 A 的值【2】,A(4)的值是3】。Option ExplicitOption Base 1Private Sub Command1_Click()Static A( ) As Integer,n As Integer

29、Dim i As Integer,k As Integerk=n 'n=n + 2ReDim Preserve A(n)For i=k+1 To nA(i)=i*n+1Next iFor i=1 To n Print A(i);Next i PrintEnd Sub第6题运行下面程序，单击Command1在窗体上显示的变量 A的值为【1】 ,变量B的值为【2】 。Option ExplicitDim a As IntegerPrivate Sub Command1_Click() Dim b As Integer b = 3 a = 4 b = fun(fun(a, b + 2), a

30、) + b Print a, bEnd SubPrivate Function fun(n As Integer, k As Integer) n = n + a k = n - k fun = n + k + aEnd Function第7题执行下面的程序，单击Commandl,则窗体上第一行显示的是【1】,第二行显示的是【2】。Option Explicit Dim x As Integer Private Sub Command1_Click()Dim y as IntegerX=10:Y=2Call process(y) Print X,Y Call process(y) Print

31、X,YEnd SubPrivate Sub process(n As Integer)Dim y As IntegerIf n>0 Then x=x-n y=xElse x=x+n y=x+2End If n=-n End Sub第8题执行下面程序，单击Command1窗体上显示的第一行是【1】，第二行是【2】，第四彳f是【3】 最后一行是【4】.Option ExplicitPrivate Sub Command1_Click()Dim n As Integer n = 5Call test(n)Print nEnd SubPrivate Sub test(ByVal n As Int

32、eger)Dim i As Integer, s As IntegerIf n > 0 ThenFor i = 1 To ns = s & CStr(i)Next iPrint sCall test(n - 2)ElsePrint "OVER"End IfEnd Sub第9题运行下列程序，单击 Command1在窗体上显示的第一行内容是【1】，第二行的内容是2】，第三行的内容是 【3】。("A"的ASCII码是65, "Z"是90)Option ExplicitPrivate Sub Command1_Click()Di

33、m i As Integer, st As String, n As Integer, p As String * 1 p = "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 Func

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

35、,B)End IfEnd Function第11题【1】一个元素；数组元素 A(2)的值是【2】运行下面程序，如果连续三次单击命令按钮之后，A数组共有 ,A(5)的值是【3】.Option ExplicitOption Base 1Private Sub Command1_Click() Static a() As Integer, n As Integer Dim i As Integer, k As Integer k = nReDim Preserve a(n)For i = k + 1 To na(i) = i * n +Next iFor i = 1 To nPrint a(i);N

36、ext iPrintEnd Sub第12题执行下面的程序，单击Command1在窗体界面上显示的第一行是【1】,第二行是【2】，第三行是【3】第四行是【4】。Option ExplicitPrivate Sub Command1_Click()Dim a As Integer,b As Integer,i As Integeri=1218a=i100b=i Mod 100If b<>0 ThenPrint aPrint bPrint Lcd(a),(b);a;bPrint Lcd(a,b);a;bEnd IfEnd SubPrivate Function Lcd(x As Inte

37、ger,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第13题执行以下程序，单击Command1则在Picturel上显示的第一行是【1】，第二行是【2】，第三行是【3】Option ExplicitPrivate Sub Command1_Click()Dim A(3,3) As Integer,i As Integer,j As IntegerDim k As In

38、tegeri=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 Theni=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 3Picture1.Print

39、 A(i,j);Next jPicture1.PrintNext iEnd Sub第 14题执行下列程序，单击Command,在窗体上显示的第一行内容是【1内,第二行的内容是【2】 ,第三行的内容是【3】oOption ExplicitPrivate 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

40、 As IntegerFor i =2 To 1 Step -1n =n+xx =x-1Next iy=y+nEnd Sub第 15题执行下列的程序，单击Command1在窗体上显示的变量b的值为【1】，变量 c的值为【2】,变量 z 的值为】【 3】。Private 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) A

41、s Integerx=x-yy=x+y+2fun=y-xEnd Function第 16题执行下面程序，单击Commandl窗体上显示的第一行是 【1】 ,第二行是【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 Inte

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

43、uot; " k=k+3Next jPrintNext iEnd Sub第 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-1num=num+1 a(i,k)=numnext i

44、For j=k To 1 Step -1num=num+1 a(k,j)=numnext jFor i=1 To 4For j=1 To 4Picturel.Print Right(" " & a(i,j),3); Next j Picturel.PrintNext iEnd Sub第19题执行下面程序，单击 Command1则图片框中显示的第一行是【1】 ，显示的第二行是 【2】，最后一行显示的是 【3】 .Private Sub Command1_Click()Dim a(3, 3) As IntegerDim i As Integer, j As Intege

45、rFori = 1 To 3For j = 3 To 1 Step -1 If 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 j Picture1.PrintNext iEnd Sub第20题执行下面程序，单击 Command1则窗体上显示的第一行是【1】、第二行是【2】,第三行是【3】Option ExplicitPrivate Sub Command1_Click()Dim a

46、 As String,i As Integer Dim x As String,z As String a="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三、程序填空共16题（选：10空*2 =20分）一一完形填空：把题目中空的程序代码行补齐本程序的功能是把由4个"."分隔的十进制数表示的IP地址转换为由32位二进制数组成的IP地址。例如十进制表示的IP地址为202

47、.119.191.1,其中每个十进制数对应一个8位的二进制数，合起来构成一个32位二进制的IP地址11001010011101111011111100000001。过程Tiqu用于提取十进制IP地址中每个用"."分隔的十进制数；过程Convert用于将十进制数转换为相应的8位二进制数。程序界面参见下图。Option ExplicitPrivate Sub Command1_Click()Dim str1 As String, str2 As StringDim a(4) As Integer, i As Integerstr1 = Text1.TextCall Tiqu(s

48、tr1, a)For i = 1 To 4If a(i) < 0 Or a(i) > 255 ThenMsgBox("IP地址错误！")Exit SubElseI*SPACE*【？】End IfNext iText2.Text = str2End SubPrivate 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 =""F

49、or i = 1 To n*SPACE*If d = "." Thenk = k + 1a(k) = Val(s)I*SPACE*【？】Elses = s & dEnd IfNext ia(4) = sEnd SubPrivate Function convert(ByVal n As Integer) As StringDim b As Integer, i As Integer, s As StringDo While n > 0b = n Mod 2If【？】ThenI*SPACE*【？】LoopFori = 1 To 8 - Len(s)s = &qu

50、ot;0" & sNext iI*SPACE*Left>Right 为止。For I = 1 To N【？】End Function下面程序的功能是：统计存放在数组A中的N个数有多少个是不同的。具体做法是：变量 Left指向要被处理的数(从第 2个元素开始)，Right指向数组最后一个元素。若 A(Left)与排在它前面的某个数组元素值相同，就用数组元素A(Right)的值来替换A(Left)的值，同时将变量Right的值减1;否则将变量Left的值加1,处理数组下一个元素，重复以上过程，直到'Right的值即为不同的数的个数。程序界面参见下图所示Option

51、ExplicitOption Base 1Private Sub Command1_Click()Dim A() As Integer, N As Integer, I As IntegerDim OP As IntegerN = InputBox("请输入数据个数"，10)ReDim A(N)RandomizeA(I) = Int(Rnd *10) + 1Textl = Text1 & A(I) & ""Next ICall statistic(A, OP)Text2 =" 有"& OP & &quo

52、t; 个不同的数：”For I = 1 To OPText2 = Text2 & A(I) & ""Next IEnd SubPrivate Sub statistic(A() As Integer, Right As Integer) Dim Left As Integer, K As Integer, I As Integer*SPACE*Right=Left = 2Do While Left <= RightI*SPACE*K=【？】For I = K To 1 Step -1If A(Left) = A(I) Then Exit ForNext

53、 I *SPACE*Left = Left + 1ElseA(Left) = A(Right)I*SPACE*End IfLoopEnd SubF面程序的功能是随机生成小于100的诸素数组成的数据。程序界面如下图所示Option ExplicitPrivate Sub Command1_Click()Dim p() As IntegerAs Integer,n As IntegerDim st As String,k As IntegerRandomizek =InputBox(" 元素个数；",20)ReDim p(k)Don =Int(Rnd*90)+10I*SPACE*IfTheni =i+1p(i) =nEnd IfI*SPACE*Loop Until 【？】For i =1 To UBound(p)st =st & Str(p(i)If i Mod 10 =0 Then st =st & vbCrLfNext