《青岛科技大学信息工程vb期末考试题库及答案》由会员分享，可在线阅读，更多相关《青岛科技大学信息工程vb期末考试题库及答案（42页珍藏版）》请在金锄头文库上搜索。
1、试卷方案：试卷方案：201105 Visual Basic 期末考试方案期末考试方案一、单项选择一、单项选择_共共 50 题题（选：20 题*1=20 分）第第 1 题题以下有关对象属性的说法中，错误的是_. A. 工具箱中的控件并不是 VB 中所有的控件 B. 若将 Frame 的 Enabled 属性设置为 False，则不能使用放置在 Frame 里面的控件 C. 对象的 Name 属性在运行时不能改变 D. 对象的所有属性都可以在属性窗口中设置第第 2 题题数学表达式 的 VB 算术表达式为_ . |27sin3yxex oA. Sin(27)+Sqr(x+Exp3)/(x+y) B.
2、 Sin(27*3.14159/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
3、.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2 的运算结果是_.A. 1B. -1C. 2D. 3第第 5 题题下列关于菜单的说法中,错误的是_. A. 每一个菜单项就是一个对象，并且可设置自己的属性和事件 B. 菜单项不可以响应 DblClick 事件 C. VB6.0 允许创建超过四级的子菜单 D. 程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的 Enabled 属性为 False第第 6 题题 以下关于数组的说法中,错误的是_. A. 使用了 Preserve 子句的 Redim 语句，只允许改变数组最后一维的上界 B. 对于动态数组, Redim 语
4、句可以改变其维界但不可以改变其数据类型 C. Erase 语句的功能只是对固定大小的数组进行初始化 D. Lbound 函数返回值是指定数组某一维的下界第第 7 题题 设 a=3,b=2,c=1,运行 print abc 的结果是_. A. TrueB. FalseC. 1D. 出错第第 8 题题以下说法不正确的是_. A. 使用不带关键字 Preserve 的 ReDim 语句可以重新定义数组的维数 B. 使用不带关键字 Preserve 的 ReDim 语句可以改变数组各维的上、下界 C. 使用不带关键字 Preserve 的 ReDim 语句可以改变数组的数据类型 D. 使用不带关键字
5、Preserve 的 ReDim 语句可以对数组中的所有元素进行初始化第第 9 题题在列表框 List1 中有若干列表项,可以删除选定列表项的语句是_.A. List1.text=“ B. List1.List(List1.ListIndex)=“ C. List1.Clear D. List1.RemoveItem List1.ListIndex第第 10 题题数学表达式 对应的 VB 表达式是_.|cossin|)2(sinln2352xxxxexA. (e(2*x-5)*Log(x)+(Sin(2x)3)/Sqr(Sin(x)-Cos(x2) B. (Exp(2*3.14159*x-5)
6、*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 语句在过程中改变对应形参数组的维界 C. 调用过程时，数组名不能作为实参 D. 数组可以按地址传递也可以按植传递第第 12 题题下列有关过程的说法中,错误
7、的是_. A. 在 Sub 或 Function 过程内部不能再定义其它 Sub 或 Function 过程 B. 对于使用 ByRef 说明的形参,在过程调用时形参和实参只能按传址方式结合 C. 递归过程既可以是递归 Function 过程,也可以是递归 Sub 过程 D. 可以像调用 Sub 过程一样使用 Call 语句调用 Function 过程第第 13 题题 要将焦点设置在某个控件上,以下四个选项中正确的是_. A. 只能使用鼠标直接点击控件 B. 只能使用 Tab 键将焦点移到该控件 C. 只能在程序中调用该控件的 SetFocus 方法 D. A、B、C 三选项中涉及的方法均可使
8、用第第 14 题题以下 Case 语句中,能正确描述 Y 的绝对值大于 6 的是_.A. Case Abs(Y)6B. Case -6 To 6C. Case Not(-6 To 6)D. Case Is6第第 15 题题以下关于变量作用域的叙述中,正确的是_.A. 窗体中凡用 Private 声明的变量只能在某个指定的过程中使用B. 模块级变量只能用 Dim 语句声明C. 凡是在窗体模块或标准模块的通用声明段用 Public 语句声明的变量都是全局变量D. 当不同作用域的同名变量发生冲突时，优先访问局限性小的变量第第 16 题题以下关于数值常量的说法中,错误的是_A. 八进制数的表示方法是在
9、数字前面加Next iPrintEnd Sub第第 6 题题 运行下面程序，单击 Command1，在窗体上显示的变量 A 的值为_【1】_,变量 B 的值为_【2】_。Option ExplicitDim a As IntegerPrivate Sub Command1_Click()Dim b As Integerb = 3a = 4b = fun(fun(a, b + 2), a) + bPrint a, bEnd SubPrivate Function fun(n As Integer, k As Integer)n = n + ak = n - kfun = n + k + aEnd
10、 Function第第 7 题题 执行下面的程序，单击 Commandl，则窗体上第一行显示的是 【1】 ，第二行显示的是 【2】 。Option ExplicitDim x As IntegerPrivate Sub Command1_Click()Dim y as IntegerX=10:Y=2Call process(y)Print X,YCall process(y)Print X,YEnd SubPrivate Sub process(n As Integer)Dim y As IntegerIf n0 Thenx=x-ny=xElsex=x+ny=x+2 End Ifn=-nEnd
11、 Sub第第 8 题题 执行下面程序，单击 Command1，窗体上显示的第一行是_【1】_，第二行是_【2】_，第四行是_【3】_，最后一行是_【4】_.Option ExplicitPrivate Sub Command1_Click()Dim n As Integern = 5Call test(n)Print nEnd SubPrivate Sub test(ByVal n As Integer)Dim i As Integer, s As IntegerIf n 0 ThenFor i = 1 To ns = s a;bPrint Lcd(a,b);a;bEnd IfEnd SubP
12、rivate Function Lcd(x As Integer,Y As Integer) As IntegerDim d As Integer If x9k=k+1If i+13 And j+13 Theni=i+1:j=1Elself i+13 And j+13 Theni=i-1ElseIf i+10 Theni=i-1Elsei=i+1:j=j+1End If A(i,j)=k LoopFor i=1 To 3For j=1 To 3Picture1.Print A(i,j);Next jPicture1.PrintNext iEnd Sub第第 14 题题 执行下列程序，单击 Co
13、mmand1，在窗体上显示的第一行内容是【1】，第二行的内容是【2】，第三行的内容是【3】。Option ExplicitPrivate Sub Command1_ClickDim n As Integer ,i As Integern=2For i=7 To 1 Step -1Call sub2(i,n)Print i,nNext i End SubPrivate Sub sub2(x As Integer,y As Integer)Static n As IntegerDim i As IntegerFor i =2 To 1 Step -1n =n+xx =x-1Next iy=y+nE
14、nd 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) As Integerx=x-yy=x+y+2fun=y-xEnd Function第第 16 题题
15、执行下面程序，单击 Command1,窗体上显示的第一行是_【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 Integer, b As Integer)i=i+1a=a+1b=b+1End Sub第第 17 题题 执行下面程序，单击 Command1，窗体上显示的第一行是【1】，第二行是【2】，第三行是【3】。Option 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(“
