《VB程序设计试题及答案.docx》由会员分享，可在线阅读，更多相关《VB程序设计试题及答案.docx（12页珍藏版）》请在三一文库上搜索。
1、VB程序设计试题及答案VB程序设计试题及答案（三）一、单选题1. Visual Basic是一种面向对象的可视化程序设计语言，采取了 A 的编程机制。(A) 事件驱动(B) 按过程顺序执行(C) 从主程序开始执行(D) 按模块顺序执行2. 若要使标签控件显示时不覆盖其背景内容，要对 D 属性进行设置。(A) Backcolor (B) BorderStyle(C) Forecolor (D) Backstyle3. 在Visual Basic中最基本的对象是 C ，它是应用程序的基石，是其他控件的容器。(A) 文本框(B) 命令按钮(C) 窗体(D) 标签4. 要判断在文本框是否按下Enter
2、键，应在文本框的 D 事件中判断。(A) Change (B)KeyDown(C) Click (D)KeyPress5. 数学表达式3x(A) 3(C) x=3 Or x6. Rnd函数不可能为下列 B 值。(A) 0 (B) 1 (C) 0.1234 (D) 0.00057. 赋值语句:a=123+Mid(123456，3，2)执行后，a变量中的值是 D 。(A) 12334 (B) 123 (C) 12334 (D) 1578. 对于语句If x=l Then y=l，下列说法正确的是 C 。(A) x=l和y=l均为赋值语句(B) x=l和y=l均为关系表达式(C) x=l为关系表达式
3、，y=l为赋值语句(D) x=l为赋值语句，y=l为关系表达式9. 下面程序段表示求两个数中的大数， D 不正确。(A) Max=IIf(xy，x，y) (B) If xy Then Max=x Else Max=y(C) Max=x (D) Ify=x Then Max=yIf y=x Then Max=y Max=x10.当在文本框中输入“ABCD”4个字符时，窗体上显示的是 C 。Private Sub Text1_Change( )Print Text1;End Sub(A) ABCD (B) A (C) AABABCABCD (D) ABABCABCDABCD11.下列哪个程序段不能
4、分别正确显示1！、2！、3！、4！的值 B 。(A) For i=1 to 4 (B) For i=1 to 4n=1 For j=1 to iFor j=1 to I n=1n=n*j n=n*jNext j Next jPrint n Print nNext I Next i(C) n=1 (D) n=1For j=1 to4 j=1n=n*j Do While jPrint n n=n*j Next j Print nj=j+1Loop12.如下数组声明语句，则数组a包含元素的个数有 A 。Dim a(3, -2 to 2, 5)(A) 120 (B) 75 (C) 60 (D) 131
5、3.以下程序的输出结果是 D 。Dim aa=Array(1, 2, 3, 4, 5, 6, 7)For i=Lbound(a) to Ubound(a)a(i)=a(i)*a(i)Next iPrint a(i)(A) 49 (B) 0 (C) 不确定(D) 程序出错14.在过程中定义的变量，若希望离开该过程后，还能保存过程中局部变量的值，则应使用关键字 D在过程中定义局部变量。(A) Dim (B) Private (C) Public (D) Static15.如下程序，运行的结果是 B 。Dim a%, b%, c%Public Sub p1(x%, y%)Dim c%x=2*x: y
6、=y+2: c=x+yEnd SubPublic Sub p2(x%, ByVal y%)Dim c%x=2*x: y=y+2: c=x+yEnd SubPrivate Sub Command1_Click( )a=2: b=4: c=6Call p1(a, b)Print “a=”; a; “b=”; b; “c=”; cCall p2(a, b)Print “a=”; a; “b=”; b; “c=”; cEnd Sub(A) a=2 b=4 c=6 (B) a=4 b=6 c=10a=4 b=6 c=10 a=8 b=8 c=16(C) a=4 b=6 c=6 (D) a=4 b=6 c
7、=14a=8 b=6 c=6 a=8 b=8 c=616.复选框的Value属性为1时，表示 B 。(A) 复选框未被选中(B) 复选框被选中(C) 复选框内有灰色的勾(D) 复选框操作有误17.下面关于菜单的说法中，错误的是 B 。(A) 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件(B) 除了Click事件之外，菜单项还能响应其他的，如DbClick事件(C) 菜单项的快捷键不能任意设置(D) 在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择18.下面关于多重窗体的叙述中，正确的是 B 。(A) 作为启动对象的Main子过程中能放在
8、窗体模块中(B) 如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载或加载哪一个窗体(C) 没有启动窗体，程序不能执行(D) 以上都不对19.当用户将焦点移到另一个应用程序时，当前应用程序的活动窗体将 D 。(A) 发生DeActivate事件(B) 发生LostFocus事件(C) 发生DeActivate和LostFocus事件(D) DeActivate和LostFocus事件都不发生20.顺序文件是因为 D 。(A) 文件中的数据按每行的长度从小到大排序好的(B) 文件中的数据按某个关键数据项从大到小进行排序(C) 文件中的数据按某个关键数据
9、项从小到大进行排序(D) 数据按进入的先后顺序存放的，读出也是按原写入的先后顺序读出21.文件号最大可取值为 B 。(A) 255 (B) 511 (C) 512 (D) 25622.Print #1, STR$1中的Print是 A 。(A) 文件的写语句(B) 在窗体上显示的方法(C) 子程序名(D) 以上均不是23.以下的属性和方法中 C 可重定义坐标系。(A)Drawstyle属性(B) DrawWidth属性(C) Scale方法(D) ScaleMode属性24.封闭图形的填充方式由下列 C 属性决定。(A) DrawStyle, DrawMode (B) AutoRedraw,
10、ClipControls(C) FillStyle, FillColor (D) ForeColor, BorderColor25.下列字符串中， D 不包含在ADO数据控件的ConnectionString属性中。(A) Microsoft Jet 4.0 OLE DB Provider(B) Data Source=C:Mydb.mdb(C) Persist Security Info=False(D) 2-adCmdT able二、填空题1在代码窗口对窗体的BorderStyle、MaxButton属性进行了设置，但运行后没有效果，原因是这些属性在运行时设计是无效的。2在文本框中，通过S
11、elStart 属性能活得当前插入点所在的位置。3表达式Ucase(Mid(“abcdefgh”, 3, 4)的值是CDEF 。4已知a=3.5，b=5.0，c=2.5，d=True，则表达式：a=0 And a+cb+3 Or Not d的值是False 。5要获得动态数组的上界通过UBound 函数，下界通过LBound 函数。6由Array函数建立的数组，其变量类型必须是variant 类型。7VB中的变量按其作用域分为全局变量、模块变量和局部变量变量。8复选框的Value 属性设置为2Grayed时，变成灰色，禁止用户选择。9滚动条响应的重要事件有Scroll 和Change。10假定
12、有一个通用对话框控件CommonDialog1，除了用COmmonDialog1.Action=3显示颜色对话框之外，还可以用showcolor 方法显示。11窗体Form1的左上角坐标为(-200, 250)，窗体Form1的右下角的坐标为(300, -150)，则X轴的正向向右，Y轴的正向向上。12使用Circle方法画扇形，起始角、终止角取值范围为02。13在运行状态改变ADO数据控件的数据源连接属性后，必须使用Refresh 方法激活这些变化。14VB中工程文件的扩展名为vbg 。15如果在窗体上已经创建了一个文本框对象Text1，可以通过Keypress 事件获得输入键值的ASCII
13、码。16VB中对象的三要素是属性、事件和方法。三、编程应用题1.程序阅读(1)Private Sub Command1_Click( )Dim s as String, i%s=abcdFor i=Len(s) to 1 step -1Print Mid(s, i, 1)Next iEnd Sub输出结果：dcba(2)Sub Swap1(ByVal x%, ByVal y%)Dim t%t = x: x = y: y = tEnd SubSub Swap2(ByRef x%, ByRef y%)Dim t%t = x: x = y: y = tEnd SubSub Command1_Clic
14、k()Dim a%, b%a = 10:b = 20Print 调用Swap1前a和b的值为：; a; bCall Swap1(a, b)Print 调用Swap1后按传值方式a和b的值为：; a; ba = 10:b = 20Call Swap2(a, b)Print 调用Swap2后按传地址方式a和b的值为：; a; bEnd Sub输出结果调用Swap1前a和b的值为：10 20调用Swap1后按传值方式a和b的值为：10 20调用Swap2后按传地址方式a和b的值为：20 10(3)Private Sub Command1_Click( )Dim x%, y%, z%x=242: y=
15、44z=x*yDo Until x=yIf xy Then x=x-y Else y=y-xLoopPrint x, z/xEnd Sub输出结果:22 4842.补充程序(1) 以下是求118之间某个数的阶乘的程序，具体的数值n由滚动条HScroll1获得，结果显示在窗体下部的两个Label标签里。补充完整如下程序。Private Sub HScroll1_Change()Dim i As Integer, s As Doubles = 1n = Hscroll1.ValueIf n For i = 1 To ns = s*iNext iEnd IfLabel2.Caption = n & ! = Label3.Caption = sEnd Sub(2)以下程序的功能是：已知数组a，删除数组中某个元素。Private Sub Command1_Click( )Dim a( ), key%, i%, j%a=Array(1, 6, 8, 3, 5, 9, 10, 2, 4, 7) key=9For i=0 to UBound(a)If a(i)=9 ThenFor j=i+1 to UBound(a)a(j)=a(j+1)Next jReDim a(j)=a(i)MsgBox(删除完成)Exit SubEnd IfNext iMsgBox(找不到要删除的元素) End Sub