VisualBasic程序设计形成性考核册作业答案二

1、visual bsdic程序设计形成性考核册作业答案二一、选择题1按照变量的作用域可将变量划分为（ b ） 。a、公有、私有、系统 b、全局变量、模块级变量、过程变量c、动态、常数、静态 d、public 、private 、protected 2. 可获得字符的 ascii 码的函数是（c ） 。、val 、fix 、asc 、chr 3、要退出 do, .loop 循环，可使用的语句的（d ）语句。a、exit b、exit for c、end do d 、exit do 4. 把数值型转换为字符串型需要使用的函数是（b ） 。a、val b、str c、asc d、chr 5. 关于语句

2、行，下列说法正确的是（b ） 。一行只能写一条语句一条语句可以分多行书写每行的首字符必须大写长度不能超过255个字符表达式 6+10 mod 4*2+1 的值是（a ） 11 c d.3 7. 以下可以作为 isual basic 变量名的是（ b） sin b.co1 c.cos(x) d.x(-1) 8. 表达式 bs(-5)+len( “abcde ”)的值为（ c） 5abcde . 5abcde c.10 d.0 9. 在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释） ，要折行书写，可以在行末使用续行字符（a） ，表示下一行是当前行的继续一个空格加一个下划字符 （）一

3、个下划字符（）直接回车一个空格加一个字符（）10.sub 过程与 function 过程最根本的区别是（ d） sub 过程可以使用all语句或直接使用过程名调用，而function 过程不可以function 过程可以有参数， sub过程不可以两种过程参数的传递方式不同sub 过程的过程名不能返回值，而function过程能够通过过程名返回值11. 是小于 80 的非负数，用 vb表达式表示正确的是（ c）. a.0x80 b.0=x80 c.0=x and x80 d.0=x orx80 12. 在设计菜单时 , 如果要在菜单中加入一个菜单分隔条, 则菜单分隔条的标题必须设置为 (b )

4、a.加号(+) b.减号(-) c.星号(*) d.感叹号 (!) 13. 如果要在程序中显示一个弹出式菜单, 那么要调用visual basic中提供的方法是 (d). a.printb.movec.refreshd.popupmenu 14. 下列可以用来存储图像供其他对象使用的控件是(c ). a.toolbarb.statursbarc.imagelistd.treeview 15. 当单击工具拦上的按扭时 , 会触发的事件是 (a ). a.buttonclickb.changec.loadd.keypress 16. 要利用公用对话框控件来显示”打开文件”对话框 , 需要调用控件的

5、(b ) 方法. a.showprinterb.showopenc.showsaved.showcolor 17. 对于窗体级变量 , 下列说法中错误的是 (c ). a.所在窗体的各子程序都可以访问b.其他窗体的子程序不能访问c.所在窗体发子程序不能访问用private定义的窗体级变量d.一定要在所在窗体的通用区内定义18. 从一个字符串中的第3 个字符开始 , 获取 5 个字符, 应使用 (b) a.len 函数 b.mid函数 c.left函数 d.right函数19. 用下面的语句所定义的数组的元素的个数是(d ). dima(-3 to 5)as integer a.6 b.7 c.

6、8 d.9 20. 有如下程序段 : dim strl as string*5 strl= ”visual basic”当该段程序被执行完时 ,变量 strl的值为 (b ). a.”visual ” b.”visua” c.”v” d.”visual basic ”二、填空题1菜单一般有 _下拉式 _和_弹出式_两种基本类型。2通用对话框控件可显示的常用对话框有_打开_、_保存_、_颜色_、_字体_、_打印_。3组合框具有 _文本框_和_列表框 _两种控件的基本功能。4要使数组的默认下标从“1 开始，则应在窗体或标准模块代码的声明部分使用语句 _option base 1_ 。5调用 sub

7、过程时，使用_call_ 语句, 语句用于把程序控制传送到一个 visual basic的 sub过程。6若已建立了form1和 form2两个窗体，默认启动窗体为form1。通过_工程_菜单_属性_命令的 _通用_选项卡，可将启动窗体设置为form2 。在程序中若要显示form1窗体，则执行 _form1.show_语句。7列表框中项目的序号是从_0_开始的。8sub过程与 function 过程最根本的区别是 _sub过程名无返回值，function 过程名有返回值。9vb的代码存储在模块中。在vb中提供了三种类型的模块：_类模块_、_窗体模块 _和_标准模块 _。10使用 hide 方法

8、会隐藏被调用的窗体， 但是在调用 hide 方法之后不会把窗体 _卸载_，被调用的窗体中的属性等已处于_内存中 _。11将下列数学式子写成visualbasic表达式。答：2*cos(a)*sin(a)/(2*a) 答：sqr(s*(s-a)*(s-b)*(s-c) sin45 :sin(45*2*3.1415/360)_ 12. 将下列数学式子各条件写成visualbasic逻辑表达式。1x12: 1=x and x=c or (a-c)=0 and b=0) or (a=0 and b=0) 13设 a=2，b=3，c=4 ，d=5 。表达式 not a=c or4*b2 and ba+c

9、的值为 _false_。14在 visual basic语言中有三种形式的循环结构。其中，若循环的次数可以事先确定， 可使用 _for, next_ 循环；若要求先判断循环进行的条件，可使用 _do while , loop_ 循环或 _ while ,wend_ 循环。15以下语句的输出结果是_3_。a%=3.14159 print a% 三、阅读下列程序，写出程序运行结果。1、private sub form_click( ) static sum as integer for i= 1 to 100 sum=sum+i next i print sum end sub 程序运行结果为：

10、1+2+,.+99+100=5050 2、private sub form_click( ) a=10: b=15:c=20:d=25 print a;spc(5);b;spc(7);c print a;spc(8);b;space$(5);c print c;spc(3);”+”;spc(3);c+d end sub 10(5 个空格)15(7 个空格)20 10(8 个空格)15(5 个空格)20 20(三个空格 )+( 三个空格 )45 3、private sub form_click( ) for i% =1 to3 forj% = 1 to i print l trim(str(i%

11、)+ “*”+l trim(str(j%)+ “=”;i% * j%; next j% print next i% end sub 1*1= 1 2*1= 2 2*2= 4 3*1= 3 3*2= 6 3*3= 9 4、private sub command1_click( ) dim a,b as integer a=3.4 b=3.4 text1.text=a text2.text=b end sub text1 显示 3 、4 text2 显示 3 5、private sub form_click() for i =1 to 5 print tab( 11 i ) for j =1 to

12、 i * 2 1 print “*”; next next i end sub * * * * * 四、程序设计题1、购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在 100元以上者，按九五折优惠；（2）在 200 元以上者，按九折优惠； （3）300 元以上者，按八折优惠； （4）500 元以上者按七折优惠。在窗体上添加两个文本框和一个命令按钮，要求在 text1 中输入购物商品总金额，单击命令按钮，在text2 中输入优惠后的价格。程序运行结果如图解所示。if val(text1)=500 then text2=val(text1)*0.7 els

13、e if val(text1)=300 then text2=val(text1)*0.85 else if val(text1)=200 then text2=val(text1)*0.9 else if val(text1)=100 then text2=val(text1)*0.95 end if 2、输出 100200之间不能被 3 整除的的数， 要求用 do语句的一种形式来实现，程序运行结果如图5 所示。窗体的装入事件中加入如下代码：dim a as integer a=100 do while a =200 if (a mod 3) 0 then list1.additen str

14、(a) end if a=a+1 loop 3、编写程序，打印如下的乘积表：dim i ,j as integer print ”*”:space(5):for i=3 to 12 step 3 print str(i);space(5); next i print for i = 15 to18 print str(i);space(3); for j=3 to 12 step3 print str(i*j);space(4); next j print next j 4、设计一个计算程序。该程序用户界面如图7 所示。要求程序运行后，用户选中单击选按钮，则程序作10 和 2 的相应计算，并把

15、计算结果在文本框中显示出来。如用户选中加法单选按钮，则程序作10和 2 的相加，计算结果12 在文本框中显示出来。按结束，则退出。乘法单选按钮的单击事件中添加如下代码：text1=10*2 除法单选按钮中添加如下代码：text1=10/2 加法单选按钮中添加如下代码：text1=10+2 减法单选按钮中添加如下代码：text1=10-2 结束按钮中代码 : end 或 unload me 5、 编写输入一个 06数字， 显示汉字对照输出星期的function 过程。程序运行结果如图8 所示。文本框的 change事件中代码如下 : select case val(text1) case 0 l

16、abel1.caption=”星期天” +chr(13)+ ”(sunday) ”case 1 label1.caption=”星期一” +chr(13)+ ”(monday)”case2 label1.caption=”星期二” +chr(13)+ ”(tuesday) ”case 3 label1.caption=”星期三” +chr(13)+ ”(wednesday)”case 4 label1.caption=”星期四” +chr(13)+ ”(thursday)”case 5 label1.caption=”星期五” +chr(13)+ ”(firday)”case 6 label1

17、.caption=”星期六” +chr(13)+ ”(saturday)”end select 6、 编写一个程序，当鼠标移到 picturel控件时，鼠标指针改变形状；当在 picturel控件上单击鼠标右键时， 通过消息框显示“you pressed right button” ，并再次改变鼠标指针的形状。picture1_mouseup if button=2 then i=1 msgbox ” you pressed right button”end if end sub 7、列表框应用程序。要求从文本框中输入姓名，然后按“添加”按钮，把姓名添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图 9 所示。添加按钮代码： list1.add