VB练习题二含答案

1、练习二一、单项选择！1.窗体文件、标准模块文件的扩展名分别是_。(a).frm和.mdb(b).frm和.vbp(c).bas和.vbp(d).frm和.bas 2.任何控件都具有的是_属性。(a)text(b) name(c)forecolor(d)caption3.visual basic是一种面向对象的程序设计语言，构成对象的三要素是_。(a) 属性、控件和方法 (b) 属性、事件和方法 (c) 控件、过程和模块 (d) 窗体、控件和过程4.要将变量x赋值为50到100之间（含50和100）的一个随机整数，下面语句正确的是_。a. x=50+int(50*rnd) (b) x=50+in

2、t(51*rnd)(c) x=int(49+50*rnd)(d)x=int(49+51*rnd)5.为了使标签label1的大小根据其caption属性的值自动扩大或缩小，应对label1的何种属性进行怎样的设置？(a) 将borderstyle属性设为1(b) 将autosize属性设为true(c) 将borderstyle属性设为0(d) 将autosize属性设为false6.以下事件过程中，private表示_。private sub text1_changeprint "text1 changed"end suba.此过程可以被任何其他过程调用b.此过程只可以被

3、本窗体或本标准模块中的其他过程调用c.此过程不可以被任何其他过程调用d.此过程只可以被本工程中的其他过程调用！7.如果变量a、b、c的值分别为3、2、-3.5，则abs(b*c-a)+int(c)的值为_。(a) 6(b) 7(c) 14(d) -13！8.下列函数中_的值与其他三个的不一样。(a) val ("-1") (b) round (-0.9)(c) int (-0.9)(d) fix (-0.9)！9.下列程序代码执行的结果是const st as string = "1234"st = st + "5678"print

4、st (a) 1234(b) 12345678(c) 6912(d) 出错信息10.当用户在文本框中键入一个字符时，能触发文本框的_事件。(a) keypress和click(b) keypress和lostfocus(c) keypress和change(d) change和lostfocus！11.执行了下面的程序后，列表框list1中余下的两项为_。private sub form_click()for i = 1 to 4list1.additem inext ifor i = 1 to 2list1.removeitem inext iend sub(a) 1，2(b) 3，4(c)

5、 1，3(d) 2，412.下列哪段语句不能够计算分段函数 y sin x （x>=0） cos x （x<0） (a) y = sin(x) (b) y = cos(x)if x < 0 then y = cos(x) if x >= 0 then y = sin(x)(c) if x >=0 then (d)if x >= 0 then y = sin(x)y = sin(x)y = cos (x)elseif x < 0 theny = cos(x)end if13.执行下面的程序段后，变量 a 的值是_。score = int(rnd * 10

6、) + 80select case scorecase is < 60a = "f"case 60 to 69a = "d"case 70 to 79a = "c"case 80 to 89a = "b"case elsea = "a"end select(a) 字符“b” (b) 字符“c”(c) 字符“d”(d) 字符“f”！14.要使某菜单项能够通过按住键盘上的alt键及k键打开，应该在菜单编辑器中设置_。a.在“名称”栏中“k”字符前加上“&” b.在“标题”栏中“k”字符

7、前加上“&” c.在“名称”栏中“k”字符后加上“&” d.在“标题”栏中“k”字符后加上“&”15.以下程序片段运行后输出a的值是_ a = 0for i = 1 to 3for j = 1 to 3if j < i then a = a + 1next jnext iprint a(a) 3(b) 9 (c) 6 (d) 416.用列表框(list1)最后一个数据项应使用_。(a) list1.list (list1.listcount) (b) list1.list (list1.listcount-1) (c) list1.list (listcount)

8、 (d) list1.list (listcount-1)17.下列运算的结果中值最大的是(a) 8/9 (b) 89 (c) 8 mod 9 (d) 9 mod 818.设a=2,b=3,c=4,d=5,下列表达式的值是_。a>b and c<=d or 2*a>c  (a) true (b) false (c) -1 (d) 1  19.以下语句的输出结果是_.print format$(32548.5,"000,000.00")&#

9、160; (a) 32548.5 (b) 32,548.5 (c) 032,548.50 (d)32,548.50  二、填空题l 窗体中有两个命令按钮：“显示”（控件名为cmddisplay）和“测试”（控件名为cmdtest）。完成下列事件代码过程，使单击“测试”按钮时，隐藏“显示”按钮。private sub cmdtest_click () _(1)_ mddisplay.visible=falseend subl 窗体中有图像框image1，完成下列事件代码过程，使单击image1时，image1移到窗体中心。private

10、 sub image1_click () image1. _ (2)_ = (form1.scalewidth - image1.width) 2 left image1.top = _ (3)_ （form1.scaleheight-image1.height）2end subl 窗体中有图片框（picture1）和计时器（timer1）两个控件。完成下列事件代码过程，使运行程序时，将指定图片加载到图片框里，然后图片框以每2秒钟一次的速度向窗体的右下角移动。private sub form_load () picture1.picture = _ (4)_ ("c:white.bm

11、p") loadpicture timer1.interval = _ (5)_ 2000end subprivate sub timer1_timer () picture1.move _ (6)_ , _ (7)_ picture1.left+100 picture1.top+100end subl 用公式可以计算的近似值。请完成下列程序，编写函数pi（n）求的近似值，并调用该函数求n100时的近似值。function pi (byval n as integer) as double dim i as integer pi = 0 for i = 1 to n pi = pi

12、+ _ (8)_ (-1)(i-1)/(2*i-1) next i pi = pi * 4_ (9)_ end functionprivate sub form_click () print "n=100时，的近似值为：" _ (10)_ pi(100)end subl 输入任意一个整数x，将其插入到一个按升序排列的整数数组中，并保证数组在插入之后仍按原来的升序排列，请填写完整程序。option explicitoption base 1const n = 10private sub form_click()dim adim i  as integer, j

13、60; as integer, x as integer _(11)_  = array(1, 3, 4, 5, 9, 15, 22, 28, 30, 60) a x = inputbox("输入一个整数x：") redim preserve a(n + 1) for i = n to 1 _(12)_ step -1   if   _(13)_   then x<a(i)     a(i + 1) = a(i

14、)   else       _(14)_    a(i+1)=x     exit for   end if next i if i < 1 then _(15)_      a(1)=xend subl 在名称为form1的窗体上画一个文本框，其名称为text1，在属性窗口中把该文本框的multiline属性设置为true，然后编写如下的

15、事件过程： private sub form_click() open "d:testsmtext1.txt" for input as#1 do while not _(16)_  eof(1) line input #1,aspect$ whole$=whole$+aspect$+chr$(13)+chr$(10) loop text1.text=whole$ close #1 open "d:testsmtext2.txt" for output as#1 print #1, _(17)_   text1.text close #1 end sub以上程序的功能是：把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。l 设有如下程序： option base 1 private sub command1_click() dim arr1 dim min as integer, i as integer arr1=arra