VB程序设计教程 第四版 课后答案

vb课后习题答案

第一章习题参考答案

一、填空题

1、对象事件驱动

2、编译运行模式解释运行模式

二、简答题

1、简述VB的特点。

答：①可视化的程序设计方法

②面向对象的程序设计思想

③事件驱动的编程机制

④结构化的程序设计语言

⑤高度的可扩充性

⑥强大的数据库访问能力

⑦支持动态数据交换

⑧支持对象链接与嵌入

2、简述VB的安装过程。

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

②计算机将运行自动安装程序，若没有，执行VB目录下的Setup.exe；

③根据提示逐一回答问题，并点击“下一步”；

④点击“完成”；

2、如何启动VB。

答：三种方法：

①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击；

②双击桌面上的VB6.0快捷图标；

③在“开始”菜单的运行对话框中输入命令来启动VB；

第二章习题参考答案

一、选择题：

1-10、 DCACD BCBBC

11-20、BADCA BBAAB

21-29、AACBB CDDC

二、填空题

1．窗体、控件

2．属性值

3．属性窗口设置、代码窗口设置

4．事件过程

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

6． Form_Click

第三章习题参考答案

一、选择题

1、B

2、C

3、A

4、B

5、A

6、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 （3）5．25 （4）2

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．2 2 3 4．160 5．9

6．78 7．x<=5 (或x<6 或 x<7) 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 3<>0 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