2024年1月13日发(作者：)

本文格式为Word版，下载可任意编辑

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

vb课后习题答案

第一章习题参考答案

一、填空题

1、对象事件驱动

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

二、简答题

1、简述VB的特点。

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

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

③事件驱动的编程机制

④结构化的程序设计语言

⑤高度的可扩充性

⑥强大的数据库访问能力

⑦支持动态数据交换

⑧支持对象链接与嵌入

2、简述VB的安装过程。

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

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

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

④点击“完成”；

2、如何启动VB。

答：三种方法：

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

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

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

第二章习题参考答案

第 1 页 共 7 页

本文格式为Word版，下载可任意编辑

一、选择题：

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

第 2 页 共 7 页

本文格式为Word版，下载可任意编辑

5、 &、+、+ （3）#1999-11-12# （4）zxy123ABC （3）5．25 （4）2

6、 Now()、Time、日期型 7）16 （8）“-459.65” （9）5

三、解答题 10、（4）

1、(3) 11 2、(1 ) 12 3、（1）常量（关键字）（2）字符型常量（3）逻辑型常量（4）变量（5）字符串常量

（6）变量

（7）字符串常量（8）变量（9）日期型常量（题目应是#11/16/1999#）（10）数值型常 1量（单精度）

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

7、（1）13 （2）17 1第 3 页 共 7 页、（2）

、（4）

第四章习题参考答案

一、选择题：

—7: DAABBCD

二、填空题

． 500.00%

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

． B

三、编程题（略）

．文本框、标签和命令按钮的名称分别为text1、label1、command1

本文格式为Word版，下载可任意编辑

Private Sub Command1_Click() Private Sub Command1_Click()

n= Text1=Ucase(text1)

n= End Sub

End Sub Private Sub Command2_Click()

2．单价、数量、折扣和应付款对应的文本框的名称分别为：text1、text2、text3和text4， Text1=Lcase(text1)

计算和清除命令按钮的名称分别为：command1和command2。 End Sub

Private Sub Command1_Click()

Text4=val(text1)*val(text2)*val(text3)

End Sub 1 Private Sub Command2_Click()

Text1=”” : Text2=””: Text3=””: Text4=”” 1 End Sub 6 3．文本框、“转大写”命令按钮和“转大写”命令按钮的名称分别为 Print i

text1、command1和command2 S=s+i

第 4 页 共 7 页第五章习题参考答案

一、选择题：

—11: CAABBABBBCC

二、填空题

．(3) 2． 1 2 3 3．2 2 3 4．160 5．9

．78 7．x0 then

本文格式为Word版，下载可任意编辑

End If Function GDBH(ByVal x%) As String

Next i Dim i%

Print s For i = 3 To x - 3 Step 2

End Sub

2．Private Sub Form_Click() Dim n%,s&

S=1:n=0

While simax Then imax=R

If R= "A" And S Y Then

F1=X

Else

F1=Y

End If

End Function

7．

If isp(i) And isp(x - i) Then GDBH = i & "+" & (x - i) & "=" & x Exit Function

End If

Next

End Function

Function isp(y%) As Boolean

i = 2: k = Int(y / 2)

Do While i k Then

isp = True

Else

isp = False

End If

第 5 页 共 7 页

本文格式为Word版，下载可任意编辑

End Function Else

Private Sub Form_Click() F1=False

For i = 6 To 40 Step 2 End If

Print GDBH(i) End Function

Next i Private Sub Form_Click()

End Sub For i = 1000 To 2000

8．Function isQO(ByVal x As Integer) As String If x Mod 2 =0 Then If F1(i) Then

isQO=”偶数” Print i

Else End if

isQO=”奇数” Next i

End If End Sub

End Function 10 9．Function F1(ByVal x As Integer) As Boolean If x Mod 17 =0 and x Mod 37 =0Then Dim L%, U%, x%, i%

F1=True L = LBound(a): U = UBound(a)

第 6 页 共 7 页．Sub F1(a() As Integer, ByVal L1 As Integer, ByVal L2 As Integer)

本文格式为Word版，下载可任意编辑

If L1 > U Or L2 > U Then

Print "位置输入错误！"

Exit Sub

End If

If L1 > L2 Then

x = a(L1)

For i = L1 To L2 + 1 Step -1

第 7 页 共 7 页