vb程序设计
1北京科技大学远程教育学院中核学习中心北京科技大学远程教育学院中核学习中心VBVB 程序设计程序设计作作业业2010.10.姓名姓名 学号学号 层次层次 专业专业 一、单选题一、单选题 1. Visual Basic 是一种面向对象的可视化程序设计语言，采取了 A 的编程机制。 (A) 事件驱动(B) 按过程顺序执行 (C) 从主程序开始执行(D) 按模块顺序执行 2. 若要使标签控件显示时不覆盖其背景内容，要对 属性进行设置。(A) Backcolor (B) BorderStyle(C) Forecolor (D) Backstyle 3. 在 Visual Basic 中最基本的对象是 C ，它是应用程序的基石，是其他控件的容 器。 (A) 文本框(B) 命令按钮 (C) 窗体 (D) 标签 4. 要判断在文本框是否按下 Enter 键，应在文本框的 B 事件中判断。(A) Change (B)KeyDown(C) Click (D)KeyPress 5. 数学表达式 3x10(C) x>=3 Or x=3 AND xy，x，y) (B) If x>y Then Max=x Else Max=y(C) Max=x (D) Ify>=x Then Max=yIf y>=x Then Max=y Max=x 10.当在文本框中输入“ABCD”4 个字符时，窗体上显示的是 。 Private Sub Text1_Change( )Print Text1; End Sub (A) ABCD (B) A (C) AABABCABCD (D) A2B ABC ABCD ABCD 11.下列哪个程序段不能分别正确显示 1！、2！、3！、4！的值 B 。(A) For i=1 to 4(B) For i=1 to 4n=1For j=1 to iFor j=1 to I n=1 n=n*j n=n*jNext jNext jPrint nPrint nNext I Next i(C) n=1(D) n=1For j=1 to4 j=1n=n*j Do While j=0 And a+c>b+3 Or Not d 的值是 True 。 5要获得动态数组的上界通过 UBound 函数，下界通过 Lbound 函数。 6由 Array 函数建立的数组，其变量类型必须是 Varint 类型。 7VB 中的变量按其作用域分为全局变量、模块变量和 全程变量 变量。8复选框的 value 属性设置为 2Grayed 时，变成灰色，禁止用户选择。9滚动条响应的重要事件有 Scroll 和 Change。10假定有一个通用对话框控件 CommonDialog1，除了用 COmmonDialog1.Action=3 显示颜色对话框之外，还可以用 CommonDialog1.ShowColor 方法显示。11窗体 Form1 的左上角坐标为(-200, 250)，窗体 Form1 的右下角的坐标为(300, -150)，则 X 轴的正向向 右 ，Y 轴的正向向 上 。12使用 Circle 方法画扇形，起始角、终止角取值范围为 _Circle (1000, 2000), 500, vbBlack, -pai / 2, -pai / 3 。 13在运行状态改变 ADO 数据控件的数据源连接属性后，必须使用 方法激活这 些变化。 14VB 中工程文件的扩展名为 .vbp 。15如果在窗体上已经创建了一个文本框对象 Text1，可以通过 keypress 事件获得输入键值的 ASCII 码。 16VB 中对象的三要素是 属性 、 方法 和 事件 。 三、编程应用题三、编程应用题 1.程序阅读程序阅读 (1) Private Sub Command1_Click( )Dim s as String, i%s=abcdFor i=Len(s) to 1 step -1 Print Mid(s, i, 1)Next i End Sub (2) Sub Swap1(ByVal x%, ByVal y%)Dim t%5t = x: x = y: y = tEnd SubSub Swap2(ByRef x%, ByRef y%)Dim t%t = x: x = y: y = tEnd Sub Sub 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; b End Sub (3) Private Sub Command1_Click( )Dim x%, y%, z%x=242: y=44z=x*yDo Until x=y If x>y Then x=x-y Else y=y-xLoopPrint x, z/x End Sub 2.补充程序补充程序 (1) 以下是求以下是求 118 之间某个数的阶乘的程序，具体的数值之间某个数的阶乘的程序，具体的数值 n 由滚动条由滚动条 HScroll1 获得，结获得，结 果显示在窗体下部的两个果显示在窗体下部的两个 Label 标签里。补充完整如下程序。标签里。补充完整如下程序。Private Sub HScroll1_Change()Dim i As Integer, s As Doubles = 1n = If n <> 0 ThenFor i = 1 To ns = Next iEnd If6Label2.Caption = n & “! = “Label3.Caption = s End 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 ThenFor j=i+1 to UBound(a)Next jReDim MsgBox(删除完成)Exit Sub End IfNext iMsgBox(找不到要删除的元素) End Sub
