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
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
计算和清除命令按钮的名称分别为：command1 和 command2 。
和 text4 ，
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
