2011年12月考试可视化程序设计(VB)第三次作业.doc

1、2011年 12 月考试可视化程序设计（vb ）第三次作业一、填空题（本大题共60 分，共 15 小题，每小题 4 分）1. 要使用状态栏控件设计状态栏，应首先在“部件”对话框中选择 _ ，然后从工具箱中选择 _ 控件。2. 对象的边框类型由 _ _ 属性设置。3. vb 的每个菜单项都有一个下拉菜单，含有若干个 _ 命令。用鼠标单击某个菜单项就执行相应的菜单命令。4. 菜单的热键指使用 _ 键和菜单项标题中的一个字符来打开菜单。建立热键的方法是在菜单标题的某个字符前加上一个 _ 符号，在菜单中这一字符会自动加上 _ ，表示该字符是一个热键字符。5. 运行时，要使工具栏控件toolbarl中的

2、第二个按钮的按钮菜单中的第三项无效（变成灰色），应使用语句： _ 。6. 根据文件内容区分，文件分为 _ 和 _ 。7. 当使用 format 函数与 print方法一起输出时，格式字符串中的”#”号表示一个数字位，它的个数决定 _ 的长度，若要显示的数据位数大于这个长度，则显示时数据按 _ 显示。8. 菜单在运行时的动态增减主要通过控件数组实现，首先将菜单项的 _ 属性设为 false ，然后在程序中用 _ 语句加载。9. 如果将工程的启动对象设置成 _ 子程序，则程序启动时可以不加载任何窗体。10. 要从字符串“ visual basic 6.0”中截取子字符串“ basic ”可使用的函

3、数是 _ 。11. 要在运行时给状态栏 statusbar1的第二个窗格添加一幅图片，该图片由文件 “c：windowswinupdico ”指定，应使用语句： _ 。12. 若 case 子句中的表达式表列具有形式：表达式1 to 表达式 2，则它的含义是：当测试表达式的值等于 _ 时，执行该 case 子句相应的程序块。13. 表示 x 是 5 的倍数或是 9 的倍数的逻辑表达式是 _ 。14. 程序运行过程中，在立即窗口显示变量f 的语句是 _ 。15. 设form1.scaleleft=-250，form1.scalertop=300 ，form1.scalewidth=350 ，fo

4、rm1.scaleheight=500 ，则 form1的右下角坐标为 _ 。二、程序阅读题（本大题共40 分，共 10 小题，每小题 4 分）1. 若窗体 form1上添加了通用对话框commondialog1 ，下面程序的功能是什么？dim filename as string dim str as string commondialog1.filter = 文本文件 (*.txt)|*.txt commondialog1.action = 1 filename = commondialog1.filename commondialog1.showcolor form1.forecolor

5、 = commondialog1.color open filename for input as #1 do while not eof(1) str = str + input(1, #1) loop form1.print str close 1 2. private sub form_click() num = 0 do num = num + 3 print num loop until num mod 4 = 0 end sub 程序运行后，单击窗体，输出结果是_ 3. 写出下面事件过程的执行结果。 private sub command1_click() dim f(10) as

6、 integer f(0)=1 f(1)=1 for i=2 to 10 f(i)=f(i - 2)+f(i - 1) next i for i=0 to 9 if i mod 4=0 then print print f(i) next i end sub 4. 下列标准模块和窗体模块的功能是给通信录文件“d:txrf1.dat”添加新记录，在横线上填上适当内容。标准模块：type txr num as integer name as string * 10 tel as string * 8 addr as string * 20 end type 窗体模块：private sub com

7、mand1_click() dim n%, zgr as txr open d:txrf1.dat for random as #1 len = len(zgr) zgr.num = inputbox(输入新职工编号： ) = inputbox(输入新职工姓名： ) zgr.tel = inputbox(输入新职工电话号码： ) zgr.addr = inputbox(输入新职工住址： ) n = (1) (2) close #1 end sub 5. 写出下面的程序运行后，连续单击4 次窗体，在 form1上的执行结果。private sub form_click（ ）st

8、atic a as integer dim b as integer b=a+b+1 a=a+b form1.print “a=”;a, “b=”;b end sub 6. 有如下事件过程，写出程序的功能（数学表达式）。private sub command1_click() t=0 m=1 sum =0 do t=t+m sum =sum+t m=m+2 loop while m=90 then grade=”a” elseif score=80 then grade=”b” elseif score=70 then grade=”c ” elseif score=60 then grade

9、=”d ” else grade=”e”end if print 该学生的分数等级为： ; grade; end sub 答案：一、填空题（ 60 分，共 15 题，每小题 4 分）1. 参考答案：microsoft windows common controls 6.0 、 statusbar 解题方案：评分标准：2 2. 参考答案：borderstyle 解题方案：评分标准：2 3. 参考答案：菜单解题方案：评分标准：2 4. 参考答案：alt 、&、下划线解题方案：评分标准：2 5. 参考答案：toolbarl buttons （2）buttonmenus（3）enabledfa

10、lse 解题方案：评分标准：2 6. 参考答案：程序文件、数据文件解题方案：评分标准：2 7. 参考答案：显示数据、原样解题方案：评分标准：2 8. 参考答案：visible，load 解题方案：评分标准：2 9. 参考答案：main 解题方案：评分标准：2 10. 参考答案：mid(“visual basic 6.0”,8,5)解题方案：评分标准：2 11. 参考答案：statusbar1 panels（2）picture loadpicture （”c ： windows winupdico ”）解题方案：评分标准：2 12. 参考答案：这个范围内的值解题方案：评分标准：2 13. 参考答

11、案：x mod 5=0 or x mod 9=0 解题方案：评分标准：2 14. 参考答案：debug.print f 解题方案：评分标准：2 15. 参考答案：100,800 解题方案：评分标准：2 二、程序阅读题（ 40 分，共 10 题，每小题 4 分）1. 参考答案：以选择的颜色作为窗体前景色，将一个文本文件显示在form1窗体上解题方案：使用通用对话框改颜色评分标准：6 2. 参考答案：3 6 9 12 解题方案：理解循环过程评分标准：6 3. 参考答案：1 1 2 3 5 8 13 21 34 55 解题方案：循环输出评分标准：6 4. 参考答案：(1) lof(1) / len(

12、zgr) + 1 (2) put #1, n, zgr 解题方案：标准模块和窗体模块应用评分标准：6 5. 参考答案：执行结果为： a=1 b=1 a=3 b=2 a=7 b=4 a=15 b=8 解题方案：静态变量的特性评分标准：6 6. 参考答案：程序的功能：程序用于计算数学表达等式为：1223242, 202=2870 解题方案：循环计算评分标准：6 7. 参考答案：移动鼠标并松开鼠标左键。解题方案：理解鼠标事件的动作原理评分标准：6 8. 参考答案：（1）dim a() as integer （2）redim a(n) 解题方案：根据要求填写与数组有关的代码评分标准：6 9. 参考答案：将数组 a 倒置解题方案：数组操作与数据交换评分标准：6 10. 参考答案：private sub command1_click() dim score!, grade$ score=inputbox(请输