VB部分课后习题答案.doc

第二章 习 题1. 选择题(1) 假定窗体的名称（name属性）为form1，则把窗体的标题设置为“vb test”的语句为（b）。a. form1=vb test b. caption=vb testc. form1.text=vb test d. form1.name=vb test (2) 下列不能打开代码窗口的操作是（d）。a双击窗体上的某个控件 b双击窗体 c按f7键 d单击窗体或控件(3) 为了保存一个visual basic应用程序，应当（d）。a只保存窗体文件（.frm）b分别保存工程文件和标准模块文件（.bas）c只保存工程文件（.vbp）d分别保存工程文件、窗体文件和标准模块文件(4) 为了装入一个visual basic应用程序，应当（c）。a只装入窗体文件（.frm）b分别装入工程文件和标准模块文件（.bas）c只装入工程文件（.vbp）d分别装入工程文件、窗体文件和标准模块文件(5) 不为了使窗体的大小可以改变，必须把它的borderstyle属性设置为（a）。a1b2c3d42. 填空题(1) 在用visual basic开发应用程序时，通常首先需要新建工程、其次还要经过 、 、 、 和 5步。(2) 控件和窗体的name属性只能通过 属性窗口 设置，不能在 运行 期间设置。(3) 代码窗口分为左右两栏，左边一栏称为 对象 ，右边一栏称为 事件 。(4) 为了在输入程序时能自动进行语法检查，必须执行 菜单中的 命令，打开 对话框，然后选择“编辑器”选项卡中的 选项。(5) 在保存vb应用程序中，窗体文件和工程文件的扩展名分别为 .frm 和 .vbp 。 (6) 为了把一个visual basic应用程序装入内存，只要装入 工程 文件即可。(7) visual basic应用程序通常由3类模块组成，即 、 和 。(8) 在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：private sub command1_click( ) text1.text=“vb programming” text2.text=text1.text text1.text=“abcd” end sub程序运行后，单击命令按钮，两个文本框中显示的内容分别为 abcd 和 vb programming 。 第三章 习 题1选择题(1) 决定窗体标题条显示内容的属性是（ c ）。atextbnameccaptiondbackstyle(2) 当窗体最小化时缩小为一个图标，设置这个图标的属性是（b ）。amouseiconbiconcpicture dmousepointer(3) 为了取消窗体的最大化功能，需要把它的一个属性设置为false，这个属性是（ d ）。acontrolboxbminbuttoncenableddmaxbutton(4) 决定窗体有无控制菜单的属性是（ a ）。acontrolboxbminbuttoncenableddmaxbutton(5) 为了使文本框同时具有水平和垂直滚动条，应先把multiline 属性设置为true，然后再把scrollbars属性设置为（ d ）。a0b1c2d3(6) 使文本框获得焦点的方法是（c ）。achangebgotfocuscsetfocusdlostfocus(7) 为了使标签覆盖背景，应把backstyle属性设置为（ b ）。a0b1ctruedfalse(8) 为了使标签中的内容居中显示，应把alignment属性设置为（ c ）。a0b1c2d3 (9) 下列可以把当前目录下的图形文件pic1.jpg装入图片框picture1中的语句为（c ）。apicture = pic1.jpgcpicture1.picture = loadpicture(pic1.jpg)bpicture.handle = pic1.jpgdpicture=loadpicture (pic1.jpg) (10) 决定标签内显示内容的属性是（ d ）。atextbnamecalignmentdcaption(11) 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为true，这个属性是（ b ）。avaluebdefaultccanceldenabled(12) 为了在按下esc键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为true，这个属性是（ c ）。avaluebdefaultccanceldenabled(13) 假定在图片框picture1中装入了一个图形，为了清除该图形（注意，清除图标，而不是删除图片框），应采用的正确方法是（b ）。a选择图片框，然后按del键b执行语句picture1.picture=loadpicture()c执行语句picture1.picture= d选择图片框，在属性窗口中选择picture属性条，然后按回车键(14) 在窗体（name属性为form1）上画两个文本框（name属性分别为text1和text2）和一个命令按钮（name属性为command1），然后编写如下两个事件过程： private sub command1_click() dim a as string a = text1.text + text2.text print aend subprivate sub form_load() text1.text = text2.text =end sub程序运行后，在第一个文本框（text1）和第二个文本框（text2）中分别输入123和321，然后单击命令按钮，则输出结果为（ c ）。a444b321123c123321 d1322312. 填空题(1) 为了使标签能自动调整大小以显示全部文本内容，应把标签的_autosize_属性设置为true。(2) 要想在文本框中显示垂直滚动条，必须把_multiline_属性设置为2，同时还应把 属性scrollbars设置为_2_。(3) 假定有一个文本框，其名称为text1，为了使该文本框具有焦点，应执行的语句是_text1.setfocus_。(4) 为了使一个标签透明且没有边框，必须把它的borderstyle属性设置为_0_，并把backstyle属性设置为_0_。(5) 假定有一个名为pic2.gif的图形文件，要在运行期间把该文件装入一个图片框，应执行的语句为_picture1.picture=loadpicture(“pic2.gif”)_。(6) 为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须把该图像框的stretch属性设置为_false_。(7) 在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： private sub form_click() text1.text = vb程序设计end subprivate sub text1_change() picture1.print vb programmingend sub程序运行后，单击窗体，则在文本框中显示的内容是_ vb程序设计_，而在图片框中显示的内容是_ vb programming _。第四章 习 题1选择题(1)数值型数据包括（b ）两种。 a. 整型和长整型 c. 单精度型和双精度型b. 整型和浮点型 d. 整型、实型和货币型 (2) 下列可作为visual basic的变量名的是（a ）。a. file_name b. a(a+b) c. a%d d. print(3) 数学关系3x10表示成正确的visual basic表达式（b ）。 a. 3=x=3 or x10b. 3=x and x10 d. 3=x and b and cc 的值是（a ）。a.true b.false c.-1 d. 1(8) 下列表达式中值为-6的是（d ）。a.fix(5.678) c.int(5.6780.5)b.fix(5.678+0.5) d.int(5.678)(9) 在vb基本数据类型中，变体类型（variant）可以表示任何类型的变量，如果有定义dim a，则以下变量赋值中正确的是（d ）。a.a$ok b.a$= ok c.a=09/01/2005 d.a=ok(10) 以下关于变量的类型说明符，正确使用的是（c ）。a.dim a:a%90000 c.dim a:aokb.dim a:a& =true d.dim a:a20002下列数据哪些是变量？哪些是常量？是什么类型的常量？（1）name （6）name（2）false （7）y（3）12/21/2000 （8）xh（4）120 （9）n（5）#12/21/2000#（10）12.345（1）name （7）y （8）xh （9）n 是变量其余的市常量第五章 习 题1判断题(1) 在vb中所有变量在使用前可以不声明。(2) 如果有多重do循环嵌套，位于最里层循环体语句中的exit do语句可以退出所有的循环。(3) 有if则必有与之对应的end if。(4) doloop until语句实现循环时，只要条件是假，循环将一直进行下去。(5) 在情况语句中，各分支（即case表达式）的先后顺序无关。2简答题(1) 试述vb中几种循环结构的区别。(2) 试述msgbox语句和msgbox函数的语法格式及其各参数的作用？(3) select case语句中的表达式列表有几种形式？请写出具体的形式名称，并举例。(4) 现有一个用for.next语句实现的循环程序，循环变量是i，若在循环体内使用语句i=i+1，循环会发生什么问题？试举例说明。(5) 试述vb中几种循环结构的区别。(6) doloop循环语句有几种使用格式？请写出具体的格式形式。(7) 实现循环结构的常用语句主要有几种？请写出2种具体的格式使用形式。(8) 试述inputbox函数的语法格式及其各参数的作用？3选择题(1) visual basic程序中注释所使用的字符是(a)ab: c. _d (2) 在 select case x 结构中，描述判断条件 3 x 7 的测试项应该写成() case 3 x 7 case is 7 ， is 3 case 3 x ， x 7 case 3 to 7(3) 执行下面的语句后，所产生的信息框的标题是()a=msgbox(aaaa,bbbb,)bbbbaaaa空出错，不能产生信息框(4) inputbox函数返回值的类型为(b)数值变体字符串数值或字符串（视输入的数据而定）(5) 设a=6，则执行x=iif(a5,-1,0)后，x的值为()5 6 0 1(6) 对于inputbox函数，下列说法不正确的是()每执行一次inputbox函数只能输入一个值inputbox函数值可以不用赋给变量inputbox函数的提示信息不能为空inputbox函数输入的数可以是字符型(7) 在msgbox函数中，必须的参数是()prompt buttons title title context(9) 假定x的值为5，则下列能在窗体上输出”abcde”的select case语句是select case x cselect case xcase 10 to 1 case is15,is5,1,3 to 10 case 1,3,is5print ”abcde” print ”abcde”end select end select(10) 执行下面的程序段后，x的值为()x=5for i=1 to 20 step 2x=x+i5next i21 22 23 24(11) 运行下面的程序：sub subp(b() as integer)for i =1 to 4b(i)=2*inext iend subprivate sub command1_click()dim a(1 to 4)as integera(1)=5a(2)=6a(3)=7a(4)=8subp a ()for i =1 to 4print a(i)next iend sub单击命令按钮，输出结果为( )2 4 6 8 5 6 7 8 10 11 12 13 出错(12) 当vb执行下面语句以后，a的值为： a=1if a0 then a=a+1if a1 then a=0 0 1 2 3(13) 执行以下语句后，a的值为_。dim a as integera=1do until a=100a=a+2loop100 99 溢出 1014填空题(1) 在窗体上画一个名为command1的命令按钮，然后编写如下事件过程：private sub command1_click()n=5f=1s=0for i=1 to nf =_f * i_s=s + 1/fnext iprint send sub该事件的功能是计算的值，请填空。(2) 执行下面的程序段后，s的值为_9_。s = 5for i = 2.6 to 4.9 step 0.6s = s+1next i(3) 完成下面的程序。程序的功能是计算的值private sub form_click()dim f as single, i as integer, flag as integerf = 0_ flag =-1_for i = 2 to 19f = f + flag / (i * (i + 1) _ flag = -flag _next iprint ”f=”; fend sub(4) 在窗体上画一个名称为command1的命令按钮，然后编写如下程序：private sub command1_click ()static x as integerstatic y as integerclsy=1y=y+5x=5+xprint ”x=”;x;”,”;”y=”;yend sub程序运行时，三次单击命令按钮command1后，窗体上分别显示的结果为：_x=5,y=6_、_x=10,y=6_、_x=15,y=6_。(5) 以下语句s$=”china”s$=”beijing”print s$输出结果是_ beijing _。习 题1选择题(1) 用下面的语句所定义的数组的元素个数是( )dim a(-3 to 5) as integera. 6b. 7c. 8d. 9(2) 以下关于控件的叙述中，错误的是(b )a. visual basic允许设计和使用用户自己设计的控件b. 主窗体中工具条中的工具，不是工具箱中包含的常用控件c. 若使用系统提供的ocx控件，应选择有关的控件添加到工具箱中d. 使用系统提供的ocx控件进行程序设计，其编程的方法与工具箱中常用控件的编程有所不同(3) 下列程序段的执行结果为( )x=2.4 : z=3 : k=5print ”a(” ; x+z*k ; ”)”a. a(17)b. a(17.4)c. a(18)d. a(2.4+3*5)(4) 执行下面的程序段后，x的值为( )x=5for i=1 to 20 step 2x=x+i5next i a. 21b. 22c. 23d. 24(5) 当vb执行下面语句以后，a的值为( )a=1if a0 then a=a+1if a1 then a=0 a. 0b. 1c. 2d. 3(6) 当执行以下过程时，在窗体上将显示( )private sub command1_click( )print ”vb”；print ”hello!”；print ”vb”end suba. vbhello!vbc. vb hello！ vbb. vbd. vbhello！vb hello！ vb(7) 当vb执行下面语句后，输出的结果是( )101private sub form_click()score = int(rnd*10) + 30select case scorecase is 10a$ = ”f”case 10 to 19a$ = ”d”case 20 to 29a$ = ”c”case 30 to 39a$ = ”b”case elsea$ = ”a”end selectprint a$end suba. ab. bc. cd. d2填空题(1) 数组是_一组相同类型数据_的集合。(2) 为了用array函数建立数组，所定义的数组变量必须是_仅由括号括起的动态数组_类型。(3) 静态数组是指_元素个数_固定不变的数组。(4) 以下语句a%=3.14156print a%其输出结果是_3_。(5) 在窗体上画一个名为command1的命令按钮，然后编写如下事件过程：private sub command1_click()a$=”妈妈骑马,马慢,妈妈骂马”l=len(a$)s=0for i=1 to l-1b$=mid(a$ , i , 1)if b$=”妈” thens=s+1end ifnext iprint send sub程序运行后，单击命令按钮，输出结果是_4_。(6) 执行下面的程序段后，s的值为_9_。s = 5for i = 2.6 to 4.9 step 0.6s = s+1next i(7) 执行下面的程序段后，b的值为_300_。a=300b=20a=a+bb=a-b(8) 如下程序，执行结束后i的值是_5_。for i=1 to 4 step 2j=j+1next i(9) 完成下面的程序。程序的功能是计算的值private sub form_click()dim f as single, i as integer, flag as integerf = 1flag=-1for i = 2 to 19f = f + flag / (i * (i + 1) flag = -flagnext iprint ”f=”; fend sub3判断题(1) 数组名可以作实参，数组元素不可以做实参。(2) vb声明数组时既可指定上界也可指定下界。(3) 数组中所有元素的数据类型一定相同。(4) 数组的下界不一定是大于0的整数。(5) 对控件数组编写的事件过程被控件数组中的所有控件共享，在过程中通过index参数来区分不同的控件。第7章 习 题编程题(1) 编写一个求3个数中最大值max和最小值min的过程，然后用这个过程分别求3个数、5个数、7个数中的最大值和最小值。(2) 编写程序，求s=a!+b!+c!，阶乘的计算分别用sub过程和function过程两种方法来实现。(3) 编写一个过程，以整型数作为形参，当该参数为奇数时输出false，而当该参数为偶数时输出true。(4) 斐波纳契（fibonacci）数列的第一项是0，第二项是1，以后各项都是前两项的和，试用递归算法和非递归算法各编写一个程序，求斐波纳契数列第n项的值。(5) 编写八进制数和十进制数相互转换的过程：1）过程readoctal，读入八进制数，然后转换为等值的十进制数。2）过程writeoctal，将十进制正整数以等值的八进制形式输出。参考答案：（1）sub maxmin(x1%, x2%, x3%, max%, min%) max = x1 min = x1 if max x2 then min = x2 end if if max x3 then min = x3 end ifend subprivate sub form_click() dim x%(1 to 3), i%, max%, min% for i = 1 to 3 x(i) = val(inputbox(第 & i & 变量赋值) next i maxmin x(1), x(2), x(3), max, min print max, minend sub（2）用过程：方法一：sub qiujiecheng(n%, jc&) dim i% jc = 1 for i = 1 to n jc = jc * i next i end subprivate sub form_click() dim a%, b%, c%, ajiecheng&, bjiecheng&, cjiecheng& a = val(inputbox(input a:) b = val(inputbox(input b:) c = val(inputbox(input c:) qiujiecheng a, ajiecheng qiujiecheng b, bjiecheng qiujiecheng c, cjiecheng s = ajiecheng + bjiecheng + cjiecheng msgbox a!+b!+c!= & send sub方法二dim s&sub qiujiecheng(n%) dim i%, jc& jc = 1 for i = 1 to n jc = jc * i next i s = s + jcend subprivate sub form_click() dim a%, b%, c% a = val(inputbox(input a:) b = val(inputbox(input b:) c = val(inputbox(input c:) qiujiecheng a qiujiecheng b qiujiecheng c msgbox a!+b!+c!= & send sub用函数：function qiujiecheng(n%) as long dim i%, jc& jc = 1 for i = 1 to n jc = jc * i next i qiujiecheng = jcend functionprivate sub form_click() dim a%, b%, c% a = val(inputbox(input a:) b = val(inputbox(input b:) c = val(inputbox(input c:) s = qiujiecheng(a) + qiujiecheng(b) + qiujiecheng(c) msgbox a!+b!+c!= & send sub（3）用过程：private sub form_click() dim s as integer s = inputbox(输入一个整数:) call isqishu(s)end subsub isqishu(cs as integer) dim jieguo as boolean if cs mod 2 = 1 then jieguo = true else jieguo = false end if msgbox jieguo end sub用函数：private sub form_click() dim s as integer s = inputbox(输入一个整数:) msgbox s & 是一个奇数: & isqishu(s)end subfunction isqishu(cs as integer) as boolean dim jieguo as boolean if cs mod 2 = 1 then jieguo = true else jieguo = false end if isqishu = jieguoend functionacknowledgements my deepest gratitude goes first and foremost to professor aaa , my supervisor, for her constant encouragement and guidance. she has walked me through all the stages of the writing of this thesis. without her consistent and illuminating instruction, this thesis could not havereached its present form. second, i would like to express my heartfelt gratitude to professor aaa, who led me into the world of translation. i am also greatly indebted to the professors and teachers at the department of english: professor dddd, professor ssss, who have instructed and helped me a lot in the past two years. last my thanks would go to my beloved family for their loving considerations and great confidence in