VB部分答案(不完全).doc

课后习题答案 第一章一, 填空题 1,对象 事件驱动 2,编译运行模式 解释运行模式 二, 简答题 1, 简述 VB 的特点. 答:可视化的程序设计方法 面向对象的程序设计思想 事件驱动的编程机制 结构化的程序设计语言 高度的可扩充性 强大的数据库访问能力 支持动态数据交换 支持对象链接与嵌入 2,简述 VB 的安装过程. 答:向光驱中放入 VB 安装光盘; 计算机将运行自动安装程序,若没有,执行 VB 目录下的 Setup.exe; 根据提示逐一回答问题,并点击下一步 ; 点击完成 ; 3 如何启动 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,字符型,字节型,整型,长整型,单精度型,双精度型,货币型,逻辑型,日 期型,对象型,变体型.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)5.25 (4)2 9, (1) (2) . 82842712474619 (3) -4 2 -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 3.2 2 34, 1605, 96.78 7.x=5 (或 x6 或 x7)8,B 9 .iSum iSum+j 1250 三,编程题 1.Private 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 2.Private Sub Form_Click() Dim n%,s& S=1:n=0 While s400000 Then n=n-1 Print n End Sub 3.Private 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 二,填空题 1.Interval Label1.caption=time 2.List1.ListCount InterVal 三,编程题 1. Private Sub Command1_Click() If Option1.Value = True And Option3.Value = True Then Text1.FontName = 宋体 Text1.FontSize = 8 End If If Option1.Value = True And Option4.Value = True Then Text1.FontName = 宋体 Text1.FontSize = 12 End If If Option2.Value = True And Option3.Value = True Then Text1.FontName = 黑体 Text1.FontSize = 8 End If If Option2.Value = True And Option4.Value = True Then Text1.FontName = 黑体 Text1.FontSize = 12 End If End Sub Hscroll1.Max 2. 9.timer 的 Enable 为 False Interval 为 100 Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() 汽车.Left =汽车.Left + 100 End Sub 第七章一,选择题: 112: DCADD BBDAC CB 二,填空题 1.42 2.Index 3.41 4.A(i)=a(11-i) a(11-i)=Tmp5.1 6.X Mod 7=0 7.210 8.0 To 8 i+1 To 9 9.3 K 1 10. 1001 Max MaxMax) 三,编程题 1.Private 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 二,填空题 1.a Ubound(b) n=n-1 2.Key=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 8.Function isQO(ByVal x As Integer) As String If x Mod 2 =0 Then isQO=偶数 Else isQO=奇数 End If End Function 9.Function 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 10.Sub F1(a() As Integer, ByVal L1 As Integer, ByVal Integer) Dim L%, U%, x%, i% L = LBound(a): U = UBound(a) If L1 U Or L2 U Then Print 位置输入错误! E