vb程序设计题及答案

1、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.

2、 要判断在文本框是否按下 enter 键，应在文本框的 d 事件中判断。(a) change (b)keydown(c) click (d)keypress5. 数学表达式 3xl0 在 vb 中的逻辑表达式为 d 。(a) 3=x10(b) 3=x and x10(c) x=3 or x10 (d) x=3 and x106. 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.

3、对于语句 if x=l then y=l，下列说法正确的是c 。(a) x=l 和 y=l 均为赋值语句(b) x=l 和 y=l 均为关系表达式(c) x=l 为关系表达式， 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=y if y=x then max=y max=x10. 当在文本框中输入 “abcd”4个字符时，窗体上显示的是 c。 private

4、sub text1_change( )print text1;end sub(a) abcd (b) a (c) aababcabcd (d) a b abc 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 ifor j=1 to i n=1n=n*j n=n*jnext j next jprint nprint nnext inext i(c) n=1(d) n=1 for j=1 to4 j=1 n=n*j do while j=4 print n

5、n=n*jnext jprint n j=j+1 loop12. 如下数组声明语句，则数组 a 包含元素的个数有 a 。dim a(3, -2 to 2, 5)(a) 120 (b) 75(c) 60(d) 1313. 以下程序的输出结果是 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 i print a(i)(a) 49 (b) 0 (c)不确定(d) 程序出错14. 在过程中定义的变量，若希望离开该过程后，还能保存过程中局部变量的值，则应使用关键字在过程中定义局部变

6、量。(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=6call p1(a, b)print “a=”; a; “b=”; b; “c=”; c call p2(a, b)print “a=”;

7、a; “b=”; b; “c=”; c end sub(a) a=2 b=4 c=6 (b) a=4 b=6 c=10 d a=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 事件之外，菜单项还能响应其他的

8、，如dbclick事件(c) 菜单项的快捷键不能任意设置(d) 在程序执行时，如果菜单项的 enabled 属性为 false ，则该菜单项变成灰色，不能被用户选择18. 下面关于多重窗体的叙述中，正确的是b 。(a) 作为启动对象的 main 子过程中能放在窗体模块中(b) 如果启动对象是 main 子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载或加载哪一个窗体(c) 没有启动窗体，程序不能执行(d) 以上都不对19. 当用户将焦点移到另一个应用程序时，当前应用程序的活动窗体将 d。(a) 发生 deactivate 事件(b) 发生 lostfocus 事件(c)

9、 发生 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) 子程序名 (

10、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) p

11、ersist 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 anda+cb+3 or not d的值是false。5要获得动态数组的上界通过 ubound 函数，下界通过 lbound 函数。6由 ar

12、ray 函数建立的数组，其变量类型必须是variant类型。7vb 中的变量按其作用域分为全局变量、模块变量和局部变量变量。8复选框的value属性设置为2 grayed时，变成灰色，禁止用户选择。9滚动条响应的重要事件有scroll和 change 。10 假定有一个通用对话框控件commondialog1，除了用commondialog1.action=3显示颜色对话框之外，还可以用showcolor方法显示。11 窗体 form1 的左上角坐标为 (-200, 250) ，窗体 form1 的右下角的坐标为 (300, -150) ，则 x 轴的正向向右， y 轴的正向向 上 。13 在

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(

14、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 的值为

15、： ; a; bend sub输出结果调用 swap1 调用 swap1 调用 swap2(3)前 a 和 b 的值为： 10 20后按传值方式 a 和 b 的值为： 10 20后按传地址方式 a 和 b 的值为： 2010private 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) 以下是求 1 18 之间某个数的阶乘的程序，具体的数值n 由滚动条 hscroll1 获

16、得，结果显示在窗体下部的两个 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，删除数组中某个元素。【篇二： vb 程序设计练习题及参考答案】ass=txt>1 visual basic 是一种面向对象的可视化程序设计语言，

17、采取了的编程机制。a事件驱动 b 按过程顺序执行 c从主程序开始执行 d 按模块顺序执行2在 visual basic中最基本的对象是，它是应用程序的基石，是其他控件的容器。a文本框 b命令按钮 c窗体 d 标签3多窗体程序是由多个窗体组成。在缺省情况下，vb 在应用程序执行时，总是把 指定为启动窗体。a不包含任何控件的窗体 b 设计时的第一个窗体c 包含控件最多的 d 命名为 frm1的窗体4若有程序代码如下：text1.text=visual basic则： text1 ，text 和 visual basic 分别代表 c 。a对象，值，属性 b 对象，方法，属性c 对象，属性，值 d

18、属性，对象，值5visual basic 是一种面向对象的程序设计语言，不是面向对象系统所包含的三要素。a变量 b 事件 c 属性 d 方法6在 vb 集成环境创建 vb 应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是c 。a窗体布局窗口 b 立即窗口 c 代码窗口 d 监视窗口7保存新建的工程时，默认存放的位置是。amy documents b vb98c d windows8若要使标签控件显示时不覆盖其背景内容，要对d 属性进行设置。abackcolor b borderstyle c forecolor dbackstyle9 若要使命令按钮不可操作，要对属性设置

19、。aenabledb visible cbackcolord10 文本框没有d 属性。aenabledb visiblec backcolor dcaption caption11 不论何控件，共同具有的是属性。atext b namec forecolor d caption12 要使 form1窗体的标题栏显示“欢迎使用 vb”，以下语句是正确的。aform1.caption =“欢迎使用 vb”b form1.caption=欢迎使用 vbc form1.caption =欢迎使用 vbd form1.caption =欢迎使用 vb13 要使某控件在运行时不可显示，应对aenabled

20、b visible cbackcolor d caption14 当运行程序时，系统自动执行启动窗体的事件过程。aloadb clickc unload d gotfocus15 当文本框的 scrollbars 属性设置了非零值，却没有效果，原因是。a文本框中没有内容b 文本框的 multiline 属性为 falsec 文本框的 multiline属性为 trued文本框的 locked 属性为 true16要判断在文本框是否按了enter键，应在文本框的事件中判断。achangeb keydownc click dkeypress17窗体 form1的 name 属性是 frm1 ，它的

21、单击事件过程名是。aform1_clickbform_click c frm1_click dme_click18在一行内写多条语句时，每个语句之间用符号b 分隔。a , b : c 、 d ；19 一句语句要在下一行继续写，用a+ b c _ d 20 下面 a 是合法的变量名。ax_yz b 123abcc integer d x y21 下面a100b o100 c h100d %10022 下面aabc$b abc c abcd abc23 下面a 是合法的单精度型变量。anum! b sum% c xinte$d mm#24 下面a100 ！ b 100.0 c 1e+2 d 100

22、.0d+225表达式 16/4-25*8/4 mod 52 的值为 b 。a14 b 4 c 20d 226数学关系 3x 10 表示成正确的 vb 表达式为a3=x10 b 3=x and x10c x=3 or x10 d 3=x and 1027 、/、mod 、*四个算术运算符中，优先级别最低的是a b / c modd *28rnd 函数不可能为下列b 值。a0 b 1 c 0.1234 d 0.000529int(198.555*100+0.5)/100的值为a198 b 199.6c 198.56 d 20030已知 a$=12345678 ，则表达式 val(left$(a$,

23、4)+mid$(a$,4,2)的值为。a123456 b 123445 c 8d 631表达式的 len(123 程序设计 abc) 的值是a10 b 14 c 20 d 1732表达式的 lenb(123 程序设计 abc) 的值是a10 b 14 c 20 d 1733下面正确的赋值语句是 c 。34 为了给 x， y， z 三个变量赋初值 1，下面正确的赋值语句是ax=1:y=1:z=1b x=1,y=1,z=1c x=y=z=1 d xyz=135 赋值语句： a=123 + mid(123456,3,2)执行后， a 变量中的值是a12334 b 123c 12334 d 15736

24、 赋值语句： a=123 mid(123456,3,2)执行后， a 变量中的值是a12334 b 123c 12334 d 15737 把字符串 “123”转换为数值 123 时应该使用的函数是astr b val c len d log38 下列各表达式能产生1 ，3 随机整数的是d 。arnd()* 3+1b rnd()*2) +1c int(rnd()* )+1 d int(rnd()*3)+12xexsin(300)lnx39 代数式对应的 vb 表达式是 c 。 x?y aex*sin(30*3.14/180)*2*x/x+y*log(x) b exp(x)*sin(30)*2*x

25、/(x+y)*ln(x)c exp(x)*sin(30*3.14/180)*2*x/(x+y)*log(x)d exp(x)*sin(30*3.14/180)*2*x/(x+y)*ln(x)40 vb 提供了结构化程序设计的三种基本结构，三种基本结构是a递归结构、选择结构、循环结构b选择结构、过程结构、顺序d 。结构c 过程结构、输入、输出结构、转向结构 d 选择结构、循环结构、顺序结构41 下面程序段运行后，显示的结果是 dim xif x then print x else print x + 1a1 b 0 c 显示出错信息d 242 语句 if x=1 then y=1，下列说法正确的

26、是ax=1 和 y=1 均为赋值语句b x=1 和 y=1 均为关系表达式c x=1 为关系表达式， y=1 为赋值语句 d x=1 为赋值语句， y=1 为关系表达式43 用 if 语句表示分段函数f(x)=x2+3 , x1下列不正确的程序段是a 。aif x=1 then f=sqr(x+1)bif x=1 then f=sqr(x+1)f=x*x+3if x1 then f=x*x+3c if x=1 then f=sqr(x+1) else f=x*x+3 d if x1 then f=x*x+3 else f=sqr(x+1)44 计算分段函数的值。x01 0 x12 1 x2 x

27、2下面程序段中正确的是。aif x0 then y=0bif x=2 then y=3if x1 then y=1if x=1 then y=2if x2 then y=2if x0 then y=1if x=2 then y=3 if x0 then y=0c if x0 then dif x=2 theny=0y=3elseif x0 thenelseif x=1 theny=1y=2elseif x1 thenelseif x=0 theny=2y=1else elsey=3y=0end ifend if45 下面程序段，显示的结果是a。dim xx = int(rnd) + 5sele

28、ct case xcase 5print优秀case 4print良好case 3print通过case elseprint不通过end selecta 优秀 b 良好 c 通过 d 不通过46 下面 if 语句统计满足性别为男、职称为副教授以上、年龄小于40 岁条件的人数，不正确的语句是 d 。aif sex =男 and age 40 and instr(duty,教授 ) 0 then n = n + 1b if sex =男 and age 40 and (duty =教授 or duty =副教授 )then n = n + 1c if sex =男 and age 40 and r

29、ight(duty, 2) =教授 then n = n +1d if sex =男 and age 40 and duty =教授 and duty =副教授then n = n + 147 下面程序段求两个数中的大数，不正确。amax=iif(xy , x , y)b if xy then max=x else max=y c max=xd if y=x then max=yif yx then max=ymax=x48 以下 fornext 结构。afor x=1 to step 10 bfor x=3 to3 step -3next x next xc for x=1 to 10 d

30、for x=3 to 10 step 3re:next x next yif i=10 then goto re49 下列循环语句能正常结束循环的是ai = 5 b i=1do doi = i + 1 i=i+2loop until i 0loop until i=10c i = 10 d i=6do doi = i 1i=i-2loop until i 0loop until i=150 下面程序段的运行结果为for i = 3 to 1 step -1print spc(5 - i);for j = 1 to 2 * i - 1print *;next jprintnext ia*b *

31、* * * * c * * * * * d * * * * * *51 哪个程序段不能分别正确显示 1! 、 2！、 3！、 4！的值。afor i = 1 to 4 b for i = 1 to 4n = 1 for j=1 to ifor j = 1 to in=1n = n * j n=n*jnext j next jprint nprint nnext inext ic n = 1 d n=1for j = 1 to 4 j=1n = n * jdo while j=4print n n=n*jnext j print nj=j+1loop52 如下静态数组声明语句，b 正确。adim

32、 a3,4 as integer b c dim a(n,n) as integer ddim a(3,4) as integerredim a(3,4) as integer53 要分配存放如下方阵的数据，可使用数组声明语句 c 来实现（不能浪费空间）。adim a(9) as single b. dim a(3,3) as singlec. dim a(-1 to 1,-5 to 3) as single d. dim a(-3 to 1 ,5 to 7) as integer54 如下数组声明语句中，数组a 包含元素的个数为a 。dim a(3,-2 to 2)a20 b 75 c 60

33、 d 1355 以下程序输出的结果是dim aa = array(1, 2, 3, 4, 5, 6, 7)for i = lbound(a) to ubound(a)a(i) = a(i) * a(i)next i【篇三： vb 程序设计期末复习题及答案】s=txt> 一、填空题1创建一个vb 应用程序三个主要的步骤是_、_和_。2当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的 _ 窗口中，把此文本框的_属性设置成空白。3label 和 textbox 控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用 _ 控件；若允许用户输入文本，则应使用

34、_ 控件。4窗体的常用方法有_ 、_ 、 _和_ 。5要想在代码中给名为txtshow的文本框赋予文本：goodwork，应当编写的语句是 _ 。6若命令按钮的名称为 cmdopen ，程序要求单击该命令按钮时，打开一个窗口 frm1 ，请对以下事件过程填空。private sub cmdopen_ _end sub7visual basic 6 _ _种类型的表达式是、_、_、 _、_。visual basic根据表达式的_ 来确定表达式的类型。8表达式 93 7 mod 2 2的值是 _ 。9已知 a=3 ， b=4 ， c=5 ，表达式 ab and not ca or cb and c

35、a+b的值是 _ 。表达式 ca and not bc的值是 _ 。10日期表达式 #2/24/02# - #2/12/02# 的值为 _ 。11数学表达式 sin2x+ 写成等价的 visual basic 表达式为_ 。12设某个程序中要用到一个二维数组，要求数组名为a，类型为字符串类型，第一维下标从 1 到 5，第二维下标从 -2 到 6，则相应的数组声明语句为_。13 事件就是在对象上所发生的事情，visual basic中的事件如_ 、_ 、 _等。一个对象响应的事件可以有_个，用户不能建立新的事件。事件过程是指_。假设某一事件过程如下：private sub cmd1_click(

36、)form1.caption=vb示例end sub则响应该过程的对象名是_，事件名是_ 。14 对象的方法用于_。当方法不需要任何参数并且也没有返回值时，调用对象的方法的格式为_，例如，对窗体form1使用 show方法，应写成_ 。二、单项选择题1下列控件中没有caption属性的是（）a、标签 b 、文本框 c 、框架d 、命令按纽2除框架外，能对单选按纽分组的控件是（）。a、窗体 b 、标签 c 、图片框d 、图像3下列符号不能作为 vb 中变量名的是（）。a 、 abcdefg b 、 p00000c 、 89ywddf d、xyz4 下列不属于 visual basic数据文件的是

37、（）。a、顺序文件 b 、随机文件 c 、二进制文件 d 、数据库文件5若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（）。a、text属性值为 *b 、 caption属性值为 *c 、password 属性值为空 d 、passwordchar属性值为 *6表达式 2*32+2*8/4+32的值为（ ）。a、 64 b 、31c 、49 d 、427表达式 mid(abcdefg,3,2)的值是（）a、abcb 、 cd c 、bcd d 、abcde9sub过程与 function 过程最根本的区别是（）。a、sub过程可以使用 call 语句或直接使用过程名调用，而function过程不可以。b 、function 过程可以有参数， sub 过程不可以。c 、两种过程参数的传递方式不同。d 、sub 过程的过程名不能返回值，而 function 过程能够通过过程名返回值。10 选拔身高 t 超过 1.7 米且体重 w 小于 62.5 公斤的人，表示该条件的布尔表达式为（ ）a、t=1.7 and w=62.5 b 、 t=1.7 or w=62.5 c 、t1.7 and w62.5d 、 t=1.7 or w62.511. 下列对象不能响应 click 事件的是（ ）a、列表框 b 、图片框 c 、窗