VB程序设计知识点归纳

1、第一章1 从功能上讲，visual basic 6.0有3种版本，即：学习版、专业版、企业版2 与传统的程序设计语言相比，visual basic最突出的特点是事件驱动编程机制。3 visual basic 6.0集成环境的主窗口中含有标题栏、菜单栏、工具栏 4 用标准工具栏中的工具按钮不能执行的操作是打印源程序。5 关于visual basic方法的概念错误的是方法是对事件的响应6 在visual basic中，称对象的数据为属性7 visual basic应用程序可以用解释方式执行也可以用编译方式执行第二章1 计时器控件的interval属性用于设置timer事件发生的时间间隔，为了暂时关

2、闭计时器，应把该计时器的enabled属性设置为false ，如果要求设置定时器时间间隔为1秒钟，那么它的interval属性值应该等于10002 利用ctrl + g操作可以打开立即窗口 。3 假定窗体上有一个标签，名为lable1。为了使该标签透明并且没有边框，则正确的属性设置为 ：lable1.backstyle = 0 lable1.borderstyle = 04 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是代码窗口5 在visual basic中，窗体文件的扩展名为frm6 窗体的name属性指定窗体的名称，用来标识一个窗体7 改变控件在窗体中的上下位置，应修改该控件的属性

3、是top8 表示滚动条控件取值范围最大值的属性是max9 如果要改变窗体的标题，则需要设置的属性是caption10 在文本框（text）中，通过forecolor属性来设置字体颜色 11 若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置passwordchar属性值为*12 能够改变复选框中背景颜色的属性是backcolor13 图片框是不具有picture属性的对象14 窗体的name属性指定窗体的名称 ，用来标识一个窗体15 要想返回文本框中输入的内容则可利用text属性进行编程 第三章1 用于从字符串左边截取字符的函数是left( )，设a=visual

4、 basic，使b=basic的语句是b=left(a,8,5)。2 下列符号中哪个是vb程序中合法的变量名：aab7 b7ab cif da*bc （a） 数字开头， 关键字 ，*3 x是小于100的非负数，用vb表达式表达正确的是0=x and xb)or(b0)值为真。5/5.25 为1如果除数与被除数不是整数时，系统会自动对其进行取整运算，取整是有规律的：如果整数部分为偶数，大于0.5的就进位，小于等于0.5的就直接把小数去掉，5舍6入；如果整数部分为奇数，4舍5入。 例如： 52.5等价于52 52.6等价于53 52.4等价于52 5.43等价于53 51.5等价于526 函数st

5、ring(n，str)的功能是返回由n个字符组成的字符串7 设有如下声明： dim x as integer 如果sgn(x) 的值为-1，则x的值是小于0的数sgn(3-5)=-1 sgn(5-3)=18 integer类型的数据由2字节组成，long类型的数据由4字节组成。9 已知xy，ab，正确表示它们之间关系的式子是sgn(y-x)-sgn(a-b)=-2 10 在一个有逻辑运算算术运算及关系运算混合在一起的表达式(无括号)中，其运算顺序为以下合法的visual basic标识符是那些：aforloop b const c9abc d a#x a通常所说的变量名11 能正确表示条件整型

6、变量x值是大于等于-5并且小于等于5的逻辑表达式-5=x and xb eqv ca的值为真eqv 相同为true 相反为false 设s=中华人民共和国，表达式left（s,1）+right（s,1）+mid（s,3,2）的值为中国人民表达式2*42-2*6/3+32的值是29表达式52 mod 2522的值是1 13 vb算术运算符乘或除、整除、求余的优先级，从高到低依次为乘或除、整除、求余14 获得系统日期的函数是date（）15 数学式子sin30写成vb表达式是：sin(30*3.14/180) 16 在visual basic的立即窗口内输入以下语句x65?chr$(x) 在窗口中

7、显示的结果是 _a_17 计算下列表达式的值表达式93mod22的值是_1_。 表达式len(123程序设计abc)的值是_10_。 int（198.555*100+0.5）/100的值是_198.56_。 已知a$=12345678，则表达式val(left$(a$,4)+mid$(a$,4,2)的值为（123445）左取4位1234 中取4位开始2位18 数学关系3x10表示成正确的vb表达式为 3=xandx=3andx=0anda+cb+3ornotd的值是_ false _。第四章1 vb中可用msgbox语句产生一消息框。 2 vb提供了结构化程序设计的三种基本结构，三种基本结构是

8、：选择结构或循环结构或顺序结构3 inputbox函数返回值的类型为字符串。j下列语句正确的是 (c)a if ab then print a不等于b b if ab then printf a不等于bc if ab then print a不等于b d if ab print a不等于b4 在do untilloop循环中，判断循环表达式与结束循环的关系是先判断循环表达式，当表达式值为真时结束循环5 在while循环中，判断循环表达式与结束循环的关系是先判断循环表达式，当表达式值为真时执行循环体6 设a=6，则执行x=iif(a5,-1,0)后,x的值为1if a5 then a=-1els

9、e a=0endif7 要使下列for语句循环执行20次，循环变量的初值应当是多少? fork=_1_to-5step-2 参考答案 1：33 n=(终值-初值)/2+18 以下语句的输出结果是: print int(12345.6789*1000.5)/100 参考答案 123459 给出下列程序运行的结果（1） x=5 y=-6 if not x0 then x=y-3 else y=x+3 print x-y; y-x 结果 -3 3（2）j 1=4 j2=9 if j1j2 then print j2 else print j1 结果为9 （3）执行以下程序段后，变量c $ 的值为 （

10、quick basic programing ）a $ = visual basic programingb $ = quickc $ = b $ & ucase (mid $ (a $,7,6) & right $ (a $,11) （4）以下语句的输出结果是032,548.50。print format $ (32548.5, 000,000.00)(5) 在窗体（name属性为formal）上画两个文本框（其name属性分别为text1和text2）和一个命令按钮（name属性为command1），然后编写如下两个事件过程： private sub command1_click() a

11、= text.text + text2.text print a end sub private sub formm_load() text1.text = text2.text = end sub 程序运行后，在第一个文本框（text1）和第二个文本框（text2）中分别输入123和321，然后单击命令按钮，则输出结果为 123321。(6 )阅读下面的程序段： for i = 1 to 3 i=1 i=2 i=3 for j = 1 to i j=1to1 j=1to2 j=1 to 3 for k = j to 3 k=1to 3 k=1to3k=2to3 k=1to3 3 a=a+1

12、a=3 a=3+3+2 k=2to3 2 next k k=3to3 1 next j a=8+3+2+1 next i执行上面的三重循环后，a的值为_14 _。(7) 在窗体上画两个文本框（其name属性分别为text1和text2）和一个命令按钮（其name属性为command1），然后编写如下的事件过程：private sub command1_click()x = 0do while x b c后，窗体上显示的是false(9) 在窗体上画一个名称为commandl的命令按钮，然后编写如下程序：private sub command1_click() static x as integ

13、erstatic y as integer cls y=1y=y+5x=5+x print x,y end sub程序运行时，三次单击命令按钮commandl后，窗体上显示的结果为15 6 static无法释放x=5+5+5 y=1+5(10) 设有语句x=inputbox(输入数值，0，示例) 程序运行后，如果从键盘上输入数值10并按回车键，变量x的值是字符串10(11) 在窗体上有一个文本框控件，要求每一秒钟在文本框中显示一次当前名称为txttime：一个计时器控件，名称为timerl 的时间。程序为： private sub timer1_ ( ) txttime.text=time e

14、nd sub 在下划线上应填入的内容是timer （12）假定有以下程序段： for i=1 to 3 3-1/1+1=3 for j=5 to 1 step -1 1-5/-1+1 print i*j 3*5 next next 则语句print i*j的执行次数是15（13）以下程序段的输出结果为(4)x=1y=4do until y4x=x*yy=y+1loopprint x（14）在窗体上面画一个文本框 ，然后编写如下事件过程：private sub form_activate()text1.text= text1.setfocusfor i=1 to 10sum=sum+inextt

15、ext1. text=sumend sub 上述程序的运行结果是55 首相加末项*项数/2（15）在窗体上画一个名称为command1的命令按钮，然后编写如下事件过程：private sub command1_click()for n = 1 to 20if n mod 3 0 then m = m + n 3next nprint nend sub程序运行后，如果单击命令按钮，则窗体上显示的内容是(21)（16）设有如下程序：private sub command1_click()dim sum as double, x as doublesum = 0n = 0for i = 1 to 5

16、x = n / in = n + 1sum = sum + xnextend sub 该程序通过for循环计算一个表达式的值，这个表达式是(1/2+2/3+3/4+4/5)（17）下面程序运行后，窗体(form1)中输出的结果是(truetrue)private sub form_load()form1.autoredraw=true 设置form1让他显示结果x=3:y=5print x=3;y=5 x是否=3 （18）下面程序执行的结果是(579)private sub command1_click()a=123:b=456c=val(a)+val(b) 2边是数字则做加法print ce

17、nd sub （19）若i的初值为8，则下列循环语句的循环次数为（5）次 同样可以用公式：（终值-初值）/步长+1 do while i8 then y=x2+1： ifx2=9theny=x2-2： ifx2=3) 是否为素数，请补充完整。dim n as integern=inputbox(请输入一个整数(=3) ) k=int(sqr(n) ) i=2swit=0while i =k and swit=0if n mod i=0 then_1_else ：参考答案1.swit=0 2.swit=1_2_ end ifloopif swit=0 thenprint n; 是一个素数。els

18、eprint n; 不是一个素数。end if 2. 下面程序是用来打印九九乘法表的，请补充完整。dim i as integer, j as integer, str1$str1=for i=1 to 9for j=1 to 9if_1_thenstr1=str1 + str$(j) + + str$(i) + = + str$(val(i j) ) elsestr1=str1 & chr(13) _2_end ifnext jnext iprint str1 参考答案 1：ji3. 下面程序的功能是产生10个小于100(不含100) 的随机正整数，并统计其中5的倍数所占比例，但程序不完整，

19、请补充完整。 sub pr() randomize dim a(10) for j=1 to 10 a(i) =int( _1_) if _2_ then k=k + 1 print a(j) next j print print k / 10 end sub 参考答案 1：(99 * rnd)+ 1 2：a(j) mod 5 = 04. 以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入，输出结果。请补充完整下列程序段。 dim x, amax, amin as single x=inputbox(enter a score) amax=x ami

20、n=x do while_1_if x amax then amax=x end if if_2_then amin=x end if x=inputbox(enter a score) loop print max=; amax, min=; amin 参考答案 1：x0 2：xamin5. 在窗体上画一个命令按钮，然后编写如下事件过程：private sub command1_click() x=0do until x=-1a=inputbox(请输入第一个数字a的值) a=val(a) b=inputbox(请输入第二个数字b的值) b=val(b) x=inputbox(请输入第三个数

21、字x的值) x=val(x) a=a + b + xloopprint aend sub在程序运行后，单击命令按钮，在对话框中分别输入5，4，8，5，8，-1，输出结果为 _1_. 参考答案 1：126. 下列程序的功能是：当x100时，没有意义。请填空。private sub command1_click() dim x as singlex=inputbox(请输入x的值！) _1_case is =len(s) _1_if n mod 8 0 then st=st &mid(s,n,1) else st=st & mid(s,n,1)list1.additem st_2_end iflo

22、opend subprivate sub command2_click()dim s as string, st as string, i as integerfor i=0 to_3_st=list1.list(i)for j=1 to len(st)s=mid(st,j,1) & snext jfor j=len(s) to 1 step-1n=_4_ next jtext2=text2 & chr(n)s= _5_ next iend sub 参考答案 1： n=n+1 2： st= 3： list1.listcount 4：n+2(j-1) 5： n=010 下面程序的功能是，找出10

23、0以内所有可以表示成3个连续自然数之和的数。完善程序，实现以上功能。 (难) option explicitprivate sub command1_click()dim i as integer, n as integerdim js as integer, s as stringfor i =1 to 100if fun(i,n,js)thens=str(i) & = & ndo _1_n=n+1s=s & + & nlooplist1.additem send ifnext iend subprivate function fun(l as integer, m as integer,

24、js as integer) as booleandim i as integer, _2_ k=0 _3_ do while sum l and k 3k=k+1js=js+1sum=sum+jsloopif_4_henm=ifun=true e xit for exit ifnext iend function 参考答案 1：while n=js-1 2： sum=0 3：js=i-1 4：k=3 and sum=l一、判断题 （每题 1 分，共 10 分）（ ）1. 由visual basic语言编写的应用程序有解释和编译两种执行方式。（ ）2. 文本框控件的maxlength属性值为0

25、时，在文本框内不可以输入任何字符。（ ）3. 要使输入文本框的字符始终显示“#”，则应修改其passwordchar属性为“#”。 （ ）4. 在一个窗体中不能使用unload来卸载本窗体，即一个窗体只能由其它窗体卸载。（ ）5. vb的double类型数据，可以精确表示其数值范围内的所有实数。（ ）6. 在图片框中添加的控件，其top和left属性值是相对图片框而言的，与窗体无关。（ ）7. 命令按钮不但能响应单击事件，而且还能响应双击事件。（ ）8. 在自定义函数过程中，函数名必须被赋值。（ ）9. 文本框控件只能响应keypress、keydown、keyup、change事件。（ ）1

26、0. 如果一个菜单项的visible属性为false，则它的子菜单也会显示。二、单选题 （每题 2 分，共 20 分）（ ）11. 要改变控件的高度，应修改控件的_属性。 a、top b、 left c、 height d、width （ ）12. vb算术运算符乘或除、整除、求余的优先级，从高到低依次为_。a、乘或除、求余、整除 b、乘或除、整除、求余c、整除、求余、乘或除d、整除、乘或除、求余（ ）13. 下列哪个属性用来表示标签（label）的内容和窗体（form）的标题_。 a、caption b、text c、left d、name（ ）14. 判断整型变量m能否被n整除的vb表达式

27、为_。a、n mod m=0 b、m/n*n=m c、m mod n d、mn*n=m（ ）15. 选中复选框控件时，value属性的值为_。 a、true b、false c、0 d、1（ ）16. 在窗体form1的一个事件过程中，使用_来清除窗体上所绘制的图形的方法是不正确的。 a、form1.cls b、form.cls c、me.cls d、cls（ ）17. 设计动画时通常用时钟控件_属性来控制动画速度。 a、interval b、 timer c、 move d、 enabled（ ）18. 使用circle方法不可以绘制的图形是_。a、圆角矩形 b、椭圆 c、圆饼图 d、扇形（

28、 ）19. 运行时组合框控件comb1中所选择的表项，可以表示为_。 a、comb1.text b、comb1.listindex c、comb1.list d、comb1.listcount（ ）20. 若i的初值为9，则下列循环语句的循环次数为 _次。 do while ia(j) then m=a(i) (23) a(j)=m next jnext i for i=1 to 30 if (24) then (25) next iend sub（21） (22 ) (23 ) (24 ) (25 ) 2【程序说明】下列程序运行时，单击command1(0)后，图片每秒自动左移1毫米，单击c

29、ommand1(1)停止移动（当图片尾部移出窗体后，图片从窗体右端进入窗体）。界面设计如下图1所示。图1 程序2的界面设计【程序】 private sub command1_click(index as integer) if index=0 then (26) else timer1.enabled=false end sub private sub form_load() timer1.interval = (27) form1.scalemode = 6 (28) end sub private sub timer1_timer() picture1.left = (29) if pic

30、ture1.left + picture1.width = form1.scaleleft then _ (30) = form1.scaleleft + form1.scalewidth end sub（26） (27) (28 ) (29 ) (30 ) 四、程序阅读题（每小题5分，共 20 分）程序31、请写出单击窗体三次后，窗体上的显示结果。private sub form_click() static a as integer dim b as integer b = a + b + 2 a = a + b form1.print a=; a, b=; bend sub程序32、 请

31、写出单击窗体后，窗体上的显示结果。private sub form_click() for i% = 1 to 7 print spc (7- i) ; for j% = 1 to (2 * i%) - 1 : print m ; : next j% print next i%end sub程序33、写出程序运行时，单击option1(2)后，窗体上的显示结果。private sub form_load() option1(0).value=falseoption1(1).value=falseoption1(2).value=falseend subprivate sub option1_c

32、lick(index as integer) if option1(index).value=true then select case index case 0 check1(0).value=1: check1(1).value=0 case 1 check1(0).value=0: check1(1).value=1 case 2 check1(0).value=1: check1(1).value=1 end select if check1(0).value=1 then print 您好 if check1(1).value=1 then print 欢迎使用visual basi

33、c! end ifend sub程序34、设text1.text为 abcdef，运行时连续单击3次控件hscroll1右侧箭头后，分别写出组合框控件中的第1项、第2项及第3项的内容。private sub form_load() hscroll1.smallchange = 1: hscroll1.max = 5 hscroll1.min = 1: hscroll1.value = 1 combo1.clearend subprivate sub hscroll1_change() combo1.additem left(text1.text, hscroll1.value), 0end s

34、ub 五、程序设计题 （每题 10 分，共 30 分）35编制事件过程command1_click，执行该过程时输入n以及n个数，计算这n个数的和并在文本框控件text1中显示。（10分）36. 编制通用函数过程fsum ，计算single类型一维数组所有元素的和。（10分）37. 在窗体上建立命令按钮“command1”（显示）和“command2”（退出）。运行时，“command2”按钮始终显示“退出”；单击“显示”按钮后窗体上显示“欢迎使用visual basic！”同时标题改为“清除”，再单击“清除”按钮后，界面恢复窗体装入时的初态。（10分）vb练习题（一）参考答案试题一、判断题（

35、每小题1分，共10分）1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 试题二、单选题（每小题2分，共20分）11. c 12. b 13. a 14. d 15. d 16. b 17. a 18.a 19. c 20. b试题三、程序填空题（每空2分，共20分）21int(rnd*90)+10 22. i+1 to 30 23. a(i) = a(j) 24. a(i) mod 20 25. print a(i); 26. timer1.enabled=true 27. 1000 28. timer1.enabled = false 29. picture1.left-1 30

36、. picture1.left试题四、程序阅读题(每小题5分，共20分)31. a = 2 b = 2 a = 6 b = 4 a = 14 b = 8 32. m mmm mmmmm mmmmmmm mmmmmmmmm mmmmmmmmmmmmmmmmmmmmmmmm33.您好 欢迎使用visual basic!34. abcd abc ab 试题五、程序设计题（每小题各10分，共30分）35编制事件过程command1_click，执行该过程时输入n以及n个数，计算这n个数的和并在文本框控件text1中显示。private sub command1_click() dim s as single, n as integer, x as single n=inputbox(输入n) for i=1 to n x=inputbox(x=): s=s+x next i text1.text=send sub36. 编制通用函数过程fsum，计算single类型一维数组所有元素的和。 private function fsum(a() as single, n as single) as single dim i as integer for i = 1 to n fsum = fsum + a(i) next i end function37