试卷方案：201105 Visual Basic期末考试方案
一、单项选择_共50题（选：20题*1’=20分） 第1题
以下有关对象属性的说法中，错误的是___________. A. 工具箱中的控件并不是VB中所有的控件
B. 若将Frame的Enabled属性设置为False，则不能使用放置在Frame里面的控件 C. 对象的Name属性在运行时不能改变
D. 对象的所有属性都可以在属性窗口中设置
第2题
x?e3数学表达式 sin27?的VB算术表达式为_______ .
|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*3.14159/180)+Sqr(x+e^3)/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)+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语句的功能只是对固定大小的数组进行初始化 D. Lbound函数返回值是指定数组某一维的下界
第7题
设a=3,b=2,c=1,运行print a>b>c的结果是____________. A. True B. False C. 1 D. 出错
1
第8题
以下说法不正确的是____________.
A. 使用不带关键字Preserve的ReDim语句可以重新定义数组的维数 B. 使用不带关键字Preserve的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题
x?53数学表达式
e2?lnx?sin(2x)对应的VB表达式是__________.
|sinx?cosx2|A. (e^(2*π*x-5)*Log(x)+(Sin(2x))^3)/Sqr(Sin(x)-Cos(x^2))
B. (Exp(2*3.14159*x-5)*Log(x)+(Sin(2*x))^3)/Sqr(Sin(x)-Cos(x^2)) C. (Exp(2*π*x-5)*Ln(x)+(Sin(2*x))^3)/Sqr(Sin(x)-Cos(x^2)) D. e^(2*3.14159*x-5)*Ln(x)+(Sin(2*x))^3)/Sqr(Sin(x)-Cos(x^2))
第11题
以下有关数组参数的说明中，正确的是______ A. 在过程中也可用Dim语句对形参数组进行说明
B. 动态数组作为实参时，可用ReDim语句在过程中改变对应形参数组的维界 C. 调用过程时，数组名不能作为实参 D. 数组可以按地址传递也可以按植传递
第12题
下列有关过程的说法中,错误的是_____________.
A. 在Sub或 Function过程内部不能再定义其它Sub或 Function 过程
B. 对于使用ByRef说明的形参,在过程调用时形参和实参只能按传址方式结合 C. 递归过程既可以是递归Function过程,也可以是递归Sub过程 D. 可以像调用Sub过程一样使用Call语句调用Function过程
第13题
要将焦点设置在某个控件上,以下四个选项中正确的是______. A. 只能使用鼠标直接点击控件
B. 只能使用Tab键将焦点移到该控件
C. 只能在程序中调用该控件的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 Is<-6,Is>6
2
第15题
以下关于变量作用域的叙述中,正确的是____________.
A. 窗体中凡用Private声明的变量只能在某个指定的过程中使用 B. 模块级变量只能用Dim语句声明
C. 凡是在窗体模块或标准模块的通用声明段用Public语句声明的变量都是全局变量 D. 当不同作用域的同名变量发生冲突时，优先访问局限性小的变量
第16题
以下关于数值常量的说法中,错误的是______ A. 八进制数的表示方法是在数字前面加&O B. 十六进制数的表示方法是在数字前面加&H
C. 在浮点运算中使用D来分隔尾数和指数时，系统将把该数值作为单精度型数处理 D. 32768是合法的数值常量
第17题
数学表达式
ex?sin330?x?y对应的VB表达式是___________.
A. Abs(e^x+Sin(30)^3)∕Sqr(x+y)) B. Abs(Exp(x)+Sin(30)^3)∕(Sqr(x+y))
C. Abs(e^x+Sin(30*3.14159∕180)^3)∕(Sqr(x+y)) D. Abs(Exp(x)+Sin(30*3.14159∕180)^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题
执行以下语句时,会出现错误提示的是__________. A. Print\
B. Print\
C.Print\
D.Print\
第20题
以下Case语句含有错误的是___________. A. Case 0 To 10
B. Case Is>10
C. Case Is>10 And Is<50
D. Case 3,5,Is>10
第21题
下列语句中,正确的是__________ A. Textl.SetFocus
B. Forml.Clear C. Labell.SetFocus
D. Listl.Cls
第22题
下列选项中,所包含的所有表达式能够将两位整数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(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 D. Function f1(ByVal n As Integer)
3
C. Function f1(f1 As Integer)As Integer
第24题
下列有关控件数组的说法中,错误的是______.
A. 控件数组由一组具有相同名称和相同类型的控件组成，不同类型的控件无法组成控件数组 B. 控件数组中的所有控件不得具有各自不同的属性设置值 C. 控件数组中的所有控件共享同一个事件过程
D. 控件数组中每个元素的下标由控件的Index属性指定
第25题
以下对数组参数的说明中,错误的是___________ . A. 在过程中可以用Dim语句对形参数组进行声明 B. 形参数组只能按地址传递
C. 实参为动态数组时，可用ReDim语句改变对应形参数组的维界 D. 只需把要传递的数组名作为实参，即可调用过程
第26题
要向文件datal.txt添加数据,正确的文件打开命令是_____________. A. Open\B. Open\C. Open\D. Open\
第27题
下面有关数组处理的叙述中，正确的是__________. A. 在过程中使用ReDim语句可以改变动态数组数据的类型 B. 在过程中，可以使用Dim 、Private和 Static语句来定义数组
C. 用ReDim语句重新定义动态数组时，可以改变数组的大小，但不能改变数组的维数 D. 不可以用Public语句在窗体模块的通用处说明一个全局数组
第28题
下面的表达式中,运算结果为True的是__________. A. \C. 3>2>1
B. Int(134.69) <=CInt(134.69)
D. Mid(\
第29题
设计界面时,要使一个文本框具有水平和垂直滚动条,应先将其________属性置为True,再将ScrollBar属性设置为3.
A. 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语句定义的动态数组,其下标的上下界可以是变量 ② 数组作为形式参数时,传递的是每个数组元素的值
③ 在窗体模块的通用声明处可以用Public 说明一个全局数组
4
④ 数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值 A. ②③
B. ①③④
C. ①②③④
D. ③④
第32题
下列关于对象SetFocus与GotFocus的描述中,正确的是_____ A. SetFocus是事件,GotFocus是方法 C. Setfocus和GotFocus都是方法
B. 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
第35题
下列能够正确表示条件\VB逻辑表达式是______ A. X≤Y B. X<=Y And Y C. X≤Y OR Y D. X<=Y 第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. Fix(-1.5)=CInt(-1.5) D. Fix(-1.5)=Int(-1.5) 第38题 已知X D. Sgn(Y-X)+Sgn(A-B)=0 第39题 执行__________语句时,会出现出错提示信息. A. Print 5+7=14 B. Print 16384*2 C. Print 32768*2 D. Print \ 第40题 数学表达式 sin30??logx?y2??ex?y对应的Visual 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 第41题 在一个多窗体程序中,可以仅将窗体Form2从内存中卸载的语句是________. A. Form2.Unload C. Form2.End B. Unload Form2 D. Form2.Hide 第42题 Print方法可在______上输出数据. ①窗体 ②文本框 ③图片框 ④标签 ⑤列表框 ⑥立即窗口 A. ①③⑥ B. ②③⑤ C. ①②⑤ D. ③④⑥ 第43题 若要使逻辑表达式x>y Xor y B. x=2、y=1、z=2 D. x=2、y=2、z=2 第44题 下列____________是合法的变量名. A. abs B. –al C. cdc d D. Abe_10 第45题 下列______是正确的VB常量. A. D-6 B. E-6 C. 5D D. 5E-6 第46题 若在模块中用Private Function Fun(A as Single,B as Integer) As Integer 定义了函数Fun.调用函数Fun的过程中定义了I、J和K三个Integer型变量,则下列语句中不能正确调用函数Fun的语句是___________. A. Fun 3.14,J B. Call Fun(I,365) C. Fun(I),(J) D. K=Fun(\ 第47题 若需要在同一窗体内安排两组相互独立的单选按钮(OptionButton),可使用______控件做容器将它们分开. ①TextBox ②PictureBox ③ Image ④ Frame A. ①或② B. ②或③ C. ②或④ D. ③或④ 第48题 以下关于文件的叙述中，错误的是__________。 A. 用Output模式打开一个顺序文件，即使不对它进行写操作，原来的内容也被清除 B. 可以用Print #语句或 Write# 语句将数据写到顺序文件中 C. 若以Output、Append、Random、Binary 方式打开一个不存在的文件，系统会出错 D. 顺序文件或随机文件都可以用二进制访问模式打开 第49题 窗体上有若干命令按钮和一个文本框,程序运行时焦点置于文本框中,为了在按下回车键时执行某个命令按钮的Click事件过程,需要将该按钮的_________属性设置为True. A. Enabled B. Default C. Cancel D. Visible 第50题 数学表达式 x5?cos29?(e?lny)?5x 对应的VB表达式是______ A. (x^5-Cos(29))/Sqr(e^x+In(y))+5 B. (x^5-Cos(29))/(Sqr(Exp(x)+Log(y))+5) 6 C. (x^5-Cos(29*3.14159/180))/(Sqr(Exp(x)+Log(y))+5) D. (x^5-Cos(29*3.14159/180))/(Sqr(e^x+Log(y))+5 二、填空_共20题（选：15空*2’=30分）——阅读理解：填写程序的输出结果 第1题 运行下列程序，单击Command1, 在窗体上显示的第一行内容是______【1】____, 第二行的内容是_____【2】____, 第三行的内容是_____【3】______。 Option Explicit Private Sub Command1_Click() Dim s As String s=\ Call trans(s) End Sub Private Sub trans(s As String) Dim j As Integer,t As String Dim k As Integer k=3 Do j=InStr(s,\ t=LCase(Right(s,j)) s=Right(t,Len(s)-k) & Left(s,Len(t)) k=k-1 Print s Loop Until k=0 End Sub 第2题 执行下面程序，单击Command1，则窗体上显示的第一行是＿【1】＿＿＿，第三行是＿＿【2】＿＿，最后一行是＿＿【3】＿＿。 Option Explicit Private Sub Command1＿Click() Dim x As Integer,y As Integer x=12:y=0 Do While x> 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题 执行下面的程序，单击Command1,窗体上显示的第一行是______【1】_____，第二行是______【2】____,第四行是______【3】_____。 Option Explicit 7 Private Sub Command1_Click() Dim a As Integer, b As Integer a=1 : b=1 Call sub1(a, b) Print a, b End Sub Private Sub sub1(a As Integer, b As Integer) a=a+b : b=b+a Print a, b If a>10 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=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() 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 For i=1 To n Print A(i); Next i Print End Sub 第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 第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 n>0 Then x=x-n y=x Else x=x+n y=x+2 End If n=-n End Sub 第8题 执行下面程序，单击Command1，窗体上显示的第一行是__【1】___，第二行是___【2】___，第四行是___【3】_______， 9 最后一行是___【4】_____. Option Explicit Private Sub Command1_Click() Dim n As Integer n = 5 Call test(n) Print 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 \ End If End Sub 第9题 运行下列程序，单击Command1，在窗体上显示的第一行内容是 【1】 ,第二行的内容是 【2】 ,第三行的内容是 【3】 。（\的ASCII码是65，\是90） Option Explicit Private Sub Command1_Click() Dim i As Integer, st As String, n As Integer, p As String * 1 p = \ 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 i F = s End Function 第10题 执行下面的程序，单击Command1，输出的变量i的值是 【1】 ，变量j的值是 【2】 ，变量k的值是 【3】 。 Option Explicit 10 Private Sub Command1_Click() Dim i As Integer,j As Integer Dim k As Integer i=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 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 Private Sub Command1_Click() Dim a As Integer,b As Integer,i As Integer i=1218 a=i\\100 b=i Mod 100 If b<>0 Then 11 Print a Print b ． Print Lcd((a),(b));a;b Print Lcd(a,b);a;b End If End Sub Private Function Lcd(x As Integer,Y As Integer) As Integer Dim d As Integer If x If x Mod y=0 Then Lcd=x Exit Do Else x=x+d End If Loop End Function 第13题 执行以下程序，单击Command1，则在Picturel上显示的第一行是 【1】 ，第二行是 【2】 ，第三行是 【3】 。 Option Explicit Private Sub Command1_Click() Dim A(3,3) As Integer,i As Integer,j As Integer Dim k As Integer i=3:j=2:A(i,j)=1:k=1 Do Until k>9 k=k+1 If i+1>3 And j+1<=3 Then i=1:j=j+1 ElseIf i+1<=3 And j+1>3 Then i=i+1:j=1 Elself i+1>3 And j+1>3 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 Loop For i=1 To 3 For j=1 To 3 Picture1.Print A(i,j); Next j 12 Picture1.Print Next i End Sub 第14题 执行下列程序，单击Command1，在窗体上显示的第一行内容是＿＿【1】＿＿，第二行的内容是＿＿【2】＿＿，第三行的内容是＿【3】＿＿＿。 Option Explicit Private Sub Command1_Click Dim n As Integer ,i As 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_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 第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 13 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 Integer, 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(\ Print sa(i,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 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 14 For i=1 To 4 For j=1 To 4 Picture1.Print Right(\ Next j Picture1.Print Next i End Sub 第19题 执行下面程序，单击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.Print 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=\ i=InStr(5,a,\ Do x=Mid(a,i,3) z=Right(x,1) z=UCase(x & Z) i=i-2 Print z Loop Until i=1 End Sub 15 三、程序填空_共16题（选：10空*2’=20分）——完形填空：把题目中空的程序代码行补齐 第1题 '本程序的功能是把由４个\分隔的十进制数表示的IP地址转换为由32位二进制数组成 '的IP地址。 例如十进制表示的IP地址为202.119.191.1,其中每个十进制数对应一个8位 '的二进制数，合起来构成一个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) < 0 Or a(i) > 255 Then MsgBox(\地址错误！\ 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 = \ k = k + 1 a(k) = Val(s) '**********SPACE********** 【?】 Else s = s & d End If Next i 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 Mod 2 n = n \\ 2 16 '**********SPACE********** 【?】 Loop For i = 1 To 8 - Len(s) s = \ Next i '**********SPACE********** 【?】 End Function 第2题 '下面程序的功能是：统计存放在数组A中的N个数有多少个是不同的。 '具体做法是：变量Left指向要被处理的数（从第2个元素开始）， 'Right指向数组最后一个元素。若A(Left)与排在它前面的某个数组元素值相同， '就用数组元素A(Right)的值来替换A(Left)的值，同时将变量Right的值减1； '否则将变量Left的值加1，处理数组下一个元素，重复以上过程，直到Left>Right为止。 'Right的值即为不同的数的个数。程序界面参见下图所示。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim A() As Integer, N As Integer, I As Integer Dim OP As Integer N = InputBox(\请输入数据个数\ ReDim A(N) Randomize For I = 1 To N A(I) = Int(Rnd * 10) + 1 Text1 = Text1 & A(I) & \ Next I Call statistic(A, OP) Text2 = \有 \个不同的数: \ For I = 1 To OP Text2 = Text2 & A(I) & \ Next I End Sub Private Sub statistic(A() As Integer, Right As Integer) Dim Left As Integer, K As Integer, I As Integer '**********SPACE********** Right=【?】 Left = 2 Do While Left <= Right '**********SPACE********** K= 【?】 For I = K To 1 Step -1 If A(Left) = A(I) Then Exit For Next I '**********SPACE********** If 【?】 Then 17 Left = Left + 1 Else A(Left) = A(Right) '**********SPACE********** 【?】 End If Loop End Sub 第3题 '下面程序的功能是随机生成小于100的诸素数组成的数据。程序界面如下图所示。 Option Explicit Private Sub Command1_Click() Dim p() As Integer,i As Integer,n As Integer Dim st As String,k As Integer Randomize k =InputBox(\元素个数；\ ReDim p(k) Do n =Int(Rnd*90)+10 '**********SPACE********** If 【?】 Then i =i+1 p(i) =n End If '**********SPACE********** Loop Until【?】 For i =1 To UBound(p) st =st & Str(p(i)) If i Mod 10 =0 Then st =st & vbCrLf Next i Text1 =st End Sub Private Function prime(n As Integer) As Boolean Dim i As Integer Prime =True For i =2 To Sqr(n) If n Mod i =0 Then '**********SPACE********** 【?】 Exit For End If Next i End Function 第4题 '用以下公式求f(x) 的值。当通项的绝对值小于10^-7时停止计算，x的值由键盘输入。 18 '程序界面和公式参考图片所示： Option Explicit Private Sub Command1_Click() Dim x As Single, fx As Single Dim a As Single, a1 As Single, a2 As Single Dim t As Single a1 = 1: a2 = 2 x = Text1 '**********SPACE********** If 【?】Then MsgBox (\必须在-1～1之间\ Exit Sub End If fx = a1 * x - a2 * x * x t = (-1) * x * x Do a = 1 / (a1 + a2) t = (-1) * t * x '**********SPACE********** fx = 【?】 a1 = a2 '**********SPACE********** 【?】 Loop Until Abs(a * t) < 0.0000001 Text2 = fx End Sub 第5题 '下面程序的功能是：首先生成一个由小到大已排好序的整数数组，再输入一个数据， '单击\插入\按钮会自动把这个数据插人到原数组适当的位置，并保持数组的有序性。 '程序界面参见下图。 Option Explicit Dim a( ) As Integer Private Sub Form_Activate() '生成有序数组 Dim i As Integer ReDim a(10) For i=1 To 10 a(i)=(i-1)*10+1 Text1=Text1 & Str(a(i)) Next i Text2.SetFocus 19 End Sub Private Sub Command1_Click() Dim n As Integer,i As Integer n=Text2 For i=1 To UBound(a) '**********SPACE********** If 【?】Then Exit For '确定插入的位置 Next i '**********SPACE********** 【?】 For i=1 To UBound(a) Text3=Text3 & Str(a(i)) Next i End Sub Private Sub inst(P() As Integer,n As Integer,k As Integer) '数组元素移位并实现插入 Dim i As Integer '**********SPACE********** 【?】 For i=UBound(P)-1 To k Step -1 '**********SPACE********** 【?】 Next i P(k)=n End Sub 第6题 '下面程序的功能是：将输入的2位16进制数的每一位转换为一个4位的二进制数， '再组合成为一个8位的二进制数。程序界面参见下图。 Option Explicit Private Sub Command1_Click() Dim h As String, h1 As String * 1,h2 As String * 1 h=Text1 h1=Left(h,1): h2=Right(h,1) Text2=h2b(h1) & h2b(h2) End Sub Private Function h2b(p As String) As String Dim st As String, i As Integer st=″0123456789ABCDEF″ For i=1 To Len(st) '**********SPACE********** If 【?】 Then Exit For Next i i=i-1 Do '**********SPACE********** h2b=【?】 i=i\\2 Loop Until i<=0 20 '**********SPACE********** h2b=【?】 End Function 第7题 '用以下公式(公式如下图所示)求Sin(x)的值.当级数通项的绝对值小与eps=10^-7时停止 2n?1x3x5xsin(x)?x??????(?1)n???,|x|??,n?0,1,2,?? 3!5!(2n?1)!'计算,x的值由键盘输入. ' 请完善如下程序 Option Explicit Private Sub Form_Click() Dim x As Double,t As Double,n As Integer,sum As Double Const eps=0.0000001 X =Val(InputBox(\请输入x：\'**********SPACE********** 【?】 sum =t n =1 '**********SPACE********** Do Until 【?】 t =-t '**********SPACE********** t =【?】 sum =sum+t n =n+1 Loop Print \End Sub 第8题 '下面程序的功能是：在文本框1中输入若干以空格分隔的整数（末尾无空格）， '程序自动将输入的数据分解并存储到一个一维数组， '再把数组中所有重复的元素删除（只保留一个），并输出到文本框2。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim a() As Integer, i As Integer, st As String Dim k As Integer, p As Integer st=Text1 Do p=InStr(st,\ If p<>0 Then '**********SPACE********** 【?】 ReDim Preserve a(k) a(k)=Val(Left(st,p-1)) 21 st=Right(st,Len(st)-p) Else '**********SPACE********** 【?】 a(k+1)=Val(st) End If '**********SPACE********** Loop Until【?】 Call del(a) For i= 1 To UBound(a) Text2=Text2 & Str(a(i)) Next i Text2=LTrim(Text2) End Sub Private Sub del(a() As Integer) Dim i As Integer, j As Integer, k As Integer Do i=i+1 j=i+1 Do While j<=Ubound(a) '**********SPACE********** If 【?】Then For k=j To UBound(a)-1 a(k)=a(k+1) Next k ReDim Preserve a(UBound(a)-1) Else '**********SPACE********** 【?】 End If Loop Loop Until i>UBound(a) End Sub 第9题 '下面程序的功能是将给定整数 N 表示成若干个质数因子相乘的形式（分解质因数）. '程序界面参见下图。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim n As Integer,a() As Integer Dim st As String,i As Integer n =Text1 Call fenjie(n,a) st =CStr(n) & \ For i =1 To UBound(a)-1 St =st & a(i) & \ 22 Next i Text2 =st & a(i) End Sub '**********SPACE********** Private Sub fenjie(【?】) Dim k As Integer,i As Integer k =2 Do If n Mod k =0 Then i =i +1 ReDim Preserve a(i) a(i) =k '**********SPACE********** 【?】 Else '**********SPACE********** 【?】 End If '**********SPACE********** Loop Until【?】 End Sub 第10题 '学生的某次课程测验中，选择题的答案已记录在列表框List1中， '其数据行格式是：学号为6个字符长度、2个空格、选择题的答案为15个字符长度。 '程序根据标准答案进行批改，每答对一题给1分，并将得分存放到列表框List2中。 '标准答案存放在变量Exact中。程序界面参考图片所示。 Option Explicit Private Sub Command1_Click() Dim Anw As String, StudId As String Dim Scor As Integer, Exact As String Dim I As Integer, J As Integer Exact = \ '标准答案 '**********SPACE********** For I = 【?】 '**********SPACE********** Anw = 【?】 StudId = Left(Anw, 6) Anw = Right(Anw, Len(Anw) - 8) '**********SPACE********** 【?】 For J = 1 To Len(Anw) '**********SPACE********** If 【?】Then Scor = Scor + 1 End If Next J 23 List2.AddItem StudId & \ Next I End Sub 第11题 '下面程序的功能是：输入一个n位的整数（n≤10）,求出由这n个数字组成的n位的 '最小整数和最大整数。 Option Explicit 0ption Base 1 Private Sub Command1_Click() Dim n As Long,a() As String n=Text1 Call change(n,a) Call sort(a) For i=1 To UBound(a) large=a(i) & large '**********SPACE********** small=【?】 Next i Text2=large For i=1 To Len(small) '**********SPACE********** If 【?】 Then Exit For Next i If i<>1 Then small =Mid(small, i ,1) & Left(small,i-1) & Right(small,Len(small)-i) End If Text3=small End Sub Private Sub sort(a() As Integer) '冒泡法排序 Dim i As Integer,j As Integer,t As Integer For i=1 To UBound(a)-1 For j=1 To UBound(a)-i '*********SPACE********** If 【?】 Then t =a(j) a(j)=a(j+1) a(j+1)=t End If Next j Next i End Sub '**********SPACE********** Private Sub change(【?】) Dim k As Integer Do k=k+1 ReDim Preserve a(k) 24 a(k)=n Mod 10 '**********SPACE********** n=【?】 Loop Until n=0 End Sub 第12题 '下面程序的功能是计算如图所示的值。请完善如下程序： Option Explicit Private Sub Command1_Click() Dim n As Integer, st As String, i As Integer Dim k As Single, s As Single, j As Integer n=Text1 s=1 For i =2 To n '**********SPACE********** 【?】 For j =1 To i st=st & CStr(i) next j '**********SPACE********** k=【?】 s=s + k Next i Text2=s End Sub 第13题 ' 在计算机中用一个字节(8位)来存储一个字符的ASCII码, ' 其中低7位二进制数对应字符的编码,每个字节的最高位一般保持为\， ' 在数据传输时可用作奇偶校验位。传输时ASCII代码转换成传输码的方法是， ' 若7位ASCII码有偶数个1，则最高位为1。有奇数个1，则最高位为0。 ' 例如字母\的ASCII码十进制表示为65，二进制表示为01000001。 ' \的传输码则为\。本程序的功能就是把ASCII代码转换成这种传输码。 ' 程序参考界面如下图所示。 Option Explicit Private Sub Command1_Click() Dim i As Integer, s As String Dim str As String, ch As String str = Text1.Text For i = 1 To Len(str) '**********SPACE********** 【?】 Call convert(ch, s) List1.AddItem ch & \ 25 Next i End Sub Private Sub convert(ch As String, s As String) Dim m As Integer, k As Integer, n As Integer, i As Integer '**********SPACE********** s= 【?】 n = Asc(ch) Do While n > 0 '**********SPACE********** 【?】 s = m & s If m = 1 Then k = k + 1 End If n = n \\ 2 Loop For i = 1 To 7 - Len(s) '将字符的二进制代码补足7位 s = \ Next i If k Mod 2 = 0 Then '**********SPACE********** 【?】 Else s = \ End If End Sub 第14题 '下面程序的功能是：找出仅由数字1、2、3、4组成的4位素数，要求每个素数由4个不 '同数字组成。算法提示：函数Validate用于验证一个4位数是否由4个不同数字组成。 '在函数中用A数组的各个元素分别对应数字0～9，只要某数字出现在四位数中，无论几次， '均将该数字对应的数组元素值置为1。程序界面参见下图。 Option Explicit Private Sub Command1_Click() Dim i As Integer，Flg As Boolean For i=1234 To 4321 '**********SPACE********** 【?】 Call Prime(i,Flg) If Flg Then If Validate(i) Then Text1=Text1 & i & vbCrLf ． End If End If Next i End Sub Private Sub Prime(n As Integer，f As Boolean) Dim k As Integer 26 For k=2 To Sqr(n) '**********SPACE********** 【?】 Next k f=True End Sub Private Function Validate(n As Integer) As Boolean Dim A(0 To 9)As Integer,s As String,i As Integer Dim s1 As String*1 '**********SPACE********** 【?】 For i=1 To Len(s) s1=Mid(s,i,1) '**********SPACE********** 【?】 Next i If A(1)+A(2)+A(3)+A(4)=4 Then '**********SPACE********** 【?】 End If End Function 第15题 '本程序的功能是利用无穷级数求cos(x)的近似值,已知公式如图所示: '当第n项的绝对值小于等于10^-7时计算终止。程序界面参见下图。 Option Explicit Private Sub Command1_Click() Dim X As Single, n As Integer, sum As Single Dim a As Single X = Text1 '**********SPACE********** 【?】 a = 1 n = 1 Do a = -a '**********SPACE********** a = 【?】 sum = sum + a n = n + 1 '**********SPACE********** Loop Until 【?】 Text2 = sum End Sub 27 第16题 '定义方阵的一种范数为该方阵各列元素的绝对值之和中的最大值。以下程序的功能 '是求一个4×4方阵的范数。该方阵的数据是随机生成的-20～20之间的整数。 '程序界面参见下图。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim a(4,4) As Integer Dim i As Integer,j As Integer For i=1 T0 4 For j=1 To 4 '**********SPACE********** a(i,j)= 【?】 Picture1.Print Right(\ Next j Picture1.Print Next i '**********SPACE********** Text1.Text= 【?】 End Sub Private Function fan(a()As Integer) As Integer Dim b(4) As Integer,max As Integer Dim i As Integer,j As Integer For i=1 To 4 For j=1 To 4 '**********SPACE********** b(j)=【?】 Next j Next i max=b(1) For i=2 To 4 If max 四、程序改错_共7题（选：3错*4’=12分） 第1题 '【题目】从10个各不相同的正整数中，剔除若干个'数。使得保留下来的数中， ' 任意两个数的和都不是平方数 '（所谓平方数就是该数等于某一个数的平方，例如'4就是一个平方数）。 Option Explicit Option Base 1 Private Sub Command1_Click() 28 Dim a(10) As Integer, i As Integer, j As Integer, p As Integer, k As Integer '**********FOUND********** Do While p < 10 k = Int(20 * Rnd) + 1 For j = 1 To p '**********FOUND********** If k = a(j) Then Exit for Next j If j > p Then p = p + 1 a(p) = k Text1 = Text1 & Str(k) End If Loop Call delete(a, p) For i = 1 To p Text2 = Text2 & Str(a(i)) Next i End Sub Private Sub delete(a() As Integer, p As Integer) Dim idx As Integer, j As Integer, sum As Integer idx = 2 Do While idx < p For j = 1 To idx - 1 sum = a(idx) + a(j) If Int(Sqr(sum)) = Sqr(sum) Then Exit For Next j '**********FOUND********** If j <= idx - 1 Then a(idx) = a(p) p = p - 1 Else idx = idx + 1 End If Loop End Sub 第2题 '【题目】本程序的功能是生成一组（10个）两位的互质'数。 '一组互质数是指其中任意两个数之间都不存在除1以外'的任何公约数。 Private Sub Command1_Click() Dim i As Integer, k As Integer, num(10) As Integer Dim flag As Boolean, n As Integer 29 num(1) = Int(Rnd * 90) + 10 k = 1 Do '**********FOUND********** flag =flase n = Int(Rnd * 90) + 10 For i = 1 To k If gcd(num(i), n) <> 1 Then flag = False Next i If flag Then k = k + 1 num(k) = n End If Loop Until k = 10 For i = 1 To 10 Text1 = Text1 & Str(num(i)) Next i End Sub '**********FOUND********** Private Function gcd(ByVal m%, ByVal n%) As Integer Dim r As Integer Do r = m Mod n m = n n = r Loop Until r = 0 '**********FOUND********** gcd = m End Function 第3题 '【题目】本程序的功能是：把10～20范围内的数分别表示成若干个质因子连乘的形式。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim j As Integer, pf() As Integer, i As Integer Dim st As String For i = 10 To 20 Call prime_f(i, pf) st = CStr(i) & \'**********FOUND********** For j = 1 To UBound(pf)-1 st = st & Str(pf(j)) & \ Next j st = st & Str(pf(j)) List1.AddItem st Next i End Sub 30 '**********FOUND********** Private Sub prime_f(ByVal n As Integer, a() As Integer) Dim i As Integer, k As Integer i = 2 Do If n Mod i = 0 Then k = k + 1 ReDim Preserve a(k) a(k) = i n = n \\ i Else i = i + 1 End If '**********FOUND********** Loop Until n <= 1 End Sub 第4题 '[题目]本程序的功能是：查找800-1200范围内的所'有具有两个相同数字的素数。 '例如811、877等都是符合要求的数据。 Option Explicit Private Sub Command1_Click() Dim i As Integer For i = 800 To 1200 If validate(i) And prime(i) Then List1.AddItem i End If Next i End Sub '**********FOUND********** Private Function validate(n As Integer) As Boolean Dim num() As Integer, k As Integer Dim i As Integer, j As Integer Do k = k + 1 '**********FOUND********** ReDim preserve num(k) num(k) = n Mod 10 n = n \\ 10 Loop Until n <= 0 k = 0 For i = 1 To UBound(num) - 1 For j = i + 1 To UBound(num) If num(i) = num(j) Then k = k + 1 Next j Next 31 If k = 1 Then validate = True End Function Private Function prime(n As Integer) As Boolean Dim i As Integer For i = 2 To Sqr(n) '**********FOUND********** If n Mod i = 0 Then Exit Function Next i prime = True End Function 第5题 '题目：本程序功能是查找给定范围内满足以下条件'的整数数对。 '条件1是每个整数的各位数字各不相同，且不得为'数字0, '条件2是第二个数等于第一个数的两倍。 '例如123和246就是符合条件的数对。 Option Explicit Private Sub Command1_Click() Dim i As Integer Dim n As Integer For i = 123 To 5678 n = i * 2 If fun(i) And fun(n) Then List1.AddItem \ End If Next i End Sub '**********FOUND********** Private Function fun(Byval n As Integer) As Boolean Dim a() As Integer, i As Integer, j As Integer Do i = i + 1 ReDim Preserve a(i) a(i) = n Mod 10 If a(i) = 0 Then Exit Function n = n \\ 10 '**********FOUND********** Loop Until n= 0 For i = 1 To UBound(a) - 1 For j = i + 1 To UBound(a) '**********FOUND********** If a(i) = a(j) Then Exit For Next j Next i fun = True 32 End Function 第6题 '[题目]本程序的功能是：随机生成一个有n个元素的数组（n由inputBox函数）， '找出其中的最大元素并将它删除，再输出删除后的数组。 Option Explicit Option Base 1 Dim a() As Integer, n As Integer Private Sub Command1_Click() Dim i As Integer n = InputBox(\请输入数组个数\ ReDim a(n) For i = 1 To n a(i) = Int(Rnd * 100) + 1 Text1 = Text1 & Str(a(i)) Next i Call Lookup(a) '**********FOUND********** For i = 1 To n-1 Text2 = Text2 & Str(a(i)) Next i End Sub Private Sub Lookup(a() As Integer) Dim Maxv As Integer, maxp As Integer, i As Integer Maxv = a(1): maxp = 1 For i = 2 To n If a(i) > Maxv Then Maxv = a(i): maxp = i End If Next i Call move_f(a, maxp) End Sub Private Sub move_f(a() As Integer, k As Integer) Dim i As Integer For i = k + 1 To UBound(a) '**********FOUND********** a(i-1) = a(i) Next i '**********FOUND********** ReDim preserve(UBound(a) - 1) End Sub 第7题 '【题目】本程序的功能是：找出介于100、999之间的''由三个不同数字组成的完全平方数。 '所谓完全平方数是指平方根为整数的数。例如，529的''各位数字不同，且平方根是23， '所以529是符合要求的数。 33 Option Explicit Option Base 1 Private Sub Command1_Click() Dim i As Integer, p As Single For i = 100 To 999 If pf(i) And verify(i) Then p = Sqr(i) List1.AddItem i & \ End If Next i End Sub Private Function pf(n As Integer) As Boolean If Sqr(n) = Int(Sqr(n)) Then pf = True End Function '**********FOUND********** Private Function verify(Byval n As Integer) As Boolean Dim a() As Integer, k As Integer, i As Integer, j As Integer Do k = k + 1 ReDim Preserve a(k) a(k) = n Mod 10 n = n \\ 10 '**********FOUND********** Loop Until n <= 0 For i = 1 To UBound(a) - 1 For j = i + 1 To UBound(a) '**********FOUND********** If a(i) = a(j) Then Exit Function Next j Next i verify = True End Function 五、程序设计_共12题 （选：共2题，1题为8分，另一题10分=18分） 第1题 '--------------------------------- '【程序设计】 '--------------------------------- '【题目要求】 ' 1) 编写程序，生成一个4行5列的二维数组，其每''个数组元素是随机产生的两位数， ' 求该数组的最大元素及其所在的行号、列号。 ' （若有多个相同的最大元素，则要一一标出其所在''行号、列号） ' [算法提示]首先找出最大元素，再将数组中的元素''与最大元素一一比较， ' 若有相等元素则输出其所在位置。 ' 窗体设计界面参见已给出的参考界面。 34 '【编程要求】 ' 1) 运行程序，按“运行”按钮(Command1)，生成一个4行5列的两位随机整数数组， ' 按参考界面格式显示在多行文本框Text1中，再调用求二维数组最大元素的通用过程， ' 最后将结果输出到一个多行文本框Text2中；（注意代码中不得使用randomize语句） ' 按“清除”按钮(Command2)，则将文本框与图片框清空； ' 2) 程序中应定义一个名为maxele的通用函数过程，用于求二维数组的最大元素。 '【代码书写要求】 '1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间 ' (1)先写出自定义函数过程maxele的程序代码以及Command2的代码 ' (2)最后完善Command1_Click()事件过程代码。 ' !!!! 注意： ' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码， ' 均不得删除，否则无分。 第2题 '--------------------------------- '【程序设计】 '--------------------------------- '【题目要求】 ' 编一程序，将一维数组中元素向右循环移位，移位次数键盘输入。 ' 例如，数组各元素的值依次为1，2，3，4，5，6，7，8，9，10； ' 位移3次后，各元素的值依次为8，9，10，1，2，3，4，5，6，7。 ' 窗体设计界面参见已给出的参考界面。 '【编程要求】 ' 1) 数组可定义为固定大小的10个元素的数组。 ' 按“输入”按钮(Command1)，则用inputbox函数逐一输入 ' “1---10”10个数据，并显示在文本框Text1中。 ' 在文本框Text2中输入循环移位位数（请输入3） ' 按“移位”按钮，调用通用Sub过程rmove()，实现移位操作,同时将 ' 移位后10个数据显示在文本框Text3中。 ' 按“清除”按钮Command2，则将3个文本框清空，将焦点置于Text2上； ' 按“退出”按钮Command3，结束程序运行 ' 2)程序中应定义一个通用Sub过程rmove()，以实现移位操作。 '【代码书写要求】 '1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Command1等 35 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间 (1)先写出自定义Sub过程rmove()的程序代码 ' (2)然后完成Command1_Click(),Command3_Click(),Command4_Click()过程代码。 ' (3)最后完善Command2_Click()过程代码 ' !!!! 注意： ' Command2_Click()过程的结束语句 End Sub及其它已经给出的代码，均不得删除，否则无分。 第3题 '--------------------------------- '【程序设计】 '--------------------------------- '【题目要求】 ' 编写程序，随机生成一个4行5列由两位整数组成的数组，并找出其中所有的谷点元素。 ' 所谓谷点元素是指在本行内为最小，在本列内也为最小的元素。 ' 窗体设计界面参见已给出的参考界面。 '【编程要求】 ' 1）按“生成数组”按钮(Command1)，生成随机数组并'显示到图片框(Picture1)中， ' 按“查找谷点”按钮(Command2)，则找出谷点元素， ' 并按图示的格式显示到多行文本框(Text1)中， ' 按“清除”按钮Command3，清除图片框与文本框。 ' 2) 程序中应定义一个名为cp的Sub过程，用于查找数组某行是否有谷点元素。 ' （算法提示：先求出某行最小元素，再判断该元素是'否在该列也为最小， ' 若是，则为谷点数，否则，谷点不存在。） '【代码书写要求】 '1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间 ' (1)先写出自定义Sub过程cp的程序代码以及Command1,Command3的代码 ' (2)最后完善Command2_Click()事件过程代码。 ' !!!! 注意： ' Command2_Click()过程的结束语句 End Sub及其它已经给出的代码， ' 均不得删除，否则无分。 第4题 '--------------------------------- '【程序设计】 '--------------------------------- '【题目要求】 '编写求前n项级数和的程序。求和公式参见已给出的参考图所示。 ' 1）在文本框Text1中输入x值1，文本框Text2中输入n值5， ' 按“计算”按钮(Command1)，则开始计算并在列表框List1中显示S1，S2，?，Sn； 36 ' 按“清除”按钮(Command2)，则将两个文本框及列表框清空，焦点置于Text1上； ' 按“退出”按钮(Command3)，结束程序运行； ' 2）程序中应定义一个名为fact的函数过程，用于计算阶乘值。 '【代码书写要求】 ' 1)列表框、文本框、命令按钮的名称必须使用系统默认的名称， ' 如List1，Text1，Command1等，否则扣分。 ' 2）窗体设计界面参见已给出的参考界面。 ' 3)请在“****Program*****”与“****End*****”之间添加程序代码 ' 请在指定区间 1)先写出自定义函数fact及Command2,Command3的程序代码 ' 2)然后完善Command1_Click()过程代码。 ' !!!! 注意： ' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码， ' 均不得删除，否则无分。 第5题 '--------------------------------- '【程序设计】 '--------------------------------- '【题目要求】 '编写程序，以给定的方式标记出方阵中每一行最小元素'的位置。 '如果某一行有多个数值相等的最小元素，也要同时标记'出来。 '标记方式为每一行的最小元素为 0，其他元素为 1。 '窗体设计界面参见已给出的参考界面。 ’【编程要求】 '1)在文本框Text1中输入 N 值（要求输入5）， ' 按“执行”按钮，则随机生成一个 N 行 N 列的由两位正整数组成的 N 阶方阵， ' 并输出到多行文本框Text2 中，同时求出每一行的最小元素并生成标记矩阵 ' 输出到多行文本框Text3 中； ' 按“清除”按钮，则将3个文本框清空，将焦点置于文本框Text1上； ' 按“退出” 按钮，结束程序运行； '2)程序中应定义一个求数组某一行的最小元素值的通用Sub过程minx()。 '3)原始方阵数据由随机函数生成（注意：不要使用randomize语句） '【代码书写要求】 37 '1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Text2，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间 (1)先写出自定义Sub过程minx()的程序代码以及Command2_Click()、 ' Commnad3_Click()的代码 ' (2)最后完善Command1_Click()过程代码。 ' !!!! 注意： ' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码，均不得删除， ' 否则无分。 第6题 '--------------------------------- '【程序设计】 '--------------------------------- '【题目要求】 '从键盘上输入6名同学的成绩，分别为：87，72，56，89，92，66。将这些成绩 '显示在文本框Text1中（由Command1_Click()事件过程完成）。 '然后按降序对这6个成绩进行排序，并将结果显示在文本框Text2中 '（由Command2_Click()事件过程完成）。窗体设计界面参见已给出的参考界面。 '【代码书写要求】 '1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Text2，Command1等 '2)用inputbox函数输入成绩。原始成绩必须为上面给出的数据，否则扣分。 '3)请在“****Program*****”与“****End*****”之间添加程序代码 第7题 '--------------------------------- '【程序设计】 '--------------------------------- '【题目要求】 ' 编写程序，找出随机生成的30个无重复数的三位整数中的降序数。 ' 所谓降序数是指百位数大于十位数、且十位数大于个位数。 ' 窗体设计界面参见已给出的参考界面。 38 '【编程要求】 ' 1）单击“执行”按钮(Command1)，随机生产30个无重复数的三位整数， ' 按10个数一行的格式显示在多行文本框Text1中，再找出其中的降序数输出到列表框List1； ' 要求程序代码中不得使用Randomize语句，否则扣分。 ' 如果数据中无降序数存在，则使用msgbox输出“无降序数”信息， ' 按“清除”按钮(Command2)，将文本框及列表框清空。 ' 2）程序中应定义一个名为jx的函数过程，用于判断一个整数是否为降序。 '【代码书写要求】 '1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间 ' (1)先写出自定义函数过程jx的程序代码以及Command2的代码 ' (2)最后完善Command1_Click()事件过程代码。 ' !!!! 注意： ' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码， ' 均不得删除，否则无分。 第8题 '--------------------------------- '【程序设计】 '--------------------------------- '【题目要求】 ' 编写程序，找出100以内的所有素数，存放在数组P中， ' 并将所找到的素数，按每行10个的形式显示在文本框'Text1中。 ' 窗体设计界面参见已给出的参考界面。 '【编程要求】 '1)按“找素数”按钮(Command1)，则查找素数，并按格式要求显示在多行文本框Text1中。 '2)程序中应定义一个通用函数过程Prime(),以判断一个数是否为素数。 '【代码书写要求】 '1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间 (1)先写出自定义函数过程Prime()的程序代码 39 ' (2)然后完善Command1_Click()过程代码 ' !!!! 注意： ' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码， ' 均不得删除，否则无分。 第9题 '--------------------------------- '【程序设计】 '--------------------------------- '【题目要求】 ' 1) 编写程序，本程序的功能是：首先按给定格式（数据以逗号分隔，-1表示数据结束） ' 将输入到文本框Text1中的数据(12,22,15,25,17,22,19,11,-1)依次存入一个数组p， ' 然后为该组数据建立一个按从大到小次序排列的索引表并显示在文本框Text2中。 ' 文本框Text2中的第一个数据4表示文本框1中第4个数最大； ' 文本框2中的最后一个数据8表示文本框1中第8个数最小。 ' 2) 窗体设计界面参见已给出的参考界面。 '【编程要求】 ' 1）在文本框Text1中输入测试数据，按“处理”按钮(Command1)， ' 则按题目要求得到结果并显示在文本框Text2中； ' 按“清除”按钮(Command2)，则将2个文本框清空，将焦点置于文本框Text1上； ' 按“退出”按钮(Commnad3)，结束程序运行。 ' 2）程序中应定义一个通用Sub过程lnum,用于把Text1中的原始数据放入数组p中。 ' 3) 程序中应定义一个根据数组元素的大小从大到小取其排列号的通用Sub过程Ind。 '【代码书写要求】 '1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间 ' (1)先写出自定义Sub过程lnum()和Ind()的程序代码以及Command2、Command3的代码' (2)最后完善Command1_Click()事件过程代码。 ' !!!! 注意： ' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码， ' 均不得删除，否则无分。 第10题 '--------------------------------- '【程序设计】 '--------------------------------- '【题目要求】 40 '编写程序，找出50以内的所有不可表示成两个平方数之和的整数。 '窗体设计界面参见已给出的参考界面。 ’【编程要求】 '1) 按“执行”按钮Command1，则开始运行程序，按参考界面格式将符合条件的数 ' 显示在多行文本框中，每行显示5个数； ' 按“清理”按钮Command2，则将文本框清空； ' 按“结束”按钮Command3，结束程序运行； '2) 程序需创建一个通用Sub过程Sub1，该过程的功能是判断一个数是否是平方数； '3) 显示在文本框中的数据必须按参考界面中的形式对齐。 '【代码书写要求】 '1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间 ' (1)先写出自定义Sub过程Sub1的程序代码以及Command2、Commnad3的代码 ' (2)最后完善Command1_Click()过程代码。 ' !!!! 注意： ' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码， ' 均不得删除，否则无分。 第11题 '--------------------------------- '【程序设计】 '--------------------------------- '【题目要求】 ' 1) 编写程序，找出由1，2，3，4四个不同数字组成的四位整数中的素数。 ' 2) 窗体设计界面参见已给出的参考界面。 '【编程要求】 ' 1）单击“开始”按钮(Command1)，生成（或筛选出）由1，2，3，4 四个数字 ' 组成的4位整数，并显示在列表框List1中，在列表框List2中显示其中的素数。 ' 2）单击“清理”按钮(Command2)，则将两个列表框清空； ' 单击“退出”按钮(Command3)，结束程序运行。 ' 3）程序中必须包含一个判断某数是否为素数的通用函数过程Prime。 41 ' 4) 程序中必须包含一个判断某数是否仅由1--4构成且各数字仅出现1次的 ' 通用函数过程Compare。 '【代码书写要求】 '1)列表框、命令按钮的名称必须使用系统默认的名称，如List1，Command1等 '2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间 ' (1)先写出自定义函数过程Prime的程序代码以及Command2、Command3的代码 ' (2)最后完善Command1_Click()事件过程代码。 ' !!!! 注意： ' Command1_Click()过程的结束语句 End Sub及其它已经给出的代码， ' 均不得删除，否则无分。 第12题 '--------------------------------- '【程序设计】 '--------------------------------- '【题目要求】 '编写程序，随机生成10个[10,99]区间的整数，并用选择法对这十个数进行排序。 '窗体设计界面参见已给出的参考界面。 ’【编程要求】 '1)按“生成”按钮(Command1)，则随机生成（注意：不要使用randomize语句） ' 10个两位正整数组成的数列，并输出到文本框Text1中 ' 按“排序”按钮(Command2)，则将10个数排序后显示在文本框Text2中 '2)程序中应定义一个通用Sub过程ssort(),以实现选择法排序过程。 '【代码书写要求】 '1)文本框、命令按钮的名称必须使用系统默认的名称，如Text1，Text2，Command1等'2)请在“****Program*****”与“****End*****”之间添加程序代码 '3)请在指定区间 (1)先写出自定义Sub过程ssort()的程序代码以及Command1_Click()过程代码 ' (2)最后完善Command2_Click()过程代码。 ' !!!! 注意： ' Command2_Click()过程的结束语句 End Sub及其它已经给出的代码， ' 均不得删除，否则无分。 42