vb程序设计题及答案

vb 程序设计题及答案篇一：vb 程序设计试题及答案】txt> 一、单选题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. 数学表达式3W xIO在vb中的逻辑表达式为d 。

(a) 3=x10(b) 3=x and x10(c) x=3 or x1O (d) x=3 and x1O6. rnd 函数不可能为下列b 值。

(a) O (b) 1(c) O.1234 (d) O.OOO57. 赋值语句:a=123+mid(123456 ，3，2)执行后，a 变量中的值是d(a) 12334(b) 123 (c) 12334 (d) 1578. 对于语句if x=I then y=I ，下列说法正确的是c 。

(a) x=I 和y=I 均为赋值语句(b) x=I 和y=I 均为关系表达式(c) x=I 为关系表达式，y=I 为赋值语句(d) x=I 为赋值语句，y=I 为关系表达式9. 下面程序段表示求两个数中的大数，d 不正确。

(a) max=iif(xy ，x，y) (b) if xy then max=x eIse max=y(c) max=x (d) ify=x then max=yif y=x then max=y max=x10. 当在文本框中输入“ a bcd ”4个字符时，窗体上显示的是c。

privatesub text1_change( )print text1; end sub(a) abcd (b) a (c) aababcabcd (d) a b ab c abc d abcd11. 下列哪个程序段不能分别正确显示1！、2！、3！、4！的值b (a) for i=1 to 4 (b) for i=1 to 4 n=1 for j=1 to i for j=1 to i n=1 n=n*j n=n*j next j next j print nprint n next inext i(c) n=1(d) n=1 for j=1 to4 j=1 n=n*j do while j=4 print nn=n*j next jprint nj=j+1 loop12. 如下数组声明语句，则数组a 包含元素的个数有a 。

dim a(3, -2 to 2,5)(a) 120 (b) 75(c) 60(d) 1313. 以下程序的输出结果是d 。

dim a a=array(1, 2, 3, 4, 5, 6, 7) for i=lbound(a) to ubound(a) a(i)=a(i)*a(i) next i print a(i)(a) 49 (b) 0 (c) 不确定(d) 程序出错14. 在过程中定义的变量，若希望离开该过程后，还能保存过程中局部变量的值，则应使用关键字在过程中定义局部变量。

(a) dim (b) private (c) public (d) static15. 如下程序，运行的结果是b 。

dim a%, b%, c% public sub p1(x%, y%) dim c% x=2*x: y=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=6 call p1(a, b)・丄“” a - ”I “”print “ a=” ; a; “b=”; b; “c=”; c call p2(a, b)・丄“” a - ”I “”print “ a=” ; a; “b=”; b; “c=”; c end sub(a) a=2 b=4 c=6 (b) a=4 b=6 c=10 da=4 b=6 c=10a=8 b=8 c=16(c) a=4 b=6 c=6 (d) a=4 b=6 c=14 a=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 子过程中能放在窗体模块中(b) 如果启动对象是main 子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载或加载哪一个窗体(c) 没有启动窗体，程序不能执行(d) 以上都不对19. 当用户将焦点移到另一个应用程序时，当前应用程序的活动窗体将d 。

(a) 发生deactivate 事件(b) 发生lostfocus 事件(c) 发生deactivate 和lostfocus 事件(d) deactivate 和lostfocus 事件都不发生20. 顺序文件是因为d 。

(a) 文件中的数据按每行的长度从小到大排序好的(b) 文件中的数据按某个关键数据项从大到小进行排序(c) 文件中的数据按某个关键数据项从小到大进行排序(d) 数据按进入的先后顺序存放的，读出也是按原写入的先后顺序读出21. 文件号最大可取值为b 。

(a) 255 (b) 511 (c) 512 (d) 25622. print #1, str$1 中的print 是a 。

(a) 文件的写语句(b) 在窗体上显示的方法(c) 子程序名(d) 以上均不是23. 以下的属性和方法中c 可重定义坐标系。

(c) scale 方法(d) scalemode 属性24. 封闭图形的填充方式由下列c 属性决定。

(a) drawstyle, drawmode(b) autoredraw, 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-adcmdtable二、填空题1．在代码窗口对窗体的borderstyle 、maxbutton 属性进行了设置，但运行后没有效果，原因是这些属性在运行时设计是无效的。

2 ．在文本框中，通过selstart 属性能活得当前插入点所在的位置。

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 类型。

7．vb 中的变量按其作用域分为全局变量、模块变量和局部变量变量。

8．复选框的value 属性设置为2——grayed 时，变成灰色，禁止用户选择。

9 ．滚动条响应的重要事件有scroll 和change 。

10 ．假定有一个通用对话框控件commondialog1 ，除了用commondialog1.action=3 显示颜色对话框之外，还可以用showcolor 方法显示。

11 ．窗体form1 的左上角坐标为(-200, 250) ，窗体form1 的右下角的坐标为(300, -150) ，则x 轴的正向向右，y 轴的正向向上。

13 ．在运行状态改变ado 数据控件的数据源连接属性后，必须使用refresh 方法激活这些变化。

14 ．vb 中工程文件的扩展名为vbg 。

15 ．如果在窗体上已经创建了一个文本框对象text1 ，可以通过keypress 事件获得输入键值的ascii 码。

16 ．vb 中对象的三要素是属性、事件和方法。

三、编程应用题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 输出结果：d c b a(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 = t end subsub command1_click()dim a%, b% a = 10:b = 20print 调用swap1 前a 和b 的值为：; a; bcall swap1(a, b)print 调用swap1 后按传值方式a 和b 的值为：; a; b a = 10: b = 20 call swap2(a, b)print 调用swap2 后按传地址方式a 和b 的值为：; a; b end sub 输出结果调用swap1 前 a 和 b 的值为：10 20调用swap1 后按传值方式 a 和 b 的值为：10 20调用swap2 后按传地址方式 a 和 b 的值为：2010 (3)private sub command1_click( ) dim x%, y%, z% x=242: y=44 z=x*ydo until x=yif xy then x=x-y else y=y-xloopprint x, z/x end sub 输出结果:22 4842. 补充程序(1)以下是求1〜18之间某个数的阶乘的程序，具体的数值n由滚动条hscroll1 获得，结果显示在窗体下部的两个label 标签里。