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和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&
