《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 键，应在文本框的 D 事件中判断。(A) Change (B)KeyDown(C) Click (D)KeyPress5. 数学表达式 3x10(C) x=3 Or x=3 AND 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) AB ABC ABCD ABCD11.下列哪个程序段不能分别正确显示 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 j=0 And a+cb+3 Or Not d 的值是 False 。5要获得动态数组的上界通过 UBound 函数，下界通过 LBound 函数。6由 Array 函数建立的数组，其变量类型必须是 variant 类型。7VB 中的变量按其作用域分为全局变量、模块变量和 局部变量 变量。8复选框的 Value 属性设置为 2Grayed 时，变成灰色，禁止用户选择。9滚动条响应的重要事件有 Scroll 和 Change。10假定有一个通用对话框控件 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 码。16VB 中对象的三要素是 属性 、 事件 和 方法 。三、编程应用题1.程序阅读(1)Private Sub Command1_Click( )Dim s as String, i%s=abcd For 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_Click()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=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 0 ThenFor 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 UBo