visualbasic程序设计教程第四版答案.docx
《visualbasic程序设计教程第四版答案.docx》由会员分享，可在线阅读，更多相关《visualbasic程序设计教程第四版答案.docx（17页珍藏版）》请在冰豆网上搜索。
visualbasic程序设计教程第四版答案
visualbasic程序设计教程第四版答案
【篇一：
visual_basic程序设计教程（第4版）_课后答案】
一章习题参考答案
一、填空题
1、对象事件驱动
2、编译运行模式解释运行模式
二、简答题
1、简述vb的特点。
答：
①可视化的程序设计方法
2面向对象的程序设计思想
3事件驱动的编程机制
4结构化的程序设计语言
5高度的可扩充性
6强大的数据库访问能力
7支持动态数据交换⑧支持对象链接与嵌入
2、简述vb的安装过程。
答：
①向光驱中放入vb安装光盘；
2计算机将运行自动安装程序，若没有，执行vb目录下的setup.exe；③根据提示逐一回答问题，并点击下一步”④点击“完成”；
2、如何启动vb。
答：
三种方法：
1单击“开始”按钮，选择“程序”菜单下的“microsoftvisualbasic
6.0中文版”菜单项并单击；
2双击桌面上的vb6.0快捷图标；
3在“开始”菜单的运行对话框中输入命令来启动vb；
第二章习题参考答案
一、选择题：
I-10、dcacdbcbbc
II-20、badcabbaab
21-29、aacbbcddc
二、填空题
1．窗体、控件
2．属性值
3．属性窗口设置、代码窗口设置
4．事件过程
5．对象名、下划线、事件名
6．form_click第三章习题参考答案
一、选择题
1、b2、c3、a4、b5、a6、c7、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.166********667
（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、
command1privatesubcommand1_click（）
label1.caption=text1.textcommand1.caption=text1.textendsub
2．单价、数量、折扣和应付款对应的文本框的名称分别为：
text1、text2、text3和text4，计算和清除命令按钮的名称分别为：
command1和command2。
privatesubcommand1_click（）text4=val（text1）*val（text2）*val（text3）endsub
privatesubcommand2_click（）
text1=””:
text2=””:
text3=””:
text4=””endsub
3．文本框、“转大写”命令按钮和“转大写”命令按钮的名称分别为text1、command1和command2privatesubcommand1_click（）
text1=ucase（text1）
endsub
privatesubcommand2_click（）text1=lcase（text1）endsub
第五章习题参考答案
一、选择题：
1—11:
caabbabbbcc
二、填空题
1．（3）2．1233．2234．1605．96．787．x=5（或x6或x7）8．b9．isumisum+j1250
三、编程题
1．privatesubform_click（）dimi%,s%s=0fori=101to200step2ifimod30thenprintis=s+iendifnextiprintsendsub
2．privatesubform_click（）dimn%,ss=1:
n=0whiles=400000n=n+1s=s*nwendifs400000thenn=n-1printnendsub
3．privatesubform_click（）dimimin%,imax%,i%,r%imin=100:
imax=20fori=1to20r=int（rnd*51+50）ifrimaxthenimax=rifriminthenimin=rnextiprintimax,iminendsub第六章习题参考答案
一、选择题：
1—13:
abaaccbadadbb
二、填空题1．intervallabel1.caption=time2．list1.listcountintervalhscroll1.max
三、编程题
第七章习题参考答案
一、选择题：
1—12:
dcaddbbdaccb
二、填空题1．422．index3．414．a（i）=a（11-i）a（11-i）=tmp5．16．xmod7=07．2108．0to8i+1to99．3k1
10．1001maxmaxarrn（i）（或者arrn（i）max）
三、编程题
1．privatesubc1_click（）
ifop1（0）.value=truethenp1.printifop1
（1）.value=truethenp1.printifop1
（2）.value=truethenp1.printendsub
选择“了椭圆形”选择“了圆形”选择了“正方形”
2．统计按钮名为command1，输入框名为text1，输出框为text2（multline设为true）privatesubcommand1_click（）dimx（1to26）asinteger,iasintegerdimsasstring,lasintegerl=len（text1.text）fori=1tol
s=mid（text1,i,1）s=ucase（s）ifs=aands=zthen
x（asc（s）-65+1）=x（asc（s）-65+1）+1endifnexti
fori=1toltext2=text2chr（64+i）“=”x（i）
ifimod7=0thentext2=text2chr（13）+chr（10）nexti
endsub
3．设学生成绩的平均分已在mark
（1）至mark（10）中,学生姓名在name
（1）至name（10）中。
privatesubcommand1_click（）dimi%,j%,t%,s$fori=1to9forj=i+1to10ifmark（i）mark（j）thent=mark（i）:
mark（i）=mark（j）:
mark（j）=ts=name（i）:
name（i）=name（j）:
name（j）=snextjnextifori=1to10printname（i）,mark（i）nextiendsub
第八章习题参考答案
一、选择题：
【篇二：
visual_basic程序设计教程（第4版）_课后答案】
＞第一章习题参考答案
一、填空题1、对象事件驱动2、编译运行模式解释运行模式
二、简答题
1、简述vb的特点。
答：
①可视化的程序设计方法
2面向对象的程序设计思想
3事件驱动的编程机制
4结构化的程序设计语言
5高度的可扩充性
6强大的数据库访问能力
7支持动态数据交换⑧支持对象链接与嵌入
2、简述vb的安装过程。
答：
①向光驱中放入vb安装光盘；
②计算机将运行自动安装程序，若没有，执行vb目录下的setup.exe;③根据提示逐一回答问题，并点击下一步”
4点击“完成”；
2、如何启动vb。
答：
三种方法：
1单击“开始”按钮，选择“程序”菜单下的“microsoftvisualbasic
6.0中文版”菜单项并单击；
2双击桌面上的vb6.0快捷图标；
3在“开始”菜单的运行对话框中输入命令来启动vb；
第二章习题参考答案
一、选择题：
I-10、dcacdbcbbc
II-20、badcabbaab
21-29、aacbbcddc
二、填空题
1．窗体、控件
2．属性值
3．属性窗口设置、代码窗口设置
4．事件过程
5．对象名、下划线、事件名
6．form_click第三章习题参考答案
一、选择题
1、b2、c3、a4、b5、a6、c7、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.166********667
（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、command1privatesubcommand1_click（）
label1.caption=text1.textcommand1.caption=text1.textendsub
2．单价、数量、折扣和应付款对应的文本框的名称分别为：
text1、
text2、text3和text4，计算和清除命令按钮的名称分别为：
command1和command2。
privatesubcommand1_click（）text4=val（text1）*val（text2）*val（text3）endsub
privatesubcommand2_click（）
text1=””:
text2=””:
text3=””:
text4=””endsub
3．文本框、“转大写”命令按钮和“转大写”命令按钮的名称分别为text1、command1和command2privatesubcommand1_click（）text1=ucase（text1）endsub
privatesubcommand2_click（）text1=lcase（text1）endsub
第五章习题参考答案一、选择题：
1—11:
caabbabbbcc二、填空题
1．（3）2．1233．2234．1605．96．787．x=5（或x6或x7）8．b9．isumisum+j1250
三、编程题
1．privatesubform_click（）
dimi%,s%
s=0
fori=101to200step2ifimod30thenprintis=s+iendifnextiprintsendsub
2．privatesubform_click（）dimn%,ss=1:
n=0whiles=400000n=n+1s=s*n
wendifs400000thenn=n-1printnendsub
3．privatesubform_click（）dimimin%,imax%,i%,r%imin=100:
imax=20fori=1to20r=int（rnd*51+50）ifrimaxthenimax=rifriminthenimin=rnextiprintimax,iminendsub第六章习题参考答案一、选择题：
1—13:
abaaccbadadbb二、填空题1．intervallabel1.caption=time2．list1.listcountinterval
三、编程题
1.privatesubcommand1_click（）
ifoption1.value=trueandoption3.value=truethentext1.fontname=宋体text1.fontsize=8endif
ifoption1.value=trueandoption4.value=truethentext1.fontname=宋体text1.fontsize=12endif
ifoption2.value=trueandoption3.value=truethentext1.fontname=黑体text1.fontsize=8endif
ifoption2.value=trueandoption4.value=truethentext1.fontname=黑体endifendsubhscroll1.max
2.
9.timer的enable为falseinterval为100privatesubcommand1_click（）timer1.enabled=trueendsub
privatesubcommand2_click（）timer1.enabled=falseendsub
privatesubtimer1_timer（）
汽车.left=汽车.left+100endsub
第七章习题参考答案一、选择题：
1—12:
dcaddbbdaccb二、填空题
1．422．index3．414．a（i）=a（11-i）a（11-i）=tmp5．16．xmod7=07．2108．0to8i+1to99．3k1
10．1001maxmaxarrn（i）（或者arrn（i）max）
三、编程题
1．privatesubc1_click（）
ifop1（0）.value=truethenp1.print
ifop1
（1）.value=truethenp1.printifop1
（2）.value=truethenp1.printendsub
选择“了椭圆形”
选择“了圆形”选“择了正方形”
2．统计按钮名为command1，输入框名为text1，输出框为
text2（multline设为true）privatesubcommand1_click（）dimx（1to26）asinteger,iasintegerdimsasstring,lasintegerl=len（text1.text）
fori=1tol
s=mid（text1,i,1）s=ucase（s）ifs=aands=zthen
篇三：
visualbasic程序设计教程-第四版-刘炳文编著-清华大学】
lass=txt>部分习题参考第四版刘炳文编著清华大学出版社第五章
5.4、从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。
通过inputbox函数输入数据，在窗体上显示和及平均值。
dimaassinglefori=1to4
a=inputbox（“请输入一个数：
”，“数据输入”）sum=sum+an=n+1
avg=sum/nnextiprint和“是：
”,sumprint平“均值是：
”，avg
5.5、编写程序，要求用户输入下列信息：
姓名、年龄、通信地址、邮政编码、电话，然后将输入的数据用适当的格式在窗体上显示出来。
dimaasvariantfontsize=20a=inputbox（“请输入姓名：
”，“数据输入”）print姓“名：
”；a
a=inputbox（“请输入年龄：
”，“数据输入”）print年“龄：
”；a
a=inputbox（“请输入通信地址：
”，“数据输入”）print通“信地址：
”；a
a=inputbox（“请输入邮政编码：
”，“数据输入”）print邮“政编码：
”；a
a=inputbox（“请输入电话：
”，“数据输入”）print电“话：
”；a
5.7．设a=5，b=2.5，c=7.8，编程序计算：
程序：
dimaassingle，bassingle，cassinglea=5
b=2.5
c=7.8
pi=3.14
y=（pi*a*b）/（a+b*c）
print结“果是：
”;y
5.8、输入以秒为单位表示的时间，编写程序，将其转换为几日几时几秒。
dimaaslong，dasinteger，hasinteger，sasintegera=inputbox（“请输入秒数：
”，“数据输入”）d=int（a/86400）
h=int（（a-d*86400）/3600）
s=a-d*86400-h*3600
printd;日”；h；时”；s;秒”
5.9、自由落体位移公式为：
s=gt2/2+v0t
其中v0为初始速度，g为重力加速度，t为经历的时间，编写程序，求位移量s。
设v0=4.8m/s,t=0.5s,g=9.81m/s2，在程序中把g定义为符号常量，用inputbox函数输入v0和t两个变量的值。
dimvassingle，tassingle，sassingle
g=9.81
v=inputbox（“请输入初始速度：
”，“数据输入”）
v=val（v）
t=inputbox（“请输入经历的时间：
”，“数据输入”）
t=val（t）
s=g*t*t/2+v*t
print位“移量是：
”;s
第七章
7.1.编程计算并输出s的值:
s=2+4+6+8+?
+100
dimi,sasinteger
s=0
fori=2to100step2
s=s+i
next
prints
7.2、我国现有人口为13亿，设年增长率为1%，编写程序，计算多少年后增加到20亿。
privatesubform_click（）
dimpasdouble
dimrassingle
dimnasinteger
p=130000000
r=0.01
n=0
dowhilep=200000000
p=p*（1+r）
n=n+1
loop
printn;年后;中国人口增加到;p
endsub
7.3、给定三角形的3条边长，计算三角形的面积。
编写程序：
首先判断给出的3条边能否构成三角形，如可以构成，则计算并输出三角形的面积，否则要求重新输入。
当输入-1时结束程序。
dimaassingle；bassingle；cassingle
start:
a=inputbox（“请输入第一条边长-1结束：
”,数”据输入”）a=val（a）
ifa=-1then
end
endif
b=inputbox（“请输入第二条边长”，“数据输入”）
b=val（b）
c=inputbox（“请输入第三条边长”，“数据输入”）
c=val（c）
ifa+b=cora+c=borb+c=athen
msgbox（“您输入的三条边长不能
升级会员 