vb程序设计教程第四版课后答案.doc

vb 程序设计教程第四版课后答案 【篇一：

visual_basic 程序设计教程 (第 4 版)_课后答案】

>第一章 习题参考答案 一、 填空题 1、对象事件驱动

2、编译运行模式 解释运行模式 二、 简答题

1、 简述 vb 的特点。

答：①可视化的程序设计方法 ②面向对象的程序设计思想 ③事件驱动的编程机制 ④结构化的程序设计语言 ⑤高度的可扩充性

⑥强大的数据库访问能力 ⑦支持动态数据交换 ⑧支持对象链接与嵌入 2、简述 vb 的安装过程。

答：①向光驱中放入 vb 安装光盘；

②计算机将运行自动安装程序，若没有，执行 vb 目录下的 setup.exe ； ③根据提示逐一回答问题，并点击 “下一步 ”； ④点击 “完成 ”； 2、 如何启动 vb 。 答：三种方法： ①单击 “开始 ”按钮，选择 “程序 ”菜单下的 “microsoft visual basic 6.0 中文版 ”菜单项并单击；

②双击桌面上的 vb6.0 快捷图标； ③在 “开始 ”菜单的运行对话框中输入命令来启动 vb ； 第二章习题参考答案 一、选择题： 1-10 、 dcacdbcbbc 11-20 、badcabbaab 21-29 、aacbbcddc 二、填空题 1． 窗体、控件

2． 属性值

3． 属性窗口设置、代码窗口设置 4． 事件过程

5． 对象名、下划线、事件名 6． form_click

第三章习题参考答案 一、选择题

1、b 2、c 3 、a4、b5、a6、c 7、c 二、填空题 1、 11

字符型、字节型、整型、长整型、单精度型、双精度型、货币型、 逻辑型、日期型、对象型、变体型。 string 、byte 、integer 、long 、 single 、double 、currency 、boolean 、date 、object 、variant 2、 双引号(英文)、# 3、 ascii 、1、2

4、 public 、通用、 dim 、static 、private 、static 5、 、+、+

6、 now() 、time 、日期型 三、解答题 1、(3) 2 、(1 )

3、（1）常量（关键字） （2）字符型常量（ 3）逻辑型常量（ 4） 变量 （5）字符串常量 （6）变量

（7）字符串常量（ 8）变量（ 9）日期型常量 （题目应是 #11/16/1999# ）

（10）数值型常量（单精度） 4、31

5、（1）(1+y/x)/(1-y/x) （2）x^3+3*x*y/(2-y) （3）sqr(abs(a*b-c^3)) （4）sqr(s*(s-a)*(s-b)*(s-c)) 6、

7、（1）13 （2）17

（3）#1999-11-12# （4）zxy123abc 8、（1）19（2）8.16666666666667

（3）5．25（4）2

9、（1）-4 （2）2 . 82842712474619 （3）-3（4）49 （5）”hello （”6）he

7）16 （8） “-459.65 ”（9）5 10、（4） 11、（2） 12、（4）

第四章习题参考答案 一、选择题： 1—7: daabbcd 二、填空题 1． 500.00%

2． 将字号扩大为原来的二倍 3． b

三、编程题（略）

1．文本框、标签和命令按钮的名称分别为 text1 、label1 、 command1 private sub command1_click()

label1.caption=text1.text command1.caption=text1.text end sub

2．单价、数量、折扣和应付款对应的文本框的名称分别为： text1 text2 、text3 和 text4 ，计算和清除命令按钮的名称分别为： command1 和 command2 。 private sub command1_click() text4=val(text1)*val(text2)*val(text3) end sub

private sub command2_click()

text1= ”” : text2= ””: text3= ””: text4= ”” end sub

3．文本框、 “转大写 ”命令按钮和 “转大写 ”命令按钮的名称分别为 text1 、command1 和 command2 private sub command1_click() text1=ucase(text1) end sub

private sub command2_click() text1=lcase(text1) end sub

第五章 习题参考答案 一、选择题： 1—11: caabbabbbcc

、 二、填空题

1．(3) 2 ． 1 2 3 3 ．223 4 ．160 5 ．9 6．78 7 ．x=5 ( 或 x6 或 x7) 8 ．b 9．isum isum+j 1250 三、编程题 1．private sub form_click() dim i%,s% s=0

for i = 101 to 200 step 2 if i mod 30 then

print i s=s+i end if next i print s end sub

2．private sub form_click() dim n%,s s=1:n=0 while s=400000 n=n+1 s=s*n wend

if s400000 then n=n-1 print n end sub

3．private sub form_click() dim imin%,imax%,i%,r% imin=100:imax=20 for i=1 to 20 r=int(rnd*51+50) if rimax then imax=r if rimin then imin=r next i

print imax,imin end sub

第六章 习题参考答案 一、选择题： 1—13: abaaccbadadbb

二、填空题

1．intervallabel1.caption=time 2．list1.listcountinterval 三、编程题

1. private sub command1_click()

if option1.value = true and option3.value = true then text1.fontname = 宋体 text1.fontsize = 8 end if

if option1.value = true and option4.value = true then text1.fontname = 体

text1.fontsize = 12 end if

if option2.value = true and option3.value = true then text1.fontname = 体

text1.fontsize = 8 end if

if option2.value = true and option4.value = true then text1.fontname = 体

text1.fontsize = 12 end if end sub hscroll1.max 2.

9.timer 的 enable 为 falseinterval 为 100 private sub command1_click() timer1.enabled = true end sub

private sub command2_click() timer1.enabled = false end sub

private sub timer1_timer() 汽车.left = 汽车.left + 100 end sub

第七章 习题参考答案 一、选择题： 1—12: dcadd bbdac cb 二、填空题

1．42 2 ．index 3 ．41

宋

黑

黑