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

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

2、c 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字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。String、

3、Byte、Integer、Long、Single、Double、Currency、Boolean、Date、Object、Variant 2、 双引号(英文)、#3、 ASCII、1、24、 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、315、（1）(1+y/x)/(1

4、-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（3）525 （4）27）16 （8） “-459.65” （9）510、（4）11、（2）12、（4）第四章 习题参考答案一、选择题：17: DAABBCD二、填空题1 500.00%2. 将字号扩大为原来的二倍3. B三、编程题（略）1. 文本框、标签和命令按钮的名称分别为 text1、label1、command1 Private Sub Command1_Click

5、()Label1.caption=text1.text Command1.caption=text1.text End Sub2. 单价、数量、折扣和应付款对应的文本框的名称分别为：text1、text2、text3 和text4，计算和清除命令按钮的名称分别为：command1 和 command2。Private Sub Command1_Click() Text4=val(text1)*val(text2)*val(text3) End SubPrivate Sub Command2_Click()Text1=” : Text2=”: Text3=”: Text4=”End Sub3.

6、文本框、“转大写”命令按钮和“转大写”命令按钮的名称分别为text1、command1 和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 3 4160 59678 7x=5 (或 x6 或 x7) 8B 9iSum iSum+j 1250三、编程题1. Private Sub Form_Click() D

7、im i%,s%S=0For i = 101 To 200 step 2 If i mod 30 thenPrint i S=s+i End If Next i Print sEnd Sub2. Private Sub Form_Click() Dim n%,s&S=1:n=0While s400000 Then n=n-1 Print nEnd Sub3. Private Sub Form_Click() Dim imin%,imax%,i%,R% Imin=100:imax=20For i=1 to 20 R=Int(Rnd*51+50)If Rimax Then imax=RIf R=

8、A And S = Z Thenx(Asc(S) - 65 + 1) = x(Asc(S) - 65 + 1) + 1End If Next 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)至 name(10)中。Private Sub Command1_click()Dim I%,J%,T%,S$For i=1 To

9、9 For 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 J Next iFor i=1 To 10Print Name(i),Mark(i) Next iEnd 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

10、!,F!,i%P=1:S=1:i=1:F=xDo P=P*i S=S+F/pLoop Until Abs(F/p)ESP Print sEnd Sub 子函数Function P2(x As Single, esp As Single) As single Dim p!,S!,F!,i%P=1:S=1:i=1:F=xDo P=P*i S=S+F/pLoop Until Abs(F/p)Y ThenF1=XElse F1=YEnd IfEnd Function 7Function GDBH(ByVal x%) As String Dim i%For i = 3 To x - 3 Step 2If

11、 isp(i) And isp(x - i) ThenGDBH = i & + & (x - i) & = & x Exit FunctionEnd If NextEnd FunctionFunction isp(y%) As Boolean i = 2: k = Int(y / 2)Do While i k Then isp = True Elseisp = False End IfEnd FunctionPrivate Sub Form_Click() For i = 6 To 40 Step 2 Print GDBH(i)Next i End Sub8. Function isQO(By

12、Val x As Integer) As String If x Mod 2 =0 ThenisQO=”偶数” Else isQO=”奇数” End IfEnd Function9. Function F1(ByVal x As Integer) As Boolean If x Mod 17 =0 and x Mod 37 =0ThenF1=True Else F1=False End IfEnd FunctionPrivate Sub Form_Click() For i = 1000 To 2000If F1(i) Then Print iEnd if Next i End Sub10.

13、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 Then Print 位置输入错误！Exit Sub End IfIf L1 L2 Then x = a(L1)For i = L1 To L2 + 1 Step -1 a(i) = a(i - 1)Next i a(L2) = xElseIf L2 L1 Then x = a(L1)For i = L1 To L2 - 1 a(i) = a(

14、i + 1)Next i a(L2) = xEnd 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 R0X=y Y=rR= x Mod y LoopF=yE

15、nd 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 2AB A 三、编程题1Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)Text1 = x: Text2 = Y End Sub2Di

16、m 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 IfEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)If Button = 1 ThenPSet (x, Y), RG

17、B(0, 0, 0)End If End SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, x AsSingle, Y As Single) If Button = 2 Then Dim r%, c%Dim EndX, EndY As Integer EndX = x: EndY = Yc = RGB(0, 0, 0)r = Sqr(EndX - startX) 2 + (EndY - StartY) 2) Form1.Circle (startX, StartY), r, cEnd If End Sub第十二章

18、习题参考答案一、选择题：18: BBABBCCA9I H F C L G E B A J K D 二、填空题1Drive 2Path Print Dir1.Path 3Path 4Hidden system 5顺序文件 随机文件 二进制文件6FreeFile7. Close #18. Open “c:samplesreadme.txt” For Output AS #3 9Open “c:autoexec.bat” For Intput AS #410Open “c:samplesxscj.dat” For Random AS #3 Len=54 11Open “smtext1.txt” Fo

19、r Binary AS #112. For Input Eof(1)13. KeyAscii END(或者 End end eNd enD) Text1.text 三、编程题1在标准模块中定义Type stuID As String * 12 name As String * 8 z1 As String * 12 z2 As String * 12 sex As String * 2 jc As Booleanscool As String * 20 sx As Integeryw As Integer yy As Integer wl As Integer zf As Integer En

20、d TypeDim p As stu 在通用中定义Private Sub CmdAppend_Click() p.ID = Text1p.name = Text2 p.z1 = Text3 p.z2 = Text4 p.scool = Text5If 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 = V

21、al(Text8) : p.wl = Val(Text9) p.zf = Val(Text10)Put #1, , p End SubPrivate Sub CmdDisplay_Click() Get #1, Val(txtRecord_No), p Text1 = p.ID : Text2 = p.name Text3 = p.z1 : Text4 = p.z2 Text5 = p.scoolIf p.sex = 男 Then Option1.Value = True Else Option2.Value = True If p.jc = True Then Check1.Value =

22、1 Else Check1.Value = 0Text6 = p.sx : Text7 = p.yw Text8 = p.yy : Text9 = p.wl Text10 = p.zfEnd SubPrivate Sub Command3_Click()Text1= :Text2=Text3= :Text4=Text5= :Text6=Text7= :Text8=Text9 = : Text10 = End SubPrivate Sub Form_Load()Open App.Path & stu.dat For Random As #1 Len = Len(p) End SubPrivate

23、 Sub Form_Unload(Cancel As Integer) Close #1End SubPrivate Sub Text10_GotFocus()Text10 = Val(Text6) + Val(Text7) + Val(Text8) + Val(Text9) End SubPrivate Type books id As String * 10name As String * 8 sex As String * 2 math As Integer eng As Integerele As Integer End Type 成绩输入Private Sub Command1_Cl

24、ick() Dim b As booksOpen c:stu.dat For Append As #1 b.id = InputBox( 请 输 入 学 号 ) b.name = InputBox(请输入姓名) b.sex = InputBox(请输入性别) b.math = InputBox(请输入数学成绩) b.eng = InputBox(请输入英语成绩) b.ele = InputBox(请输入电子成绩)Write #1, b.id, b.name, b.sex, b.math, b.eng, b.ele Close #1End Sub 不及格人员输出Private Sub Comma

25、nd2_Click() Dim a, b, cOpen c:stuo.dat For Input As #1While Not EOF(1) Input #1, a, b, cIf c = 数学 Then List1.AddItem b If c = 英语 Then List2.AddItem b If c = 电子 Then List3.AddItem bWend Close #1 End Sub将不及格人选出存入 stuo.dat Private Sub Command3_Click() Dim a, b, c, d, e, fDim k%Open c:stu.dat For Input As #1 Open c:stuo.dat For Output As #2While Not EOF(1)Input #1, a, b, c, d, e, fIf d 60 Then Write #2, a, b, 数学 If e 60 Then Write #2, a, b, 英语 If f 60 Then Write #2, a, b, 电子Wend Close #1Close #2End Sub