VB期末考试题库及答案文档格式.docx

1、以下Case语句中,能正确描述Y的绝对值大于6的是_.A. Case Abs（Y）6 B. Case -6 To 6C. Case Not（-6 To 6） D. Case Is6第15题以下关于变量作用域的叙述中,正确的是_.A. 窗体中凡用Private声明的变量只能在某个指定的过程中使用B. 模块级变量只能用Dim语句声明C. 凡是在窗体模块或标准模块的通用声明段用Public语句声明的变量都是全局变量D. 当不同作用域的同名变量发生冲突时，优先访问局限性小的变量第16题以下关于数值常量的说法中,错误的是_A. 八进制数的表示方法是在数字前面加&OB. 十六进制数的表示方法是在数字前面加

2、&HC. 在浮点运算中使用D来分隔尾数和指数时，系统将把该数值作为单精度型数处理D. 32768是合法的数值常量第17题 对应的VB表达式是_.A. Abs（ex+Sin（30）3）Sqr（x+y）B. Abs（Exp（x）+Sin（30）3）（Sqr（x+y）C. Abs（ex+Sin（30*3.14159180）3）（Sqr（x+y）D. Abs（Exp（x）+Sin（30*3.14159180）3）Sqr（x+y）第18题下面的4个表达式中,有关_个能够对Single类型变量x（正数）的第3位小数正确地进行四舍五入计算.Format（x,#.00） Int（100*（x+0.005）/1

3、00 CInt（100*（x+0.005）/100 Fix（100*（x+0.005）/100A. 1个 B. 2个 C. 3个 D. 4个第19题执行以下语句时,会出现错误提示的是_.A. Print2b3 +12.5 B. Print12.5+ 12 C.Print & 12.5 D.Print2e3+12第20题以下Case语句含有错误的是_.A. Case 0 To 10 B. Case Is10 C. Case Is10 And Is10第21题下列语句中,正确的是_A. Textl.SetFocus B. Forml.Clear C. Labell.SetFocus D. List

4、l.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 IntegerC. Function f1（f1 As In

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

6、名作为实参，即可调用过程第26题 要向文件datal.txt添加数据,正确的文件打开命令是_.A. Opendatal.txtFor Output As #1B. OpenFor Input As #1C. OpenFor Append As #5D. Open For Write As #5第27题下面有关数组处理的叙述中，正确的是_.A. 在过程中使用ReDim语句可以改变动态数组数据的类型B. 在过程中，可以使用Dim 、Private和 Static语句来定义数组C. 用ReDim语句重新定义动态数组时，可以改变数组的大小，但不能改变数组的维数D. 不可以用Public语句在窗体模块的

7、通用处说明一个全局数组第28题 下面的表达式中,运算结果为True的是_.A. abcrd =ABCRD B. Int（134.69） 21 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 A（0 To 5

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

9、正确的是_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控件共有的是_.A. Caption、Text B. Visible、Font C. Caption、Visible D. Lis

10、t、Visible第35题 下列能够正确表示条件XYZ的VB逻辑表达式是_A. XYZ B. X=Y And YZ C. XY OR YZ D. X=YZ第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. Fi

11、x（-1.5）=CInt（-1.5） D. Fix（-1.5）=Int（-1.5）第38题已知XB,则下列表达式中,结果为True的是_A. Sgn（X-Y）+Sgn（A-B）=-1 B. Sgn（X-Y）+Sgn（A-B）=-2C. Sgn（Y-X）+Sgn（A-B）=2 D. Sgn（Y-X）+Sgn（A-B）=0第39题 执行_语句时,会出现出错提示信息.A. Print 5+7=14 B. Print 16384*2C. Print 32768*2 D. Print 14+32第40题 对应的Visual Basic表达式是_.A. Sin（30*3.14159/180）+Sqr（Lo

12、g（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）第41题 在一个多窗体程序中,可以仅将窗体Form2从内存中卸载的语句是_.A. Form2.Unload B. Unload Form2C. Form2.End D. Form2.Hide第42题Print方法可在_上输出数据.窗体 文本框

13、 图片框 标签 列表框 立即窗口A. B. C. D. 第43题 若要使逻辑表达式xy Xor y 0 If x Mod 4=0 Then y=y+x Else y=y-x End If x=x-3 Print x,y LoopEnd Sub第3题 执行下面的程序，单击Command1,窗体上显示的第一行是_【1】_，第二行是_【2】_,第四行是_【3】_。 Option Explicit Dim a As Integer, b As Integer a=1 : b=1 Call sub1（a, b） Print a, bPrivate Sub sub1（a As Integer, b As

14、Integer） a=a+b : b=b+a If a10 Then a=a+b End If 第4题 运行下面的程序，单击Command1,在窗体上显示的变量a的值为_【1】_，变量b的值为_【2】_,变量c的值为_【3】_。 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,cPrivate Function fun（x As Integer, y As Integer, z As Integer） As Integer z=x x=x+y y

15、=y+z fun=x+yEnd Function第5题 执行下面的程序，连续三次单击命令按钮Command1之后，A数组共有 【1】 个元素；数组元素A（2）的值 【2】 ，A（4）的值是 【3】 。 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）;

16、Print第6题 运行下面程序，单击Command1，在窗体上显示的变量A的值为_【1】_,变量B的值为_【2】_。Dim a As IntegerPrivate Sub Command1_Click（） Dim b As Integer b = 3 a = 4 b = fun（fun（a, b + 2）, a） + bPrivate Function fun（n As Integer, k As Integer） n = n + a k = n - k fun = n + k + a第7题 执行下面的程序，单击Commandl，则窗体上第一行显示的是 【1】 ，第二行显示的是 【2】 。 D

17、im x As Integer Dim y as Integer X=10:Y=2 Call process（y） Print X,Y Call process（y） Private Sub process（n As Integer） Dim y As Integer If n0 Then x=x-n y=x x=x+n y=x+2 n=-n第8题 执行下面程序，单击Command1，窗体上显示的第一行是_【1】_，第二行是_【2】_，第四行是_【3】_，最后一行是_【4】_. Dim n As Integer n = 5 Call test（n） Print nPrivate Sub tes

18、t（ByVal n As Integer） Dim i As Integer, s As Integer If n 0 Then For i = 1 To n s = s & CStr（i） Call test（n - 2） Print OVER第9题 运行下列程序，单击Command1，在窗体上显示的第一行内容是 【1】 ,第二行的内容是 【2】 ,第三行的内容是 【3】 。（A的ASCII码是65，是90） Dim i As Integer, st As String, n As Integer, p As String * 1 p = B 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） Prin