VB期末考试题库及答案

1、试卷方案：201105 Visual Basic期末考试方案、单项选择共50题（选：20题*1辽0分）以下有关对象属性的说法 屮，A.D.工具箱屮的控件并不是着稼的也erne關性施运行时不能改变 对象的所有属性都可以在属性窗口屮设置错误的是.VB屮所有的控件属性设置为False,则不能使用放置在Frame里面的控件数学表达式sin 27 J 亠的VB算术表达式为X +yAB.C.DSin( 27)+Sqr(x+Ex p3)/(x+y)Sin(27*3. 14159/180)+Sqr(x+Ex p(3)/Abs(x+y)Sin(27*3. 14159/180)+Sqr(x+e*3)/Abs(x+

2、y)Sin( 27* pi/180) +Sqr(x+Ex p(3)/Abs(x+y)下列有关对象的叙述屮，正确的是对象由属性，事件和方法构成对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置 对象的事件一定就是由VB预先设置好的人工干预的动作对象的方法是对象响应某个事件后执行的一段程序代码A.BCD.表达式 CInt(4. 5)+Cint(-4. 51)+lnt(4. 9)+lnt(-4. 1)+Fix(-1. 9)+0 Mod 2的运算结果是A. 1B-1C. - 2D. 一 3下列关于菜单的说法屮，错误的是.每一个菜单项就是一个对象，并且可设置自己的属性和事件 菜单项不可

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

4、确的是A.使用不带关键字reserve的ReDim语句可以重新定义数组的维数B.使用不带关键字reserve的ReDim语句可以改变数组各维的上、下界C.使用不带关键字reserve的ReDim语句可以改变数组的数据类型D.使用不带关键字reserve的ReDim语句可以对数组屮的所有元素进行初始化在列表框Listl屮有若干列表项,可以删除选定列表项的语句是A.Listl. text="11B.Listl. List(Listl Listl ndex)=""C.Listl. ClearD.Listl. Removeitem Listl. Listl ndex第10

5、题数学农达式色.h X对应的VB表达式是V sin X 一 cos X-A.B.(eA(2* n *x-5) *Log (x) + (Sin (2x) A3) /Sqr (Sin (x) -Cos (xA2)(Ex p(2*3 14159*x-5)*Log(x) + (Si n (2*x)A3) /Sqr (Si n (x) -Cos (xA2)C.D.(Exp (2* n *x-5)*Ln(x) + (Sin(2*x)A3)/Sqr (Sin(x) -Cos (xA2)e" (2*3. 14159*x-5)*L n(x) + (Si n (2*x) A3) /Sqr (Si n(x

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

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

8、ic语句声明的变量都是全局变量D.A.八进制数的表示方法是在数字前面加&0B.十六进制数的表示方法是在数字前面加&H出不冏件田械阳同立亦島好油时 彳井生冷汩目鴉栋小| 亦斟第16题以下关于数值常量的说法中错误的是C.在浮点运算中使用D来分隔尾数和指数时，系统将把该数值作为单精度型数处理D.32768是合法的数值常量第仃题数学表达式X , 3 c丄宀-"对应的VB表达式是Abs(e"x+Si “(30厂3)/ Sqr(x+y)B.Abs(Exp(X)+Sin(30)*3)/ (Sqr(x+y)C.第18题下面的4个表达式中.有关个能够对Single类型变量x（

9、正数）的第3位小数正确地进行四舍五入计算Format (x, S. 00) Int (100*(x+0 005)/100CIn t (100* (計0.005) /lOOFix(100*(s+0. 005) /100A. 1个B. 2个C. 3个D.Abs(e"x+Sin(30*3. 14159 / 180)3) / (Sqr(x+y)第佃题执行以下语句时.会岀现错误提示的是A. Prin t"2b3 " +12.5B. Prin t"12 5"+ 12C. Prin& 12.5D. Prin t"2e3"+12第2

10、0题以下Cas已语句含有错误的是A. Case 0 To 105. Case Is>10C. Case ls>10 And Is<50D. Case 3, 5, Is>10第21题下列语句中正确的是A. Textl. SetFocus5. FormL ClearC.LabelL SetFocusD. ListLCls第22题下列选项中，所包含的所有表达式能够将两位整数X的个位数与十位数对调（如将78转换为87）的是 Vai (Right (X> D&Left (X, D)Vai (Right (Str(X), D&Left (Str(X), D)

11、Vai (Right CCStr(X), 1)&Left (CStr(X), 1)Vai (Mid(X, 2, l)+Mid(X, 1, 1)A.第23题BCD以下关于子过程或函数的定义中.正确的是A. Sub fl（n As String!）B. Sub flCn As In teger)As In tegerC. Fun Ct ion fl(fl As In teger)As In tegerD. Fu notion fl (ByVai n As In teger)第24题下列有关控件数组的说法中，错误的是.控件数组由一组具有相同名称和相同类型的控件组成，不同类型的控件无法组成控件

12、数组 控件数组中的所有控件不得具有各自不同的属性设置值控件数组中的所有控件共享同一 个事件过程控件数组中每个元素的下标由控件的Index属性指定A.B.C.D25题第以下对数组参数的说明中，错误的是 .在过程中可以用Din,语句对形参数组进行声明形参数组只能按地 址传递实参为动态数组时，可用ReDim语句改变对应形参数组的维 界只需把要传递的数组名作为实参，即可调用过程A.B.C.D.26题要向文件datal. txt添加数据，正确的文件打开命令是A.B.aD,Opendatal. txt"For Output As fflOpen"datal txt"For I

13、nput As SIOpen"datal txt"For Append As ff5Open"datal txt" For ffrite As ff527题下而有关数组处理的叙述中，正确的是 .A. 在过程中使用R亡Dim语句可以改变动态数组数据的类型B. 在过程中，可以使用Dim、Private和Static语句来定义数组C. 用ReDim语句重新定义动态数组时，可以改变数组的大小，但不能改变数组的维数D. 不可以用Public语句在窗体模块的通用处说明一个全局数组第28题下而的表达式中，运算结果为True的是 .A. "abcrd"

14、; <="ABCRD"B. Int 仃34.69) <=CInt (134. 69)C. 3>2>1D. Mid ("Visual", 1, 4)=Right ("lausiV", 4)第29题设计界面时，要使一个文本框具有水平和垂直滚动条，应先将其为A, MultiLineB. AutoSizeC. AlignmentD.3.RightToLeft属性置为True.再将ScrollBar属性设置第30题而有关数组的说法中，正确的是数 组的维下界不可以是负数模块通 用声明处有 模块通躲&乐囑处有 模块通

15、用声明处有A.B.C.Option Base 1Option Base 1D.，则模块中数组定义语句，模块中有Dim A(0 To 5),，模块中有DimA(0 To 5),Dim A(0 To 5)会与之冲突则A数组第一维维下界为0则A数组第一维维下界为131题而有关数组的叙述中在过程中用ReDim语句定义的动态数组，.不正确的是其下标的上下界可以是变星数组作为形式参数时，传递的是每Public说明一个全局数组个数组元素的值在窗体模块的通用声明处可以用数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值A第32题BC.D下列关于对象SetFocus与GotFocus的描述中，正确的

16、是是事A. SetFocus件,GotFocus是方法 和GotFocus都是方法B. Setfocus 利1 Gotfocus 都是事彳牛C. SetfocusD. SetFocus 是方法,GotFocus 是事件第33题创建一个名为"文件“的菜单项，欲使其可用Alt+F方式访问，则在菜单编辑器的标题文木框中应输入A.文件($F)第34题B文件(&F)C.文件併F)D文件(%F)在下列属性中»属于 CommandButton 拴件ListBox控件共有的是A. Caption 、 Text6. Visible 、 FontC. Cap tion、VisibleD

17、 List > Visible第35题下列能够正确表示条件"X< YVZ"的阳逻辑表达式是A. X< Y<ZB. X<=Y And Y<ZC.尤 Y OR Y<ZD. X<=Y<Z第36题以下关于Function a程的说法中，错误的是A.Fun ction过程名可以有一个或多个返回值B.在Function过程内部不得再定义Fun cti on 过程C.Fu notion 过程中可以包含多个Exit Fun cti on语句D.可以像调用Sub过程一样调用Fun rt-i nn 1寸§第37题F面的关系表达式中

18、，运算结果为A. CIn t (1. 5)=1 nt (1. 5)True的是B. Fix(L5)=l ntCL5)C. Fix(-L5)=CI nt(-1.5)D. Fix (-1. 5)=1 nt (-L 5)第38题己知X<Y, A>B.则下列表达式中>结果为True的是A.Sgn (X-Y)+Sg n(A-B)=-lSgn (X-Y)+Sg n(A-B)=-2C. Sgn (Y-X)+Sg n(A-B)=2Sg n(Y-X)+Sg n(A-B)=0第39题执行语句时.会岀现岀错提示信息.A. Print 5+7=14B.Print 16384*2C. Print 32

19、768*2D Print "14"+32第40题数学表达式皿3。fiX + yA.对应的 Visual BasicSin(30*3 14159/180)+Sqr(Log(x)+y)/2*3. 14159+Ex p(x+y)表达式是B.(Sin(30* n /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.(Si n(30*3 14159/180)+Sqr(Log(x)+y)/C2*3. 14159+Ex p(x+y)第41题在一个多窗体程

20、序中，可以仅将窗体Forma从内存中卸载的语句是A. Forin2. U nioadB. Un load Forin2C. Form2. E ndD. Forin2. Hide第42题Print方法可在上输岀数据.窗体 文木框 图片框A.B.标签列表框立即窗口C.(T)(2)(5)D. (3)(4)(6)第43题若要使逻辑表达式x>y Xor y<z结果为True,则x、y、Z的取值应为下列选项中的A. x=3、y=3>B.x=2、 y=lz=2C. x=l第44题下列z=2Dx=2、 y=2、z=2是合法的变量名.A. abs第45题下列BalC.cdcD Abe 10A.

21、 D-6第46题是正确的VB常量.B E-6C.5DD. 5E-6若在模块中用 P rivate Fun ction Fun(A as Si ngle, B as In teger) As In teger的过程中定义了I、J和K三个Integer型变量”则下列语句中不能正确调用函数定义了函数Fun.调用函数FwFun的语句是A. Fun 3. 14, JB. Call Fund, 365)D. K二Fu n("24","35")第47题若需要在同一窗体内安排两组相互独立的单选按钮 ImageC.或(Op tio nButt on), 可使用控件做容器将

22、它们分开 TextBox PictureBox Framed(T)询第48题以下关于文件的叙述中，错误的是用Out put模式打开一个顺序文件，即使不对它进行写操作，原来的内容也被清除B,可以用Print荐语句或Write.语句将数据写到顺序文件中C.若以 Out put > Append、Ra ndom Bin ary 方式打开一个不存在的文件，系统会岀错D.顺序文件或随机文件都可以用二进制访问模式打开第49题窗体上有若干命令按钮和一个文木框，程序运行时焦点置于文本框中，为了在按下回车键时执行某个命令按钮的Click事件过程需要将该按钮的属性设H为True.A. En abled第50

23、题B. DefaultC CancelD. Visible数学表达式X' -cos29对应的VB表达式是J® +ln y) +5A,(X * 5-Cos (29) /Sqr Ce * x+I n (y) )+5B. (xA5-Cos(29)/ (Sqr (Ex p (x) +Log (y) +5)C. (xA5-Cos(29*3 14159/180) )/(Sqr (Ex p(x)+Log(y)+5)D. (x"5-Cos(29*3 14159, ISO)/(Sqr(e"x+Log(y)+5、填空共20题（选：15空*2=30分）阅读理解：填写程序的输出结

24、果17,第二行的内容是运行下列程序，单击Commandl.在窗体上显示的第一行内容是第三行的内容是31Option ExplicitPrivate Sub Commandl_Click()Dim s As Strings="BasicCall trans(s)End SubPrivate Sub trans(s As String)Dim j As Integer, t As StringDim k As Integerk=3Doj=InStrCs, *a*) t=LCase(Right Cs, j) s=Right Ct, Len(s)-k) & Left(s, Len(t

25、) k=k-lPrint sLoop Until k=0End Sub执行下而程序，单击 Comma ndl则窗体上显示的第一行是一【，第三行是21 最后一行是【31Option ExplicitPrivate Sub Comma ndl Click() Dim x AsInteger, y As Integer x=12:y=0Do While x> 0If X Mod 4=0 Theny=y+xElsey=y-xEnd If x=x-3Print X, yLoopEnd Sub2执行下而的程序，单击Comma ndl窗体上显示的第一行是31Option ExplicitPrivate

26、 Sub Comma ndl ClickODim a As In teger» b As In tegera=l : b=lCall subl(a, b)P ri nt a, bEnd SubP rivate Sub subl(a As In teger, b As In teger) a=a+b :b=b+aPrint a, bIf a>10 Thena=a+bb=b+aElseCall subl (a, b)End IfEnd Sub运行下面的程序，单击 Commandl在窗体上显75的变量a的值为,变量b的值为变量c的值为3Op ti on Exp licitPrivat

27、e Sub Comma ndl ClickODim a As In teger, b As In teger, c As In tegera=5: b=10: c=15P ri nt fun( a, b, c)+fu n(a, be)P ri nt a, b, cEnd SubP rivate Fun cti on fun(x As In teger, y As In teger, z As In teger) As In tegerz=xx=x+yy=y+2fun=x+yEnd Fun cti on执行下面的程序，连续三次单击命令按钮Coramandl之后 A数组共有1个元素；数组元素A的值

28、_【3】2Op ti onExp licitOp tio nBase 1P rivateSub Comma ndl_Click()Static A( ) As In teger, n As In tegerDim i As In teger,k As In tegerk=nn=n + 2ReDim P reserve A(n)For i=k+l To nNext iFor i=l To nPrint A(i);Next iPri ntEnd Sub运行下而程序，单击Comma ndl在窗体上显示的变量A的值为，变量B的值为2Op ti on Exp licitDim a As In teger

29、Private Sub Comma ndl_ClickODim b As In tegerb = fun (fun (a, b + 2)> a) + bPrint a, bEnd SubP rivate Fun cti on fun(n As In teger, k As In teger)End Fun cti on1,第二行显示的是执行下而的程序，单击Command则窗体上第一行显示的是Op ti on Exp licitDim X As In tegerP rivate Sub Comma ndl_Click()Dim y as In tegerX=10:Y=2Call pr oc

30、ess(y)Print X>YCall pr ocess(y)Print X,YEnd SubPrivate Sub p rocess (n As In teger)Dim y As In tegerIf n>0 Thenx=x-ny=xElsex=x+n y=x+2End If n=-nEnd Sub执行下面程序，单击Comma nd 1窗体上显示的第一行是_【1】，第二行是【2】，第四行是 【3】【4最后一行是Op ti on Exp licitPrivate Sub Comma ndl.ClickODim n As In tegerCall test ( n)Print nE

31、nd SubPrivate Sub test(ByVal n As In teger)Dim i As In teger, s As In tegerIf n > 0 The nFor i = 1 To ns = s & CStr(i)Next iPri nt sCall test (n - 2)ElsePrint "OVER"End IfEnd Sub运行下列程序，单击 Comma ndl在窗体上显示的第一行内容是1，第二行的内容是【21第三行的内容是【3】O ("A"的 ASCII 召马是 65 , *Z"是 90)Op ti

32、 on Exp licitPrivate Sub Comma ndl_Click()Dim i As In teger, st As Stri ng, n As In teger, p As Stri ng * 1p = "BFor i = 3 To 1 Ste p -1n = Asc(p) - iIf n < 65 The n n = n + 26 st = Chr( n) st = st & F(i) Pri nt stNext iEnd SubP rivate Fun cti on F(n As In teger)Dim i As In tegerStatic s

33、 As In tegerFor i = 1 To nNext iEnd Fun cti on第10题执行下而的程序，单击Conunandl输岀的变量i的值是【1】,变量j的值是 _kL变量k的值是_【31Op ti on Exp licitPrivate Sub Comma ndl_ClickODim i As In teger,j As In tegerDim k As In teger i=10 j=4 k=Fu nk(i, j)Print i, j,kEnd SubP riate Fun ction Fun k(ByVal A As In teger, B As In teger) As

34、 In tegerA=ABB=B-2If B=0 Or B=1 The nFunk=lElseFun k=A+Fu nk(A, B)End IfEnd Fun cti on第11题运行下面程序，如果连续三次单击命令按钮之后，A数组共有,A的值是一【3】1 一个元素；数组元素A的值是_【2】Op ti on Exp licitOp tio n Base 1Private Sub Comma ndl_Click()Static a() As In teger, n As In tegerDim i As In teger, k As In tegerReDim Pr eserve a(n)For

35、i =aCi)Next iFor i =1 To nPri nt a(i);Next iPrintEnd Sub第12题执行下面的程序，单击Commandl在窗体界面上显示的第一行是第四行是Op ti on ExpP rivate SubDim a Asa=i10041 OlicitComma ndl.ClickOIn teger, b As In teger, i As In teger i=1218b=i Mod 100If bOO ThenPrint aPrint b1，第二行是【2】，第三行是【3】Pri nt Lcd(a), (b);a;bPrint Led (a, b) ;a;bE

36、nd IfEnd SubPrivate Fun cti on Lcd(x As In teger»Y As In teger) As In tegerDim d As In tegerIf xy the nd=x:x=y:y=dEnd Ifd=xDoIf X Mod y=0 ThenLcd=xExit DoElsex=x+dEnd IfLoopEnd Fun cti on第13题执仃以下程序，单击Commandl则在Picturel上显示的第一行是1,第二行是2,第三行是Op ti on Exp licitP rivate Sub Comma ndl_Click()Dim A(3,

37、3) As In teger,i As In teger, j As In tegerDim k As In tegeri=3:j=2:ACi, j)=l:k=lDo Un til k>9k=k+lIf i+l>3 And j+l<=3 Then i=l:Elself i+l<=3 And j+l>3 Then i=i+l:j=lElself i+l>3 And j+l>3 Then i=i-lElself i+l<=3 And j+l<=3 And A(i+lJ+l)<>0 Theni=i-lElseEnd IfA(iJ)=k

38、LoopFor i=l To 3For j=l To 3P ictureL Print A(i, j);Next jPictureL PrintNext iEnd Sub第14题执行下列程序，单击 第盈亍的1在窗体上显示的第一行内容是11,第二行的内容是23内容是一Option ExplicitPrivate Sub Commandl ClickDim n As Integer , i As Integer n=2For 1=7 To 1 Step -1Call sub2Ci, n)Print i,nNext iEnd SubPrivate Sub sub2 (x As Integer,y A

39、s Integer) Static n As IntegerDim 1 AsIntegerFor i =2To 1 Step -1n =n+xX =xTNext iy=y-nEnd Sub第15执行下列的程序，单击 Commandl在窗体上显示的变量b的值为_ 1变量c的值为.2】变量2的值为【31 -oPrivate Sub Coinmandl_Click()Dim b As Integer, c As Integer, z As Integerb=2c=lz=fun (b, fun Cb+1, c) +b-c+lPrint b. c, zEnd SubPrivate Function fu

40、n(x As Integer,y As Integer) As Integerx=x-y y=x+y+2 fun=y-xEnd Function第16题执行下而程序，单击 Comma ndl窗体上显示的第一行是Option ExplicitPrivate Sub Coinniandl_Click ()Dim a As Integer, b As Integer, i As Integer a=2: b=5For i=a To a*b Step a Call subl(i,a, b) Print a, bNext iPrint a, b, iEnd SubPrivate Sub subl Ci

41、As Integer, a As Integer, b As Integer) i=i+la=a 十 1b=b+lEnd Sub第17题21 _第三行是一【3】执行下面程序，单击Command, 1窗体上显示的第一行是Option ExplicitOption Base 1Private Sub Conimandl_Click()Dim sa (3, 3) As String*!, i As Integer, j As Integer, k as Integer k=lFor 1=1 To 3For j=l To 3 sa(i, j)=Chr(AscC*A*)+(k+i+j) Mod 26)

42、Print sa(i,j);"k=k+3Next jPrintNext iEnd Sub第18题执行下面程序，单击 Cowandl则数组元素a(l的数值是,a(3, 3)的数值是图片框中最后一行显示的是3Option ExplicitPrivate Sub Coinmandl_Click()Dim a (4,4) as Integer, i as Integer, j as IntegerDim k As Integer, num as Integer num=0For k=l To 4For i=l To k-1num=num-l a(i, k)=numnext 1For j=k

43、To 1 Step -1 num=num-la(k, j)=num next j next kFor i=l To 4For j=l To 4P icturel. Print Right(* * & a(i, j),3);Next jP icturel.PrintNext iEnd Sub第佃题执行下面程序,单击 Comma ndl则图片框中显示的第一行是1 一，显示的第二行是【2】行显示的是【3】Private Sub Comma ndl_ClickODim a(3, 3) As In tegerDim i As In teger, j As In tegerFor i = 1 To

44、 3For j = 3 To 1 Ste p -1If i >= j ThenaCi, j) = i - jElsea(i, j) = j -End IfNext jNext iFor i = 1 To 3For j = 3 To 1 Ste p -1P icturel- Print a(i, j)；Next jP icturel. PrintNext iEnd Sub第20题执行下而程序，单击 Comma ndl则窗体上显示的第一行是【1】，第二行是【2】，第三行是31Op ti on Exp licitP rivate Sub Comma ndl_Click()Dim a As St

45、rin g» i As In tegerDim X As Stri ng, z As Stri nga=*iainstude nti=I nStr (5, a, *d*)Dox=Mid(a, i, 3)z二Right(X, 1)z=VCase(x & Z) i=i-2Print zLoop Vn til i=lEnd Sub三、程序填空_共16题（选：10空*2边0分） 完形填空：把题目中空的程序代码行补齐朮程序的功能是把市4个 分隔的十进制数表示的IP地址转换为由32位二进制数组成，的IF地址。例如十进制表示的IP地址为202. 119. 19L 1.其中每个十进制数对应一

46、个，的二进制数，合起来构成一个32 位二进制的 IP 地址 110010100111011110111111000000010，过程Tiqu用于提取十进制IP地址中每个用分隔的十进制数;，过程Con vert用于将十进制数转换为相应的8位二进制数。程序界而参见下图。口叵Dim strl As Stri ng, str2 As Stri ng十进制IP地址=冈Op ti on Exp licitPrivate Sub Comma ndl_Click()Dim a(4) As In teger, i As In teger stri202. 119. 191.1=TextL Text二进制IP地址

47、二Call Tiqu(strl, a)For i = 1 To 4If a(i) < 0 Or a(i) > 255 The nMsgBoxC IP地址错误！ “）11001010011101111011111100000001Exit SubElse转换'*Space*End If ?Next iText2. Text = str2End SubPrivate Sub Tiqu(st As Stri ng, a() As In teger)Dim n As In teger, k As In teger, s As String, d As Stri ng * 1, i

48、As In teger n =Len< st): k = 0: sFor i = 1 To n'*Space*If d =r? "Irhe na(k) = Val(s)，*Space*ElseEnd IfNext ia(4) = SEnd SubP rivate Fun cti on con vert (BjVal n As In teger) As String Dim bAs In teger, i As In teger, s As Stri ngDo ffhile n > 0b = n Mod 2，*SPACE*LoopFor i = 1 To 8 - L

49、en(s)Next i'*SPACE*End Fun Ji2l Jn，下而程序的功能是：统计存放在数组A中的N个数有多少个是不同的。，具体做法是.变ft Left指向要被处理的数(从第2个元素开始),，Right指向数组最后一个元素。若A(Left)与排在它前而的某个数组元素值相同,，就用数组元素A(Right)的值来替换A(Left)的值，同时将变量R辽ht的值减1;Left>Right 为止 o，否则将变1： Left的值加1,处理数组下一个元素，重复以上过程，直到' Right的值即为不同的数的个数。程序界面参见下图所示Op ti on Exp licit龟求不同数

50、的个数口回区I3 10 6 4 10 3 IQ 2 5 5Op tio n Base 1Private Sub Conuna ndl_Click()Dim A() As In teger, N As In teger, I As In tegerDim OP As In tegerN = Inp utBox("请输入数据个数,10)ReDim A(N)有7个不同的数：a 10 6Ran domizeFor I = 1 To N “r运行ACI) = In t (R nd * 10)中 1 Textl=Textl & ACI) & “ “Next ICall statistic(A, OP)Text2 =* 有"& OP &个不同的数：”For