您所在位置：网站首页 > 办公文档 > 其它办公文档vb程序设计

vb程序设计

6页

卖家[上传人]：第***

文档编号：35376123

上传时间：2018-03-14

文档格式：DOC

文档大小：53KB

文档加载中……请稍候！
如果长时间未打开，您也可以点击刷新试试。

下载文档到电脑，查找使用更方便

10 金贝

/ 6 举报版权申诉马上下载

文本预览

下载提示

常见问题

1、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 xy Then Max=x Else

2、 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+cb+3 Or Not d 的值是 True 。 5要获得动态数组的上界通过 UBound 函数，下界通过 Lbound 函数。 6由 Array 函数建立的数组，其变量类型必须是 Varint 类型。

3、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 码。

4、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 的值为：“

5、; a; b End Sub (3) Private Sub Command1_Click( )Dim x%, y%, z%x=242: y=44z=x*yDo Until x=y If xy 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

《vb程序设计》由会员第***分享，可在线阅读，更多相关《vb程序设计》请在金锄头文库上搜索。

点击阅读更多内容

TA的资源