visual_basic程序设计教程(第4版)_课后答案

《visual_basic程序设计教程(第4版)_课后答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、P0vb课后习题答案第一章习题参考答案一、填空题1、对象事件驱动2、编译运行模式解释运行模式二、简答题1、简述VB的特点。答：①可视化的程序设计方法②面向对象的程序设计思想③事件驱动的编程机制④结构化的程序设计语言⑤高度的可扩充性⑥强大的数据库访问能力⑦支持动态数据交换⑧支持对象链接与嵌入2、简述VB的安装过程。答：①向光驱中放入VB安装光盘；②计算机将运行自动安装程序，若没有，执行VB目录下的Setup.exe；③根据提示逐一回答问题，并点击“下一步”；④点击“完成”；2、如何启动VB。答：三种

2、方法：①单击“开始”按钮，选择“程序”菜单下的“MicrosoftVisualBasic6.0中文版”菜单项并单击；②双击桌面上的VB6.0快捷图标；③在“开始”菜单的运行对话框中输入命令来启动VB；第二章习题参考答案一、选择题：1-10、DCACDBCBBC11-20、BADCABBAAB21-29、AACBBCDDC二、填空题1．窗体、控件2．属性值3．属性窗口设置、代码窗口设置4．事件过程5．对象名、下划线、事件名6．Form_Click第三章习题参考答案一、选择题1、B2、C3、A4、B5

3、、A6、C7、C二、填空题1、11字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。String、Byte、Integer、Long、Single、Double、Currency、Boolean、Date、Object、Variant2、双引号(英文)、#3、ASCII、1、24、public、通用、Dim、Static、Private、Static5、&、+、+6、Now()、Time、日期型三、解答题1、(3)2、(1)3、（1）常量（关键字）（2）字符

4、型常量（3）逻辑型常量（4）变量（5）字符串常量（6）变量（7）字符串常量（8）变量（9）日期型常量（题目应是#11/16/1999#）（10）数值型常量（单精度）4、315、（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）zxy123ABC8、（1）19（2）8.16666666666667（3）5．25（4）29、

5、（1）-4（2）2.82842712474619（3）-3（4）49（5）”hello”（6）He7）16（8）“-459.65”（9）510、（4）11、（2）12、（4）第四章习题参考答案一、选择题：1—7:DAABBCD二、填空题1．500.00%2．将字号扩大为原来的二倍3．B三、编程题（略）1．文本框、标签和命令按钮的名称分别为text1、label1、command1PrivateSubCommand1_Click()Label1.caption=text1.textCommand1.

6、caption=text1.textEndSub2．单价、数量、折扣和应付款对应的文本框的名称分别为：text1、text2、text3和text4，计算和清除命令按钮的名称分别为：command1和command2。PrivateSubCommand1_Click()Text4=val(text1)*val(text2)*val(text3)EndSubPrivateSubCommand2_Click()Text1=””:Text2=””:Text3=””:Text4=””EndSub3．文本框

7、、“转大写”命令按钮和“转大写”命令按钮的名称分别为text1、command1和command2PrivateSubCommand1_Click()Text1=Ucase(text1)EndSubPrivateSubCommand2_Click()Text1=Lcase(text1)EndSub第五章习题参考答案一、选择题：1—11:CAABBABBBCC二、填空题1．(3)2．1233．2234．1605．96．787．x<=5(或x<6或x<7)8．B9．iSumiSum+j1250三、编程

8、题1．PrivateSubForm_Click()Dimi%,s%S=0Fori=101To200step2Ifimod3<>0thenPrintiS=s+iEndIfNextiPrintsEndSub2．PrivateSubForm_Click()Dimn%,s&S=1:n=0Whiles<=400000N=n+1S=s*nWendIfs>400000Thenn=n-1PrintnEndSub3．PrivateSubForm_Click()Dimimin%,imax%,i%,R%