Visual_Basic程序设计教程(第4版)_课后答案.doc

P0vb课后习题答案 第一章 习题参考答案 一、 填空题 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）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）zxy123ABC 8、（1）19 （2）8.16666666666667 （3）525 （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） 第四章 习题参考答案 一、选择题： 17: 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 第五章 习题参考答案 一、选择题： 111: CAABBABBBCC 二、填空题 1(3) 2 1 2 3 32 2 3 4160 59 678 7x=5 (或x6 或 x7) 8B 9iSum iSum+j 1250 三、编程题 1Private Sub Form_Click() Dim i%,s% S=0 For i = 101 To 200 step 2 If i mod 30 then Print i S=s+i End If Next i Print s End Sub 2Private Sub Form_Click() Dim n%,s& S=1:n=0 While s400000 Then n=n-1 Print n End Sub 3Private Sub Form_Click() Dim imin%,imax%,i%,R% Imin=100:imax=20 For i=1 to 20 R=Int(Rnd*51+50) If Rimax Then imax=R If Rimin Then imin=R Next i Print imax,imin End Sub 第六章 习题参考答案 一、选择题： 113: ABAACCBADADBB 二、填空题 1Interval Label1.caption=time 2List1.ListCount InterVal Hscroll1.Max 三、编程题 1. Private Sub Command1_Click()If Option1.Value = True And Option3.Value = True ThenText1.FontName = 宋体Text1.FontSize = 8End IfIf Option1.Value = True And Option4.Value = True ThenText1.FontName = 宋体Text1.FontSize = 12End IfIf Option2.Value = True And Option3.Value = True ThenText1.FontName = 黑体Text1.FontSize = 8End IfIf Option2.Value = True And Option4.Value = True ThenText1.FontName = 黑体Text1.FontSize = 12End IfEnd Sub2.9.timer的Enable 为False Interval 为100Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()汽车.Left =汽车.Left + 100End Sub 第七章 习题参考答案 一、选择题： 112: DCADD BBDAC CB 二、填空题 142 2Index 341 4A(i)=a(11-i) a(11-i)=Tmp 51 6X Mod 7=0 7210 80 To 8 i+1 To 9 93 K 1 10 1001 Max MaxMax) 三、编程题 1Private Sub C1_click() If OP1(0).Value=True Then P1.Print “选择了椭圆形” If OP1(1).Value=True Then P1.Print “选择了圆形” If OP1(2).Value=True Then P1.Print “选择了正方形” End Sub 2统计按钮名为Command1，输入框名为text1，输出框为text2(MultLine设为True) Private Sub Command1_click() Dim X(1 to 26) AS Integer,I As Integer Dim S As String,L As Integer L=Len(Text1.text) For i=1 To L S=Mid(Text1,I,1) S=Ucase(S) If S = A And S = Z Then x(Asc(S) - 65 + 1) = x(Asc(S) - 65 + 1) + 1 End If Next i For i=1 To L Text2=text2 & Chr(64+i) & “=” & x(i) & “ “ If I Mod 7=0 then Text2=text2 & chr(13)+chr(10) Next i End Sub 3设学生成绩的平均分已在Mark(1)至Mark(10)中,学生姓名在name(1)至name(10)中。 Private Sub Command1_click() Dim I%,J%,T%,S$ For i=1 To 9 For j=i+1 To 10 If Mark(i)Mark(j) Then T=Mark(i):Mark(i)=Mark(j):Mark(j)=T S=name(i):name(i)=name(j):name(j)=S Next J Next i For i=1 To 10 Print Name(i),Mark(i) Next i End Sub 第八章 习题参考答案 一、选择题： 110: DCBBDDDBCB 二、填空题 1a Ubound(b) n=n-1 2Key=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=x Do P=P*i S=S+F/p Loop Until Abs(F/p)esp Print s End Sub 子函数 Function P2(x As Single, esp As Single) As single Dim p!,S!,F!,i% P=1:S=1:i=1:F=x Do P=P*i S=S+F/p Loop Until Abs(F/p)Y Then F1=X Else F1=Y End If End Function 7 Function GDBH(ByVal x%) As String Dim i% For i = 3 To x - 3 Step 2 If isp(i) And isp(x - i) Then GDBH = i & + & (x - i) & = & x Exit Function End If Next End Function Function isp(y%) As Boolean i = 2: k = Int(y / 2) Do While i k Then isp = True Else isp = False End If End Function Private Sub Form_Click() For i = 6 To 40 Step 2 Print GDBH(i) Next i End Sub 8Function isQO(ByVal x As Integer) As String If x Mod 2 =0 Then isQO=”偶数” Else isQO=”奇数” End If End Function 9Function F1(ByVal x As Integer) As Boolean If x Mod 17 =0 and x Mod 37 =0Then F1=True Else F1=False End If End Function Private Sub Form_Click() For i = 1000 To 2000 If F1(i) Then Print i End if Next i End Sub 10Sub 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 Then Print 位置输入错误！ Exit Sub End If If L1 L2 Then x = a(L1) For i = L1 To L2 + 1 Step -1 a(i) = a(i - 1) Next i a(L2) = x ElseIf L2 L1 Then x = a(L1) For i = L1 To L2 - 1 a(i) = a(i + 1) Next i a(L2) = x End If End Sub 第九章 习题参考答案 一、选择题： 13: ADD 二、填空题 1下拉式 弹出式 2PopupMenu 3Visible Enabled 4- 三、编程题(略) 第十章 习题参考答案 一、选择题： 13: DBD 二、填空题 1Load 2窗体模块 标准模块 类模块 3DoEvents 三、编程题 1(略) 2Function F(ByVal x&,ByVal Y&) As Integer Dim t&,r& If xy Then t=x:x=y:y=t R= x Mod y Do While R0 X=y Y=r R= x Mod y Loop F=y End Function Private Sub Command1_Click() Text3 = Val(Text1) / F(Val(Text1), Val(Text2) Text4 = Val(Text2) / F(Val(Text1), Val(Text2) End Sub 第十一章 习题参考答案 一、选择题： 13: DDA 二、填空题 6 2AB A 三、编程题 1Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) Text1 = x: Text2 = Y End Sub 2 Dim startX, StartY As Integer 在通用中申明 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single) If Button = 2 Then startX = x: StartY = Y End If End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) If Button = 1 Then PSet (x, Y), RGB(0, 0, 0) End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single) If Button = 2 Then Dim r%, c% Dim EndX, EndY As Integer EndX = x: EndY = Y c = RGB(0, 0, 0) r = Sqr(EndX - startX) 2 + (EndY - StartY) 2) Form1.Circle (startX, StartY), r, c End If End Sub 第十二章 习题参考答案 一、选择题： 18: BBABBCCA 9I H F C L G E B A J K D 二、填空题 1Drive 2Path Print Dir1.Path 3Path 4Hidden system 5顺序文件 随机文件 二进制文件 6FreeFile 7Close #1 8Open “c:samplesreadme.txt” For Output AS #3 9Open “c:autoexec.bat” For Intput AS #4 10Open “c:samplesxscj.dat” For Random AS #3 Len=54 11Open “smtext1.txt” For Binary AS #1 12For Input Eof(1) 13KeyAscii END(或者End end eNd enD) Text1.text 三、编程题 1在标准模块中定义 Type stu ID As String * 12 name As String * 8 z1 As String * 12 z2 As String * 12 sex As String * 2 jc As Boolean scool As String * 20 sx As Integer yw As Integer yy As Integer wl As Integer zf As Integer End Type Dim p As stu 在通用中定义 Private Sub CmdAppend_Click() p.ID = Text1 = Text2 p.z1 = Text3 p.z2 = Text4 p.scool = Text5 If Option1.Value = True Then p.sex = 男 If Option2.Value = True Then p.sex = 女 If Check1.Value = 1 Then p.jc = True Else p.jc = False p.sx = Val(Text6) : p.yw = Val(Text7) p.yy = Val(Text8) : p.wl = Val(Text9) p.zf = Val(Text10) Put #1, , p End Sub Private Sub CmdDisplay_Click() Get #1, Val(txtRecord_No), p Text1 = p.ID : Text2 = Text3 = p.z1 : Text4 = p.z2 Text5 = p.scool If p.sex = 男 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.yw Text8 = p.yy : Text9 = p.wl Text10 = p.zf End Sub Private Sub Command3_Click() Text1 = : Text2 = Text3 = : Text4 = Text5 = : Text6 = Text7 = : Text8 = Text9 = : Text10 = End Sub Private Sub Form_Load() Open App.Path & stu.dat For Random As #1 Len = Len(p) End Sub Private Sub Form_Unload(Cancel As Integer) Close #1 End Sub Private Sub Text10_GotFocus() Text10 = Val(Text6) + Val(Text7) + Val(Text8) + Val(Text9) End Sub 2.3.4. Private Type books id As String * 10