VB练习题含答案

1、一、单项选择（每小题2分，共40分）1、窗体文件、标准模块文件的扩展名分别是_d_。(a).frm和.mdb(b).frm和.vbp(c).bas和.vbp工程文件扩展名(d).frm和.bas2、 如果要设置窗体的标题栏，应选择_ b_属性。(a) name窗体名称 (b) caption (c) tips (d) text3、当运行程序时，系统自动执行启动窗体的_ d _事件过程。(a)click(b)unload(c)gotfocus(d)load4、 visual basic程序设计语言属于_c_。(a) 面向过程的语言(b) 面向问题的语言(c) 面向对象的语言(d) 面向机器的语言

2、5、 任何控件都具有的属性是_b_。(a)text(b) name(c)forecolor(d)caption文本框没有6、 vb的一个文本框控件名为mytxt，要使该控件中显示“我的vb程序”，以下_c_语句执行后能正确结果。(a)text1.text = "我的vb程序"(b)text1.caption = "我的vb程序"(c)mytxt.text = "我的vb程序"(d)mytxt.caption = "我的vb程序"7、 visual basic程序设计中，构成对象的三要素是_b_。(a) 属性、控件和

3、方法 (b) 属性、事件和方法 (c) 控件、过程和模块 (d)窗体、控件和过程8、 在语句public sub sort(i as integer)中的 i 是一个按_c_传递的参数。(a) 地址(b) 值(c) 变量(d) 常量9、 要将变量x赋值为50到100之间（含50和100）的一个随机整数，下面语句正确的是_b_。 x=下限+int(上限-下限+1*rnd)(a) x=50+int(50*rnd) (b) x=50+int(51*rnd)(c) x=int(49+50*rnd)(d)x=int(49+51*rnd)10、 在通用声明代码中有以下语句：option base 1dim

4、 a (4,-3 to 3) as string则该数组有_ _个元素。a(a) 28 (b) 24(c) 35(d) 3011、 要使某控件在运行时不可见，应将其_d_属性设置为false。(a) text(b) caption(c) enabled(d) visible12、 为了使标签label1的大小根据其caption属性的值自动扩大或缩小，应对label1的何种属性进行怎样的设置？b(a) 将borderstyle属性设为1有边框 (b) 将autosize属性设为true(c) 将borderstyle属性设为0 (d) 将autosize属性设为false13、 下列哪一个是v

5、b中合法的变量名? d(a) 123abc数字开头(b) a-b减号(c) dimvb关键字(d) str_x空格14、 以下事件过程中，private表示_b_。private sub text1_changeprint "text1 changed"end sub(a) 此过程可以被任何其他过程调用(b) 此过程只可以被本窗体中的其他过程调用(c) 此过程不可以被任何其他过程调用(d) 此过程只可以被本工程中的其他过程调用15、 下面语句的循环次数为_b_。for i = -3 to 20 step 4(a) 5(b) 6(c) 7(d) 816、 如果变量a、b、c的

6、值分别为3、2、-3.5，则abs(b*c-a)+int(c)的值为_a_。(a) 6(b) 7(c) 14(d) -13 |2*-3.5-3|-4=6下列函数中_d_的值与其他三个的不一样。(a) val ("-1")-1(b) round (-0.9) -1(c) int (-0.9) 小于等于n最大整数-1(d) fix (-0.9) n整数部分017、 下列程序代码执行的结果是 dconst st as string = "1234" st = st + "5678" print st (a) 1234(b) 12345678

7、(c) 6912(d) 出错信息18、 用户释放任意一个鼠标按钮时触发的事件是_。b(a) mousedown(b) mouseup(c) mousemove(d) mouseclick19、 当用户在文本框中键入一个字符时，能触发文本框的_事件。c(a) keypress和click(b) keypress和lostfocus(c) keypress和change(d) change和lostfocus二、填空（每空2分，共40分）1、 把数学表达式写成vb表达式是_(1)_ ，把数学表达式 | x + y | + z7 写成vb表达式是_(2)_。(-b+sqr(b2-4*a*c)/2*a

8、 abs(x+y)+z72、 窗体中有两个命令按钮：“显示”（控件名为cmddisplay）和“测试”（控件名为cmdtest）。完成下列事件代码过程，使单击“测试”按钮时，隐藏“显示”按钮。private sub cmdtest_click () _(3)_ cmddisplay.visible=falseend sub3、 窗体中有图像框image1，完成下列事件过程代码，使单击image1时，image1移到窗体中心。private sub image1_click () image1. _ (4)_ = (form1.scalewidth - image1.width) 2 left

9、image1.top = _ (5)_ (form1.scalehighth - image1.highth) 2end sub4、 窗体中有图片框（picture1）和计时器（timer1）两个控件。完成下列事件代码过程，使运行程序时，将指定图片加载到图片框里，然后图片框以每2秒钟一次的速度向窗体的右下角移动（每次向右移动100个twip，同时向下移动100个twip）。private sub form_load () picture1.picture = _ (6)_ ("c:white.bmp") loadpicture timer1.interval = _ (7)

10、_ 2000end subprivate sub timer1_timer () picture1.move _ (8)_ , _ (9)_ picture1.left+100 picture1.top+100end sub5、 完成以下程序，使其运行后，点击窗体，能打印出如图1所示的结果。图1private sub form_click () dim se as string print tab(35); "九九乘法表" for i = _ (10)_ 1 to 9 for j = _ (11)_ i to 9 se = i & "×"

11、; & j & "=" & i * j print tab ( (j - 1) * 9 + 1); _ (12)_; se next j next iend sub6、 用公式可以计算的近似值。请完成下列程序，编写函数pi（n）求的近似值，并调用该函数求n100时的近似值。function pi (byval n as integer) as double dim i as integer pi = 0 for i = 1 to n pi = pi + _ (13)_ (-1)(i-1)/(2*n-1) next i pi =_ (14)_ 4*pi

12、end functionprivate sub form_click () print "n=100时，的近似值为：" _ (15)_ pi(100)end sub7、 输入任意一个整数x，将其插入到一个按升序排列的整数数组中，并保证数组在插入之后仍按原来的升序排列，请填写完整程序。const n = 9private sub form_click()dim adim i  as integer, j  as integer, x as integer _(16)_  = array(1, 3, 4, 5, 9, 15, 22, 28

13、, 30, 60) a x = inputbox("输入一个整数x：") redim preserve a(n + 1) for i = n to 1 _(17)_ step -1   if   _(18)_   then x<a(i)     a(i + 1) = a(i)   else       _(19)_  &#

14、160; a(i+1)=x     exit for   end if next i if i < 1 then _(20)_      a(1)=xend sub三、程序设计（每题10分，共20分）1、 编写程序，使得单击窗体时，产生10个值为100400之间（含100和400）的随机整数，用冒泡法将10个数从小到大排序后，显示在窗体上。private sub form_click()dim i, x as integer, a(1 to 10) as in

15、tegerrandomizefor i = 1 to 10a(i) = int(rnd * 301) + 100print a(i);next iprintfor i = 10 to 2 step -1 for j = 1 to i - 1 if a(j) > a(j + 1) then x = a(j): a(j) = a(j + 1): a(j + 1) = x next jnext ifor i = 1 to 10print a(i);next iprintend sub2、编写程序实现求水仙花数（水仙花数是指一种三位数,其各个数之立方和等于该数）option explicitpr

16、ivate sub command1_click() dim x% dim hundred%, ten%, one% if len(text1) <> 3 then msgbox ("请输入三位数的正整数") '如果text1中的不是三位数时，则 text1 = "" label2 = "" else x = val(text1) hundred = x 100 '百位数上的数 ten = (x mod 100) 10 '十位数上的数 one = x mod 10 '个位数上的数 if hundred 3 + ten 3 + one 3 = x then label2.caption = x & "是水仙花数！" else label2.caption = x & "不是水仙花数！" end if end ifend subprivate sub command2_click() text1 = "" label2 = ""end subp