成人《VB程序设计》标准化大作业(答案)1

1、作业 1 一、单项选择题1.visual basic是一种面向对象的可视化程序设计语言，采取了 a 的编程机制。 (a) 事件驱动 (b)按过程顺序执行 (c)从主程序开始执行 (d)按模块顺序执行2. 在 visual basic 中最基本的对象是 c ， 它是应用程序的基石，是其他控件的容器。(a) 文本框 (b)命令按钮 (c)窗体 (d)标签3. 多窗体程序是由多个窗体组成。在缺省情况下，vb在应用程序执行时，总是把 b 指定为启动窗体。(a) 不包含任何控件的窗体 (b)设计时的第一个窗体 (c) 包含控件最多的 (d)命名为 frm1 的窗体4. 有程序代码如下：text1. te

2、xt= visual basic 则： text1 ， text 和visual basic分别代表 c 。(a) 对象，值，属性 (b)对象，方法，属性 (c) 对象，属性，值 (d)属性，对象，值5.visual basic是一种面向对象的程序设计语言， a 不是面向对象系统所包含的三要素。 (a) 变量 (b)事件 (c) 属性 (d)方法6.visual basic 的一个应用程序至少包含一个 b 文件，该文件存储窗体上使用的所有控件对象和有关的、对象相应的过程和代码。 (a) 模块、方法、事件、程序 (b)窗体、属性、事件、程序 (c) 窗体、程序、属性、事件 (d)窗体、属性、事件

3、、模块7. 以下不属于visual basic的工作模式是 a 模式。 (a) 编译 (b)设计 (c) 运行 (d)中断8. 在 vb集成环境创建vb应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是 c 。 (a) 窗体布局窗口 (b)立即窗口 (c)代码窗口 (d)监视窗口9. 保存新建的工程时，默认的路径是 b 。 (a)my documents (b)vb98 c) (d)windows 10. 将调试通过的工程经“文件”菜单的“生成 .exe文件”编译成 .exe后， 将该可执行文件拿到其他机器上不能运行的主要原因是 a 。 (a) 运行的机器上无vb系统 (b

4、)缺少 .frm窗体文件 (c) 该可执行文件有病毒 (d)以上原因都不对11. 对于窗体，下面 d 属性在程序运行时其属性设置起作用。(a)maxbutton (b)borderstyle (c)name (d)left 12. 要使 print方法在 form_load 事件中起作用，要对窗体的 c 属性进行设置。 (a)backcolor (b)forecolor (c)autoredraw (d)caption 13. 若要使标签控件显示时不覆盖其背景内容，要对 d 属性进行设置。 (a)backcolor (b)borderstyle (c)forecolor (d)backstyl

5、e 14. 若要使命令按钮不可操作，要对 a 属性设置。 (a)enabled (b)visible (c)backcolor (d)caption 15. 文本框没有 d 属性。- 1 - (a)enabled (b)visible (c)backcolor (d)caption 16. 不论何控件，共同具有的是 b 属性。 (a)text (b)name (c)forecolor (d)caption 17. 要使 form1窗体的标题栏显示“6欢迎使用 vb ”，以下 d 语句是正确的。 (a)forml. caption= “6 欢迎使用 vb ” (b)forml. caption=

6、 6 欢迎使用vb (c)forml. caption= 6欢迎使用vb (d)forml. caption= 6欢迎使用vb 18. 要使某控件在运行时不可显示，应对 b 属性进行设置。 (a)enabled (b)visible (c)backcolor (d)caption 19. 要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列 b 属性设置就有效。 (a)maxbutton (b)borderstyle (c)width (d)minbutton 20. 当运行程序时，系统自动执行启动窗体的 a 事件过程。 (a)load (b)click (c)unload

7、(d)gotfocus 二、填空题 1vb 6. 0 提供了一种新的数据库访问技术，即 ado 技术，通过该技术，能方便地访问多种数据库中的数据。 2当进入 vb集成环境，发现没有显示“工具箱”窗口时，应选择视图 菜单的工具箱选项，使“工具箱”窗口显示。 3要使新建工程时，在模块的“通用声明”段中自动加入option explicit语句，应对工具菜单的选项的编辑器选项卡进行相应选项的选择。 4对象的属性是指对象的性质、特征。 5对象的方法是指对象的动作、行为。 6在刚建立工程时，使窗体上的所有控件具有相同的字体格式，应对 form1 的 font 属性进行设置。 7当对文本框的scrollb

8、ar的属性设置为2 ( 有垂直滚动条)，但没有垂直滚动条显示时，是没有把 multiline 属性设置为true 的原因。 8 在代码窗口对窗体的borderstyle、 maxbutton 属性进行了设置， 但运行后没有效果，原因是这些属性在运行时是无效的。 9当对命令按钮的picture属性装入 . bmp图形文件后，选项按钮上并没有显示所需的图形，原因是没有对 style 属性设置为1(graphical)。 10若已建立了form1、form2两个窗体，默认启动窗体为form1。通过工程菜单的工程属性的通用选项卡，可将启动窗体设置为form2。在程序中若要显示form1窗体，则执行 f

9、orm1.show 语句。 11在文本框中，通过 selstart 属性能获得当前插入点所在的位置。 12要对文本框中已有的内容进行编辑，按下键盘上的按键，就是不起作用，原因是设置 locked 的属性为true。 13在窗体上已建立多个控件如text1 、label1 、command1 ，若要使程序一运行焦点就- 2 - 定位在 command1 控件上，应把command1 控件的 tabindex 属性的值设置为 0 。三、完成窗体控件与程序设计第（1 ）题1.建立如图所示界面2.建立如下事件过程：（1）事件：在文本框中输入口令（输入的字符都显示为“ * ” ） ，单击“确认”按钮。（

10、2）响应：如果输入的是“1234”时，应显示“口令正确” ，否则显示“口令错误”。private sub command1_click() if text1.text = 1234 then label2.caption = 口令正确 else label2.caption = 口令错误 end if end sub 第（2 ）题1.建立如图所示界面2.建立如下事件过程：（1）事件： 在文本框中输入一个姓名，单击“确认”按钮。（2）响应：将输入的内容添加到右面的列表框中。private sub command1_click() list1.additem text1.text end sub

11、第（3 ）题1.建立如图所示界面2.建立如下事件过程：（1）事件：单击单选按钮。（2）响应：文本框中文字字体作相应改变。private sub option1_click() text1.fontname = 宋体 end sub private sub option2_click() text1.fontname = 隶书 end sub 第（4 ）题1.建立如图所示界面- 3 - 2.建立如下事件过程：（1）事件：单击相应复选框。（2）响应：文本框中文字字体效果作相应改变。private sub check1_click() if check1.value = 1 then text1.f

12、ontunderline = true else text1.fontunderline = false end if end sub private sub check2_click() if check2.value = 1 then text1.fontitalic = true else text1.fontitalic = false end if end sub 第（5 ）题1.建立如图所示界面2.建立如下事件过程：（1）事件：选择“对齐方式”框架内的单选按钮。（2）响应：上面的文本，按所选择的对齐方式对齐显示。private sub option1_click() label1.

13、alignment = 0 end sub private sub option2_click() label1.alignment = 1 end sub private sub option3_click() label1.alignment = 2 end sub 第（6 ）题1.建立如图所示界面2.建立如下事件过程：（1）事件：单击“最大化”按钮或单击“最小化”按钮。（2）响应：单击“最大化”按钮，窗体最大化；单击“最小化”按钮，使窗体最小化。- 4 - private sub command1_click() form1.windowstate = 2 end sub private

14、 sub command2_click() form1.windowstate = 1 end sub 第（7 ）题1.建立如图所示界面2.建立如下事件过程：（1）事件：单击“显示”按钮和“停止”按钮。（2）响应：单击“显示”按钮文本框显示当前时间，且时间每秒钟变化一次，单击“停止”按钮时间显示停止。private sub command1_click() timer1.enabled = true end sub private sub command2_click() timer1.enabled = false end sub private sub timer1_timer() tex

15、t1.text = time end sub第（8 ）题1.建立如图所示界面2.建立如下事件过程：（1）事件：单击“确定”按钮和“取消”按钮。（2）响应：单击“确定” 按钮，如果输入的是1234则显示左下图的对话框，如果输入的不是1234，则显示右下图的对话框。private sub command1_click() if text1.text = 1234 then msgbox ( 密码正确 ) else msgbox ( 密码错误 ) end if end sub - 5 - private sub command2_click() if text1.text = 1234 then t

16、ext1.text = else text1.text = end if end sub 第（9 ）题1.建立如图所示界面，设计一个计算器模型2.完成 5+11， 7+9 的运算。各控件功能： 按钮“5” 、“7” 、 “9” 、 “11”用于输入参与运算的数据，按钮“+”决定算法，按钮“ =”完成运算，文本框用于显示参与运算的数据和运算结果。dim a, b as integer private sub command1_click() text1.text = 5 a = 5 end sub private sub command2_click() text1.text = 7 a = 7

17、 end sub private sub command3_click() text1.text = 9 a = 9 end sub private sub command4_click() text1.text = 11 a = 11 end sub private sub command5_click() b = a end sub private sub command6_click() text1.text = a + b a = a + b end sub 第（10 ）题1.建立如图所示界面：2.输入姓名、 选定性别后， 单击 command1 按钮，姓名及性别在列表框中显示。pri

18、vate sub command1_click() - 6 - if option1.value = true then s = 男 list1.additem text1.text & & s else s = 女 list1.additem text1.text & & s end if end sub 第（11 ）题1.建立如图所示界面：2.建立如下事件过程：（ 1）鼠标单击option1 控件时， label1 中的文字居中对齐；（ 2）单击 option2 控件， label1 中的文字左对齐；单击 option3 控件， label1 中的文字右对齐

19、。private sub option1_click() label1.alignment = 2 end sub private sub option2_click() label1.alignment = 0 end sub private sub option3_click() label1.alignment = 1 end sub 第（12 ）题1.建立如图所示界面：2.并编写事件过程：（1）事件：按钮的单击事件。（2）响应：单击“显示/隐藏”按钮显示/隐藏标签控件，单击“退出程序”按钮退出应用程序。private sub command1_click() static a as i

20、nteger a = a + 1 if a mod 2 = 0 then label1.visible = true else label1.visible = false end if - 7 - end sub private sub command2_click() end end sub 第（13 ）题1.建立如图所示的应用程序用户界面2.建立如下事件过程输入圆的半径，利用选项按钮选择计算类型，计算圆的直径、周长或面积并利用标签输出。private sub command1_click() r = text1.text if option1.value = true then labe

21、l1.caption = 圆的直径是 & 2 * r elseif option2.value = true then label1.caption = 圆的周长是 & 2 * 3.14159 * r else label1.caption = 圆的面积是 & r 2 * 3.14159 end if end sub private sub command2_click() end end sub 第（14 ）题1.建立如图所示的应用程序用户界面2.建立如下事件过程：（1）事件：按下相应按钮，（2）响应： 标签中的文字将按选项按钮选中的字体样式显示。private su

22、b command1_click() label1.fontbold = true end sub private sub command2_click() label1.fontitalic = true end sub private sub command3_click() label1.fontunderline = true - 8 - end sub 第（15 ）题1.建立如图所示的应用程序用户界面2.建立事件过程：（1）事件：输入年、月、日后，单击“确定”按钮，（2）响应：在标签上显示这一天为所在星期的第几天。private sub command1_click() dim a

23、as date yy = text1.text mm = text2.text dd = text3.text a = mm & / & dd & / & yy tian = weekday(a) label4.caption = 该日期是所在星期的第 & tian & 天 rem 星期日是该星期的第1 天end sub 第（16 ）题1.建立如图所示的应用程序用户界面2.建立事件过程：（1）事件：选择“ exit”单选按钮， 单击“确定”按钮（2）响应：结束程序private sub command1_click() if option1.va

24、lue = true then end end sub 第（17 ）题1.建立如图所示的应用程序用户界面2.建立事件过程：（1）事件：单击复选框（2）响应：在标签上加下划线或使字体倾斜private sub check1_click() if check1.value = 1 then label1.fontunderline = true else label1.fontunderline = false end if end sub - 9 - private sub check2_click() if check2.value = 1 then label1.fontitalic = t

25、rue else label1.fontitalic = false end if end sub private sub command1_click() label1.visible = false end sub 第（18 ）题1.建立事件过程：（1）事件：窗体的单击事件。响应：使用inputbox 函数输入学生成绩，若成绩在 60 分以下，在窗体上打印“不及格”，否则打印“及格”。private sub command1_click() n = inputbox(请输入学生成绩) if n =1then f=sqr(x+1) f=x*x+3 （b）if x=1 then f=sqr(x

26、+1) if x=1 then f=sqr(x+1) _ else f=x*x+3 （d）if x1 then f=x*x+3 _ else f=sqr(x+1) 6、计算分段函数的值。2,321 ,210 ,10,0 xxxxy下面程序段中正确的是：（ d ）（a）if x0 then y=0 if x1 then y=1 if x=2 then y=3 （b）if x=2 then y=3 if x=1 then y=2 if x0 then y=1 if x0 then y=0 （c）if x0 then y=1 elseif x1 then y=2 else - 12 - y=3 en

27、dif （d）if x=2 then y=3 elseif x=1 then y=2 elseif x=0 then y=1 else y=0 endif 7、下面的程序段，显示的结果是（a ） 。dim x x=int(rnd)+5 select case x case 5 print “优秀 ”case 4 print “良好 ”case 3 print “通过 ”case else print “不通过 ”endselect （a）优秀（b）良好（c）通过（d）不通过8、下面if 语句统计满足性别为男、职称为副教授以上、年龄小于40 岁条件的人数，不正确的语句是（d ） 。（a）if s

28、ex= ”男” and age0 then n=n+1 （b）if sex= ”男” and age40 and instr(duty=”教授 ” or duty=”副教授 ” ) then n=n+1 （c）if sex= ”男” and age40 and right(duty,2)=”教授 ” then n=n+1 （d）if sex= ”男” and agey ,x,y) （b）if xy then max=x else max=y （c）max=x if y=x then max=y （d）if y=x then max=y max=x 10、下面程序运行后输出的结果是（7 ） 。x

29、=int(rnd)+3 - 13 - if x28 then y=x2+1 if x2=9 then y=x2-2 if x28 then y=x3 print y 二、程序改错- 注意：不可增加或删除程序行，也不可以更改程序结构- 1题目：以下程序段用于输出100-300 的所有素数private sub form_click() dim n as integer, k as integer, i as integer, swit as integer for n = 101 to 300 step 2 k = int(sqr(n) i = 2 *found* swit = 1 swit =

30、 0 *found* while swit = 0 while swit=0 and n 0 and y 0 and z 0 and x + y 0 and x + z y and y + z x then pd = true else pd = false end if end function 3题目：程序功能为打印下列图形：* * * * * private sub form_click() cls dim i as integer dim j as integer *found* for i = 1 to 7 for i = 1 to 5 *found* for j = 1 to 5

31、for j = 1 to i print *; *found* next i next j print next i end sub 4题目：程序功能：求1+2+3，直到其和超出3000 为止，并输入结果。private sub form_click() cls dim i as integer dim s as single i = 1 *found* s = 1 s = 0 do *found* i = i + 2 i = i + 1 s = s + i *found* loop s 3000 loop until s 3000 print 从 1 到:; i; 的和是 ; s end s

32、ub 5题目：输出40 以内能够被3整除的数，要求输出结果5 个数一行。private sub form_click() - 15 - cls dim x as integer dim i as integer *found* i = 1 i = 0 for x = 1 to 40 if (x / 3) = (x 3) then *found* print x print x; i = i + 1 end if if i mod 5 = 0 then print end if *found* next i next x end sub 6题目：求s=72+102+132+ 832 的值。pri

33、vate sub form_click() cls dim s as long dim i as integer *found* s = 1 s=0 *found* for i = 72 to 832 for i = 72 to 832 step 30 s = s + i *found* next 30 next i print s end sub 7题目：以下程序段用于打印如下图形式的九九乘法表：private sub form_click() dim i as integer, j as integer, k as integer print tab(30); 9*9 table prin

34、t: print print * ; for i = 1 to 9 *found* print tab(i * 6); i print tab(i * 6); i; next i print for j = 1 to 9 print j; ; *found* for k = 1 to 9 for k = 1 to 9*found* print tab(j * 6); j * k; ; print tab(k * 6); j * k; ; next k - 16 - print next j end sub 8题目：以下程序段用于计算5 的 n 次方private sub form_click(

35、) dim n as integer, k as integer, s as long *found* n = inputbox( input n ) n = val(inputbox( input n ) k = 1 *found* s = 0 s=1 do while k = 90 then print 优秀 *space* 【?】elseif x=75 print 良好 elseif x = 60 then *space* 【?】print “ 及格 ”*space* 【?】else print 不及格 end if end sub 5求一元二次方程ax2+bx+c=0 的根，其中a 不

36、等于 0。private sub form_click() dim a%, b%, c%, d! dim x1, x2 dim p, q, r a = inputbox( 请输入 a 的值 ) b = inputbox( 请输入 b 的值 ) c = inputbox( 请输入 c 的值 ) d = b * b - 4 * a * c p = -b / (2 * a) if ? then d0 if d 0 then r = sqr(d) / (2 * a) x1 = p + r x2 = p - r else x1 = p x2 = p ? end if print x1=; x1, x2=

37、; x2 ? else q = sqr(-d) / (2 * a) print x1=; p; +; q; i, x2=; p; -; q; i end if end sub - 20 - 6求 a,b,c 三个数的最大值private sub command1_click() a=val(text1.text) b= ? val(inputbox(“请输入b 的值”)c=val(text2.text) if ab and ac then maxdate=a elseif ? ba and bc maxdate=b else ? maxdate=c end if label1.caption=

38、maxdate end sub 作业 4编程1(事件 )单击窗体。(响应 )编写程序求101112+111213+1516 17 的结果，并将结果输出到窗体上。将结果存入变量m 中。dim m as long * program * private sub form_click() dim m as long dim i as integer for i = 10 to 15 m = m + i * (i + 1) * (i + 2) next i print m 批改教师批改日期作业成绩- 21 - end sub * end * 2(事件 )双击窗体。(响应 )求 s=1+12+123+1

39、 23 10，并将结果存到变量 s 中* program * private sub form_click() dim s as long dim i as integer, j as integer dim t as long for i = 1 to 10 t = 1 for j = 1 to i t = t * j next j s = s + t next i print s end sub * end * 3(事件 )双击窗体。（响应 )求 3+6+9+12+15+18+ +300 的和，并将结果输出到窗体上。将结果存入变量sum 中。* program * private sub form_dblclick() dim sum as integer dim i% for i = 3 to 300 step 3 sum = sum + i next i print sum end sub * end * 4 (事件 )双击窗体。 (响应 )求出 50 以内所有奇数的和。将结果存入变量sum 中。* program * private sub form_dblclick() dim sum as integer dim i% for i = 1 to 50 ste