2022年青岛科技大学信息工程VB期末考试题库及答案.docx

精选学习资料 - - - - - - - - - 学而不思就惘,思而不学就殆试卷方案： 202205 Visual Basic 期末考试方案一、单项挑选 _共 50 题（选： 20 题*1 =20 分）第 1 题以下有关对象属性的说法中,错误选项 _. A. 工具箱中的控件并不是 VB中全部的控件 B. 如将 Frame 的 Enabled 属性设置为 False ,就不能使用放置在 Frame 里面的控件 C. 对象的 Name属性在运行时不能转变 D. 对象的全部属性都可以在属性窗口中设置第 2 题数学表达式sin27|xe3的 VB算术表达式为 _ .xy|A. Sin27+Sqrx+Exp3/x+y B. Sin27*3.14159/180+Sqrx+Exp3/Absx+y C. Sin27*3.14159/180+Sqrx+e3/Absx+y D. Sin27*pi/180+Sqrx+Exp3/Absx+y 第 3 题以下有关对象的表达中 , 正确选项 _ A. 对象由属性,大事和方法构成 B. 对象的全部属性既可以在属性窗口设置,又可以在程序运行时用赋值语句设置 C. 对象的大事肯定就是由 VB预先设置好的人工干预的动作 D. 对象的方法是对象响应某个大事后执行的一段程序代码第 4 题表达式 CInt4.5+Cint-4.51+Int4.9+Int-4.1+Fix-1.9+0 Mod 2A. 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的结果是 _. 第 1 页,共 42 页A. True B. FalseC. 1 D. 出错- - - - - - -精选学习资料 - - - - - - - - - 学而不思就惘,思而不学就殆第 8 题以下说法不正确选项 _. A. 使用不带关键字 Preserve 的 ReDim语句可以重新定义数组的维数 B. 使用不带关键字 Preserve 的 ReDim语句可以转变数组各维的上、下界 C. 使用不带关键字 Preserve 的 ReDim语句可以转变数组的数据类型 D. 使用不带关键字 Preserve 的 ReDim语句可以对数组中的全部元素进行初始化第 9 题在列表框 List1中有如干列表项, 可以删除选定列表项的语句是_. A. List1.text="" B. List1.ListList1.ListIndex="" C. List1.Clear D. List1.RemoveItem List1.ListIndex 第 10 题数学表达式A. e2*e2x5lnxsin32x对应的 VB表达式是 _. |sinxcosx2| *x-5*Logx+Sin2x3/SqrSinx-Cosx2 B. Exp2*3.14159*x-5*Logx+Sin2*x3/SqrSinx-Cosx2 C. Exp2* *x-5*Lnx+Sin2*x3/SqrSinx-Cosx2 D. e2*3.14159*x-5*Lnx+Sin2*x3/SqrSinx-Cosx2 第 11题以下有关数组参数的说明中,正确选项 _ A. 在过程中也可用 Dim 语句对形参数组进行说明 B. 动态数组作为实参时,可用 ReDim语句在过程中转变对应形参数组的维界 C. 调用过程时,数组名不能作为实参 D. 数组可以按地址传递也可以按植传递第 12 题以下有关过程的说法中, 错误选项 _. Sub 或 Function 过程A. 在 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 的是 _. 第 2 页,共 42 页A. Case AbsY>6 B. Case -6 To 6 C. Case Not-6 To 6 D. Case Is<-6,Is>6 - - - - - - -精选学习资料 - - - - - - - - - 学而不思就惘,思而不学就殆第 15 题以下关于变量作用域的表达中 , 正确选项 _. A. 窗体中凡用 Private 声明的变量只能在某个指定的过程中使用B. 模块级变量只能用 Dim 语句声明C. 凡是在窗体模块或标准模块的通用声明段用 Public 语句声明的变量都是全局变量D. 当不同作用域的同名变量发生冲突时,优先拜访局限性小的变量第 16 题以下关于数值常量的说法中 , 错误选项 _ A. 八进制数的表示方法是在数字前面加 &O B. 十六进制数的表示方法是在数字前面加 &H C. 在浮点运算中使用 D 来分隔尾数和指数时,系统将把该数值作为单精度型数处理D. 32768 是合法的数值常量第 17 题x 3数学表达式 e sin 30 对应的 VB 表达式是 _. x yA. Absex+Sin303Sqrx+yB. AbsExpx+Sin303Sqrx+yC. Absex+Sin30*3.14159 1803 Sqrx+yD. AbsExpx+Sin30*3.141591803 Sqrx+y第 18 题下面的 4 个表达式中 , 有关 _ 个能够对Single类型变量 x 正数 的第 3 位小数正确地进行四舍五入运算. Formatx, #.00 Int100*x+0.005/100 CInt100*x+0.005/100 Fix100*x+0.005/100 A. 1个B. 2 个C. 3 个D. 4 个第 19 题执行以下语句时, 会显现错误提示的是_. C.Print"12.5" & 12.5 D.Print"2e3"+12 A. Print"2b3 " +12.5 B. Print"12.5"+ 12 第 20 题以下 Case 语句含有错误选项_. C. Case Is>10 And Is<50D. Case 3,5,Is>10 A. Case 0 To 10 B. Case Is>10 第 21 题以下语句中 , 正确选项 _ A. Textl.SetFocusB. Forml.Clear C. Labell.SetFocus D. Listl.Cls 第 22 题以下选项中 , 所包含的全部表达式能够将两位整数x 的个位数与十位数对调 如将 78 转换为 87 的是_. ValRightX,1&LeftX,1 ValRightStrX,1&LeftStrX,1 ValRightCStrX,1&LeftCStrX,1 ValMidX,2,1+MidX,1,1A. B. C. D. 第 23 题以下关于子过程或函数的定义中 , 正确选项 _ A. Sub f1n As String*1 C. Function f1f1 As IntegerAs Integer B. Sub f1n As IntegerAs Integer D. Function f1ByVal n As Integer 名师归纳总结 - - - - - - -第 3 页,共 42 页精选学习资料 - - - - - - - - - 学而不思就惘,思而不学就殆第 24 题以下有关控件数组的说法中 , 错误选项 _. A. 控件数组由一组具有相同名称和相同类型的控件组成,不同类型的控件无法组成控件数组B. 控件数组中的全部控件不得具有各自不同的属性设置值C. 控件数组中的全部控件共享同一个大事过程D. 控件数组中每个元素的下标由控件的 Index 属性指定第 25 题以下对数组参数的说明中 , 错误选项 _ . A. 在过程中可以用 Dim 语句对形参数组进行声明B. 形参数组只能按地址传递C. 实参为动态数组时,可用 ReDim 语句转变对应形参数组的维界D. 只需把要传递的数组名作为实参,即可调用过程第 26 题要向文件datal.txt添加数据 , 正确的文件打开命令是_. A. Open"datal.txt"For Output As #1 B. Open"datal.txt"For Input As #1 C. Open"datal.txt"For Append As #5 D. Open"datal.txt" For Write As #5 第 27 题下面有关数组处理的表达中,正确选项 _. A. 在过程中使用 ReDim 语句可以转变动态数组数据的类型B. 在过程中,可以使用 Dim 、Private 和 Static 语句来定义数组C. 用 ReDim 语句重新定义动态数组时,可以转变数组的大小,但不能转变数组的维数D. 不行以用 Public 语句在窗体模块的通用处说明一个全局数组第 28 题下面的表达式中 , 运算结果为 True 的是 _. A. "abcrd" <="ABCRD" B. Int134.69 <=CInt134.69 C. 3>2>1 D. Mid"Visual",1,4=Right"lausiV",4 第 29 题设计界面时 , 要使一个文本框具有水平和垂直滚动条, 应先将其 _属性置为True, 再将 ScrollBar属性设置为 3. A. MultiLine B. AutoSize C. Alignment D. RightToLeft 第 30 题下面有关数组的说法中 , 正确选项 _ A. 数组的维下界不行以是负数B. 模块通用声明处有Option Base 1,就模块中数组定义语句Dim A0 To 5会与之冲突0 ,模块中有Dim A0 To 5,C. 模块通用声明处有Option Base 1就 A数组第一维维下界为D. 模块通用声明处有Option Base 1,模块中有DimA0 To 5,就 A 数组第一维维下界为1 第 31 题名师归纳总结 下面有关数组的表达中, 不正确选项 _. 第 4 页,共 42 页在过程中用ReDim 语句定义的动态数组, 其下标的上下界可以是变量数组作为形式参数时, 传递的是每个数组元素的值在窗体模块的通用声明处可以用Public 说明一个全局数组- - - - - - -精选学习资料 - - - - - - - - - 学而不思就惘,思而不学就殆数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值A. B. C. D. 第 32 题以下关于对象 SetFocus 与 GotFocus 的描述中 , 正确选项 _ A. SetFocus 是大事 ,GotFocus 是方法 B. Setfocus 和 Gotfocus 都是大事C. Setfocus 和 GotFocus 都是方法 D. SetFocus 是方法 ,GotFocus 是大事第 33 题创建一个名为"文件 " 的菜单项 , 欲使其可用Alt+F方式拜访 , 就在菜单编辑器的标题文本框中应输入_. A. 文件 $F B. 文件 &F C. 文件 #F D. 文件 %F 第 34 题在以下属性中, 属于 CommandButton 控件、 ListBox控件共有的是_. D. List、Visible A. Caption、 Text B. Visible、Font C. Caption、 Visible 第 35 题以下能够正确表示条件 "XY<Z"的 VB规律表达式是 _ A. XY<Z B. X<=Y And Y<Z C. XY OR Y<Z D. X<=Y<Z 第 36 题以下关于 Function 过程的说法中 , 错误选项 _. A. Function 过程名可以有一个或多个返回值B. 在 Function 过程内部不得再定义 Function 过程C. Function 过程中可以包含多个 Exit Function 语句D. 可以像调用 Sub 过程一样调用 Function 过程第 37 题下面的关系表达式中, 运算结果为True 的是 _. A. CInt1.5=Int1.5 B. Fix1.5=Int1.5 C. Fix-1.5=CInt-1.5 D. Fix-1.5=Int-1.5 第 38 题已知 X<Y,A>B, 就以下表达式中 , 结果为 True 的是 _ A. SgnX-Y+SgnA-B=-1 B. SgnX-Y+SgnA-B=-2 C. SgnY-X+SgnA-B=2 D. SgnY-X+SgnA-B=0 第 39 题执行 _ 语句时 , 会显现出错提示信息 . A. Print 5+7=14 B. Print 16384*2 C. Print 32768*2 D. Print "14"+32 第 40 题数学表达式sin30logxy对应的 Visual Basic表达式是 _. 2exyA. Sin30*3.14159/180+SqrLogx+y/2*3.14159+Expx+y B. Sin30* /180+SqrLnx+y/2* +Expx+y C. Sin30*180/3.14159+SqrLogx+y/2*3.14159+ex+y D. Sin30*3.14159/180+SqrLogx+y/2*3.14159+Expx+y 名师归纳总结 - - - - - - -第 5 页,共 42 页精选学习资料 - - - - - - - - - 学而不思就惘,思而不学就殆第 41 题在一个多窗体程序中, 可以仅将窗体Form2 从内存中卸载的语句是_. A. Form2.Unload B. Unload Form2 C. Form2.End D. Form2.Hide 第 42 题Print方法可在 _ 上输出数据 . 标签列表框立刻窗口窗体文本框图片框A. B. C. D. 第 43 题如要使规律表达式x>y Xor y<z 结果为 True, 就 x、y、 z 的取值应为以下选项中的_. A. x=3、y=3、z=4 B. x=2 、y=1、 z=2 C. x=1、y=3、z=2 D. x=2 、y=2、 z=2 第 44 题以下 _ 是合法的变量名. C. cdc d D. Abe_10 A. abs B. al 第 45 题以下 _是正确的VB 常量 . C. 5D D. 5E-6 A. D-6 B. E-6 第 46 题如在模块中用Private Function FunA as Single,B as Integer As Integer 定义了函数Fun. 调用函数Fun的过程中定义了I 、 J 和 K 三个 Integer型变量 , 就以下语句中不能正确调用函数Fun 的语句是 _. A. Fun 3.14,J B. Call FunI,365 C. FunI,J D. K=Fun"24","35" 第 47 题如需要在同一窗体内支配两组相互独立的单项按钮OptionButton,可使用 _控件做容器将它们分开. TextBox PictureBox Image FrameA. 或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 题数学表达式x5xcos295对应的 VB表达式是 _ elnyA. x5-Cos29/Sqrex+Iny+5 B. x5-Cos29/SqrExpx+Logy+5 名师归纳总结 - - - - - - -第 6 页,共 42 页精选学习资料 - - - - - - - - - 学而不思就惘,思而不学就殆C. x5-Cos29*3.14159/180/SqrExpx+Logy+5 D. x5-Cos29*3.14159/180/Sqrex+Logy+5 二、填空 _共 20 题 （选： 15 空*2=30 分） 阅读懂得 ：填写程序的输出结果第 1 题运行以下程序, 单击 Command1, 在窗体上显示的第一行内容是_【1】_, 其次行的内容是_【2】_, 第三行的内容是_【 3】_； Option Explicit Private Sub Command1_Click Dim s As String s="Basic" Call transs End Sub Private Sub transs As String Dim j As Integer,t As String Dim k As Integer k=3 Do j=InStrs,"a" t=LCaseRights,j s=Rightt,Lens-k & Lefts,Lent k=k-1 Print s Loop Until k=0 End Sub 第 2 题执行下面程序,单击Command1,就窗体上显示的第一行是【1】,第三行是【2】,最终一行是【 3】；Option Explicit Private Sub Command1Click 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 页,共 42 页精选学习资料 - - - - - - - - - 学而不思就惘,思而不学就殆 Private Sub Command1_Click Dim a As Integer, b As Integer a=1 : b=1 Call sub1a, b Print a, b End Sub Private Sub sub1a 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 sub1a, 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 funa,b,c+funa,b,c Print a,b,c End Sub Private Function funx 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】个元素；数组元素A2 的值【2】,A4 的值是【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 An For i=k+1 To n Ai=i*n+1 Next i 名师归纳总结 - - - - - - -第 8 页,共 42 页精选学习资料 - - - - - - - - - 学而不思就惘,思而不学就殆 For i=1 To n Print Ai; 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 = funfuna, b + 2, a + b Print a, b End Sub Private Function funn 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 processy Print X,Y Call processy Print X,Y End Sub Private Sub processn 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 页,共 42 页- - - - - - -精选学习资料 - - - - - - - - - 学而不思就惘,思而不学就殆最终一行是 _【4】_. Option Explicit Private Sub Command1_Click Dim n As Integer n = 5 Call testn Print n End Sub Private Sub testByVal n As Integer Dim i As Integer, s As Integer If n > 0 Then For i = 1 To n s = s & CStri Next i Print s Call testn - 2 Else Print "OVER" End If End Sub 第 9 题运行以下程序,单击Command1,在窗体上显示的第一行内容是【1】 ,其次行的内容是【2】 ,第三行的内容是【3】；（"A" 的 ASCII 码是 65,"Z" 是 90）Option Explicit Private Sub 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 = Ascp - i If n < 65 Then n = n + 26 st = Chrn st = st & Fi Print st Next i End Sub Private Function Fn 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 页,共 42 页精选学习资料 - - - - - - - - - 学而不思就惘,思而不学就殆 Private Sub Command1_Click Dim i As Integer,j As Integer Dim k As Integer i=10 j=4 k=Funki,j Print i,j,k End Sub Priate Function FunkByVal 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+FunkA,B End If End Function 第 11题运行下面程序,假如连续三次单击命令按钮之后,数组共有_【1】_个元素；数组元素A2 的值是 _【2】_,A5的值是 _【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 an For i = k + 1 To n ai = i * n + 1 Next i For i = 1 To n Print ai; 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=i100 b=i Mod 100 If b<>0 Then 名师归纳总结 - - - - - - -第 11 页,共 42 页精选学习资料 - - - - - - - - - 学而不思就惘,思而不学就殆 Print a Print b Print Lcda,b;a;b Print Lcda,b;a;b End If End Sub Private Function Lcdx As Integer,Y As Integer As Integer Dim d As Integer