VB程序设计教程第四版课后答案.docx

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

2、 “Microsoft Visual Basic 6.0 中文版 ”菜单项并单击；双击桌面上的 VB6.0 快捷图标；在“开始 ”菜单的运行对话框中输入命令来启动 VB；第二章 习题参考答案一、选择题：1-10、 DCACD BCBBC11-20、 BADCA BBAAB21-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字符型、字节型、整型、长整型、单精度型、双精度型、货币

3、型、逻辑型、日期型、对象型、变体型。 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）字符型常量 （ 3）逻辑型常量 （ 4）变量 （ 5）字符串常量 （ 6）变量（ 7）字符串常量 （ 8）变量 （ 9）日

4、期型常量 （题目应是 #11/16/1999# ） （ 10）数值型常量（单精度）4、315、（ 1） (1+y/x)/(1-y/x)（2） x3+3*x*y/(2-y)（ 3） sqr(abs(a*b-c3) （ 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.166*667（ 3） 5 25 （4） 29、（ 1） -4 （2） 2 . 82842712474619 （ 3） -3 （ 4） 49 （5） ” hello （”6）He7）16 （ 8）

5、“-459.65 ”（ 9） 510、（ 4）11、（ 2）12、（ 4）第四章 习题参考答案一、选择题：17: DAABBCD二、填空题1 500.00%2 将字号扩大为原来的二倍3 B三、编程题（略）1文本框、标签和命令按钮的名称分别为 text1 、 label1、 command1Private Sub Command1_Click()Label1.caption=text1.textCommand1.caption=text1.textEnd Sub2单价、数量、折扣和应付款对应的文本框的名称分别为： text1 、 text2 、 text3计算和清除命令按钮的名称分别为： com

6、mand1 和 command2 。和 text4 ，Private Sub Command1_Click()Text4=val(text1)*val(text2)*val(text3)End SubPrivate Sub Command2_Click()Text1=”: Text2=”: Text3=”: Text4=”End Sub3文本框、 “转大写 ”命令按钮和 “转大写 ”命令按钮的名称分别为 text1 、 command1 和command2Private Sub Command1_Click()Text1=Ucase(text1)End SubPrivate Sub Comma

7、nd2_Click()Text1=Lcase(text1)End Sub第五章 习题参考答案一、选择题：111: CAABBABBBCC二、填空题1(3) 2 1 2 3 32 2 3 4 160 5 9678 7x=5 (或 x6 或 x7) 8 B9iSum 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 Sub2Private Sub Form_Click()Dim n%,s&S=

8、1:n=0While s400000 Then n=n-1Print nEnd Sub3Private Sub Form_Click()Dim imin%,imax%,i%,R%Imin=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) & “ “text2(MultLine

9、设为True)If I Mod 7=0 then Text2=text2 & chr(13)+chr(10)Next iEnd Sub3设学生成绩的平均分已在 Mark(1) 至 Mark(10) 中 ,学生姓名在 name(1) 至 name(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)=TS=name(i):name(i)=name(j):name(j)=SNext JNe

10、xt iFor i=1 To 10Print Name(i),Mark(i)Next iEnd Sub第八章 习题参考答案一、选择题：110: DCBBDDDBCB二、填空题1a Ubound(b) n=n-12Key=a(i) 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 singleD

11、im 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(ByVal x%) As StringDim i%For i = 3 To x - 3 Step 2If isp(i) And isp(x - i) ThenGDBH = i & + & (x - i) & = & xExit FunctionEnd IfNextEnd FunctionFunction isp(y%) As Booleani = 2: k = Int(y

12、 / 2)Do While i k Thenisp = TrueElseisp = FalseEnd IfEnd FunctionPrivate Sub Form_Click()For i = 6 To 40 Step 2Print GDBH(i)Next iEnd Sub8Function isQO(ByVal x As Integer) As StringIf x Mod 2 =0 ThenisQO= ”偶数 ”ElseisQO= ”奇数 ”End IfEnd Function9Function F1(ByVal x As Integer) As BooleanIf x Mod 17 =0

13、 and x Mod 37 =0ThenF1=TrueElseF1=FalseEnd IfEnd FunctionPrivate Sub Form_Click()For i = 1000 To 2000If F1(i) ThenPrint iEnd ifNext iEnd Sub10 Sub F1(a() As Integer, ByVal L1 As Integer, ByVal L2 As Integer)Dim L%, U%, x%, i%L = LBound(a): U = UBound(a)If L1 U Or L2 U ThenPrint 位置输入错误！ Exit SubEnd I

14、fIf L1 L2 Thenx = a(L1)For i = L1 To L2 + 1 Step -1a(i) = a(i - 1)Next ia(L2) = xElseIf L2 L1 Thenx = a(L1)For i = L1 To L2 - 1a(i) = a(i + 1)Next ia(L2) = xEnd IfEnd Sub第九章 习题参考答案一、选择题：13: ADD二、填空题1下拉式 弹出式 2PopupMenu3Visible Enabled 4 -三、编程题 (略 )第十章 习题参考答案一、选择题：13: DBD二、填空题1Load 2窗体模块 标准模块 类模块3DoEv

15、ents三、编程题1(略 )2Function F(ByVal x&,ByVal Y&) As IntegerDim t&,r&If xY Then t=x:x=y:y=t R= x Mod yDo While R0X=yY=rR= x Mod yLoopF=yEnd FunctionPrivate Sub Command1_Click()Text3 = Val(Text1) / F(Val(Text1), Val(Text2)Text4 = Val(Text2) / F(Val(Text1), Val(Text2)End Sub第十一章 习题参考答案一、选择题：13: DDA二、填空题6 2

16、 AB A三、编程题1Private Sub Form_MouseMove(Button As Integer, Shift As Integer, xAs Single, Y As Single)Text1 = x: Text2 = YEnd Sub2Dim start X, StartY As Integer 在通用中申明Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)If Button = 2 ThenstartX = x: StartY = YEnd IfE

17、nd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)If Button = 1 ThenPSet (x, Y), RGB(0, 0, 0)End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)If Button = 2 ThenDim r%, c%Dim EndX, EndY As IntegerEndX = x:

18、 EndY = Yc = RGB(0, 0, 0)r = Sqr(EndX - startX) 2 + (EndY - StartY) 2)Form1.Circle (startX, StartY), r, cEnd IfEnd Sub第十二章 习题参考答案一、选择题：18: BBABBCCA9I H F C L G E B A J K D二、填空题1Drive 2 Path Print Dir1.Path3Path 4Hidden system5顺序文件 随机文件 二进制文件6FreeFile7Close #18Open “ c: readme.txt ” For Output AS #39

19、Open “ c:autoexec.bat ” For Intput AS #410 Open “ c: xscj.dat ” For Random AS #3 Len=5411 Open “ smtext1.txt ” For Binary AS #112 For Input Eof(1)13 KeyAscii END(或者 End end eNd enD) Text1.text三、编程题1在标准模块中定义Type stuID As String * 12name As String * 8z1 As String * 12z2 As String * 12sex As String * 2

20、jc As Booleanscool As String * 20sx As Integeryw As Integeryy As Integer wl As Integerzf As IntegerEnd TypeDim p As stu 在通用中定义Private Sub CmdAppend_Click()p.ID = Text1p.name = Text2p.z1 = Text3p.z2 = Text4p.scool = Text5If Option1.Value = True Then p.sex = 男 If Option2.Value = True Then p.sex = 女 If

21、 Check1.Value = 1 Then p.jc = True Else p.jc = Falsep.sx = Val(Text6) : p.yw = Val(Text7)p.yy = Val(Text8) : p.wl = Val(Text9)p.zf = Val(Text10)Put #1, , pEnd SubPrivate Sub CmdDisplay_Click()Get #1, Val(txtRecord_No), pText1 = p.ID : Text2 = p.nameText3 = p.z1 : Text4 = p.z2Text5 = p.scoolIf p.sex

22、= 男 Then Option1.Value = True Else Option2.Value = True If p.jc = True Then Check1.Value = 1 Else Check1.Value = 0 Text6 = p.sx : Text7 = p.ywText8 = p.yy : Text9 = p.wlText10 = p.zfEnd SubPrivate Sub Command3_Click()Text1 = : Text2 = Text3 = : Text4 = Text5 = : Text6 = Text7 = : Text8 = Text9 = : T

23、ext10 = End SubPrivate Sub Form_Load()Open App.Path & stu.dat For Random As #1 Len = Len(p)End SubPrivate Sub Form_Unload(Cancel As Integer)Close #1End SubPrivate Sub Text10_GotFocus()Text10 = Val(Text6) + Val(Text7) + Val(Text8) + Val(Text9)End Sub2.3.4.Private Type booksid As String * 10name As String * 8sex As String * 2math As Integereng As Integerele As IntegerEnd Type成绩输入Private Sub Command1_Click()Dim b As booksOpen c:stu.dat For Append As #1b.id = InputBox( 请输入学号 )b.name = InputBox( 请输入姓名 )b.sex = InputBox( 请输入性别 )b.math = InputBox( 请输入数学成绩 )b.eng = InputBox( 请输