《VB程序设计教程第四版课后答案》由会员分享，可在线阅读，更多相关《VB程序设计教程第四版课后答案（12页珍藏版）》请在金锄头文库上搜索。
1、vb 课后习题答案第一章 习题参考答案一、填空题1、对象 事件驱动2、编译运行模式 解释运行模式二、简答题1、简述 VB 的特点。答：可视化的程序设计方法 面向对象的程序设计思想 事件驱动的编程机制 结构化的程序设计语言 高度的可扩充性 强大的数据库访问能力 支持动态数据交换 支持对象链接与嵌入2、简述VB的安装过程。 答：向光驱中放入VB安装光盘； 计算机将运行自动安装程序，若没有，执行VB目录下的Setup.exe; 艮据提示逐一回答问题，并点击下一步”； 点击“完成”；2、 如何启动 VB。答：三种方法： 单击 开始”按钮，选择 程序”菜单下的“Microsoft Visual Basi
2、c 6.0中文版”菜单项并单击; 双击桌面上的 VB6.0 快捷图标； 在“开始”菜单的运行对话框中输入命令来启动VB；第二章 习题参考答案一、选择题：I- 10、 DCACD BCBBCII- 20、 BADCA BBAAB21-29、 AACBB CDDC二、填空题1窗体、控件2属性值3属性窗口设置、代码窗口设置4事件过程5对象名、下划线、事件名6Form_Click第三章 习题参考答案、选择题1、B 2、C 3、A 4、B 5、A 6、C 7、C二、填空题1、 11 字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、 变体型。 String、Byte、In
3、teger、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)字符型常量(3)逻辑型常量(4)变量(5)字符串常量(6) 变量(7)字符串常量 (8)变量(9)日期型常量 (题目应是 #11/16/1999#)(10)数值型常 量(单精度)4、315、 (1) (1+y/x(1-y
4、/x)(2) xT+3*x*y/(2-y)(3) sqr(abs(a*b-cA3)(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.1 6666666666667(3)525(4)29、(1) -4(2) 2.82842712474619(3) -3(4) 49(5) ” hello (6) He7) 16 (8)-459.65 ”(9) 510、(4)11、(2)12、(4)第四章习题参考答案一、选择题：17: DAABBCD二、填空题1 500.00%2将字号扩大为原来的二倍
5、3 B三、编程题(略)1文本框、标签和命令按钮的名称分别为 text1、label1、command1Private Sub Command1_Click()Label1.caption=text1.textCommand1.caption=text1.textEnd Subtext3 和 text4 ，、 command1 和2单价、数量、折扣和应付款对应的文本框的名称分别为：text1 、 text2 、计算和清除命令按钮的名称分别为： command1 和 command2 。Private Sub Command1_Click()Text4=val(text1)*val(text2)*
6、val(text3)End SubPrivate Sub Command2_Click()Text1= ” : Text2= ” : Text3= ” : Text4= ”End Sub 3文本框、 “转大写”命令按钮和“转大写”命令按钮的名称分别为 text1 command2Private Sub Command1_Click()Text1=Ucase(text1)End SubPrivate Sub Command2_Click()Text1=Lcase(text1)End Sub第五章习题参考答案一、选择题：111: CAABBABBBCC二、填空题1(3) 2 1 2 3 32 2
7、3 4160 59678 7x=5 (或 x6 或 x7) 8B9iSum iSum+j 1250三、编程题1Private Sub Form_Click()Dim i%,s%S=0For i = 101 To 200 step 2If i mod 30 thenPrint iS=s+iEnd IfNext iPrint sEnd Sub 2Private Sub Form_Click() Dim n%,s&S=1:n=0While s400000 Then n=n-1Print nEnd Sub3 Private Sub Form_Click()Dim imin%,imax%,i%,R%Im
8、in=100:imax=20For i=1 to 20R=Int(Rnd*51+50)If Rimax Then imax=RIf R= A And S = Z Thenx(Asc(S) - 65 + 1) = x(Asc(S) - 65 + 1) + 1End IfNext iFor i=1 To LText2=text2 & Chr(64+i) &“=” & x(i) & “ “If I Mod 7=0 then Text2=text2 & chr(13)+chr(10)Next iEnd Sub3 .设学生成绩的平均分已在Mark(1)至Mark(10)中，学生姓名在 name(1)至n
9、ame(10)中。Private Sub Command1_click()Dim I%，J%，T%，S$For i=1 To 9For j=i+1 To 10If Mark(i)MARK(J) Then T=Mark(i):Mark(i)=Mark(j):Mark(j)=T S=name(i):name(i)=name(j):name(j)=SNext JNext iFor i=1 To 10Print Name(i)，Mark(i)Next iEnd Sub第八章 习题参考答案一、选择题：1 10: DCBBDDDBCB二、填空题1. a Ubound(b) n=n-12. Key=a(i)
10、 Index=-1三、编程题1子过程Sub P1(x As Single, esp As Single)Dim p!,S!,F!,i%P=1:S=1:i=1:F=xDoP=P*iS=S+F/pLoop Until Abs(F/p)ESP Print sEnd Sub子函数Function P2(x As Single, esp As Single) As singleDim p!,S!,F!,i%P=1:S=1:i=1:F=xDoP=P*iS=S+F/pLoop Until Abs(F/p)Y ThenF1=XElseF1=YEnd IfEnd Function7Function GDBH(By
