VB程序设计教程第四版课后答案.docx
- 文档编号:8697133
- 上传时间:2023-02-01
- 格式:DOCX
- 页数:18
- 大小:19.35KB
VB程序设计教程第四版课后答案.docx
《VB程序设计教程第四版课后答案.docx》由会员分享,可在线阅读,更多相关《VB程序设计教程第四版课后答案.docx(18页珍藏版)》请在冰豆网上搜索。
VB程序设计教程第四版课后答案
VB课后习题答案
第一章习题参考答案
一、填空题
1、对象事件驱动
2、编译运行模式解释运行模式
二、简答题
1、简述VB的特点。
答:
①可视化的程序设计方法
②面向对象的程序设计思想
③事件驱动的编程机制
④结构化的程序设计语言
⑤高度的可扩充性
⑥强大的数据库访问能力
⑦支持动态数据交换
⑧支持对象链接与嵌入
2、简述VB的安装过程。
答:
①向光驱中放入VB安装光盘;
②计算机将运行自动安装程序,若没有,执行VB目录下的Setup.exe;
③根据提示逐一回答问题,并点击“下一步”;
④点击“完成”;
2、如何启动VB。
答:
三种方法:
①单击“开始”按钮,选择“程序”菜单下的“MicrosoftVisualBasic6.0中文版”菜单项并单击;
②双击桌面上的VB6.0快捷图标;
③在“开始”菜单的运行对话框中输入命令来启动VB;
第二章习题参考答案
一、选择题:
1-10、DCACDBCBBC
11-20、BADCABBAAB
21-29、AACBBCDDC
二、填空题
1.窗体、控件
2.属性值
3.属性窗口设置、代码窗口设置
4.事件过程
5.对象名、下划线、事件名
6.Form_Click
第三章习题参考答案
一、选择题
1、B2、C3、A4、B5、A6、C7、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)x^3+3*x*y/(2-y)
(3)sqr(abs(a*b-c^3))(4)sqr(s*(s-a)*(s-b)*(s-c))
6、
7、
(1)13
(2)17
(3)#1999-11-12#(4)zxy123ABC
(3)5.25(4)2
7)16(8)“-459.65”(9)5
10、(4)
11、
(2)
12、(4)
第四章习题参考答案
一、选择题:
1—7:
DAABBCD
二、填空题
1.500.00%
2.将字号扩大为原来的二倍
3.B
三、编程题(略)
1.文本框、标签和命令按钮的名称分别为text1、label1、command1
PrivateSubCommand1_Click()
Label1.caption=text1.text
Command1.caption=text1.text
EndSub
2.单价、数量、折扣和应付款对应的文本框的名称分别为:
text1、text2、text3和text4,计算和清除命令按钮的名称分别为:
command1和command2。
PrivateSubCommand1_Click()
Text4=val(text1)*val(text2)*val(text3)
EndSub
PrivateSubCommand2_Click()
Text1=””:
Text2=””:
Text3=””:
Text4=””
EndSub
3.文本框、“转大写”命令按钮和“转大写”命令按钮的名称分别为text1、command1和command2
PrivateSubCommand1_Click()
Text1=Ucase(text1)
EndSub
PrivateSubCommand2_Click()
Text1=Lcase(text1)
EndSub
第五章习题参考答案
一、选择题:
1—11:
CAABBABBBCC
二、填空题
1.(3)2.1233.2234.1605.9
6.787.x<=5(或x<6或x<7)8.B
9.iSumiSum+j1250
三、编程题
1.PrivateSubForm_Click()
Dimi%,s%
S=0
Fori=101To200step2
Ifimod3<>0then
Printi
S=s+i
EndIf
Nexti
Prints
EndSub
2.PrivateSubForm_Click()
Dimn%,s&
S=1:
n=0
Whiles<=400000
N=n+1
S=s*n
Wend
Ifs>400000Thenn=n-1
Printn
EndSub
3.PrivateSubForm_Click()
Dimimin%,imax%,i%,R%
Imin=100:
imax=20
Fori=1to20
R=Int(Rnd*51+50)
IfR>imaxThenimax=R
IfR Printimax,imin EndSub 第六章习题参考答案 一、选择题: 1—13: ABAACCBADADBB 二、填空题 1.IntervalLabel1.caption=time 2.List1.ListCountInterValHscroll1.Max 三、编程题 第七章习题参考答案 一、选择题: 1—12: DCADDBBDACCB 二、填空题 1.422.Index3.41 4.A(i)=a(11-i)a(11-i)=Tmp 5.16.XMod7=07.210 8.0To8i+1To9 9.3K1 10.1001MaxMaxMax) 三、编程题 1.PrivateSubC1_click() IfOP1(0).Value=TrueThenP1.Print“选择了椭圆形” IfOP1 (1).Value=TrueThenP1.Print“选择了圆形” IfOP1 (2).Value=TrueThenP1.Print“选择了正方形” EndSub 2.统计按钮名为Command1,输入框名为text1,输出框为text2(MultLine设为True) PrivateSubCommand1_click() DimX(1to26)ASInteger,IAsInteger DimSAsString,LAsInteger L=Len(Text1.text) Fori=1ToL S=Mid(Text1,I,1) S=Ucase(S) IfS>="A"AndS<="Z"Then x(Asc(S)-65+1)=x(Asc(S)-65+1)+1 EndIf Nexti Fori=1ToL Text2=text2&Chr(64+i)&“=”&x(i)&““ IfIMod7=0thenText2=text2&chr(13)+chr(10) Nexti EndSub 3.设学生成绩的平均分已在Mark (1)至Mark(10)中,学生姓名在name (1)至name(10)中。 PrivateSubCommand1_click() DimI%,J%,T%,S$ Fori=1To9 Forj=i+1To10 IfMark(i) Mark(i)=Mark(j): Mark(j)=T S=name(i): name(i)=name(j): name(j)=S NextJ Nexti Fori=1To10 PrintName(i),Mark(i) Nexti EndSub 第八章习题参考答案 一、选择题: 1—10: DCBBDDDBCB 二、填空题 1.aUbound(b)n=n-1 2.Key=a(i)Index=-1 三、编程题 1.子过程 SubP1(xAsSingle,espAsSingle) Dimp! S! F! i% P=1: S=1: i=1: F=x Do P=P*i S=S+F/p LoopUntilAbs(F/p) EndSub 子函数 FunctionP2(xAsSingle,espAsSingle)Assingle Dimp! S! F! i% P=1: S=1: i=1: F=x Do P=P*i S=S+F/p LoopUntilAbs(F/p) EndFunction 2.Swap2能实现数据交换。 因为地址传递方式形参和实参有共同的地址,那么形参的变化,会引起实参的变化(即形参将值回传给实参),故可实现两数交换。 3.FunctionLF(ByValxAsSingle)AsSingle LF=X*X*X EndFunction SubCommand1_Click() DimI% Fori=1To20 PrintI,LF(i) Nexti EndSub 4.FunctionWeekDay(ByValxAsInteger)AsString SelectCasex Case0 WeekDay=”星期日” Case1 WeekDay=”星期一” Case2 WeekDay=”星期二” Case3 WeekDay=”星期三” Case4 WeekDay=”星期四” Case5 WeekDay=”星期五” Case6 WeekDay=”星期六” EndSelect EndFunction 5.FunctionRand30(ByValXAs`Integer)AsInteger Randomize Rand30=Int(Rnd*X+1) EndFunction SubCommand1_Click() Fori=1To30 PrintRand30(100) Nexti EndSub 6.FunctionF1(ByValXAs`Single,ByValYAs`Single)AsInteger IfX>YThen F1=X Else F1=Y EndIf EndFunction 7. FunctionGDBH(ByValx%)AsString Dimi% Fori=3Tox-3Step2 Ifisp(i)Andisp(x-i)Then GDBH=i&"+"&(x-i)&"="&x ExitFunction EndIf Next EndFunction Functionisp(y%)AsBoolean i=2: k=Int(y/2) DoWhilei<=k IfyModi=0ThenExitDo i=i+1 Loop Ifi>kThen isp=True Else isp=False EndIf EndFunction PrivateSubForm_Click() Fori=6To40Step2 PrintGDBH(i) Nexti EndSub 8.FunctionisQO(ByValxAsInteger)AsString IfxMod2=0Then isQO=”偶数” Else isQO=”奇数” EndIf EndFunction 9.FunctionF1(ByValxAsInteger)AsBoolean IfxMod17=0andxMod37=0Then F1=True Else F1=False EndIf EndFunction PrivateSubForm_Click() Fori=1000To2000 IfF1(i)Then Printi Endif Nexti EndSub 10.SubF1(a()AsInteger,ByValL1AsInteger,ByValL2As Integer) DimL%,U%,x%,i% L=LBound(a): U=UBound(a) IfL1>UOrL2>UThen Print"位置输入错误! " ExitSub EndIf IfL1>L2Then x=a(L1) Fori=L1ToL2+1Step-1 a(i)=a(i-1) Nexti a(L2)=x ElseIfL2>L1Then x=a(L1) Fori=L1ToL2-1 a(i)=a(i+1) Nexti a(L2)=x EndIf EndSub 第九章习题参考答案 一、选择题: 1—3: ADD 二、填空题 1.下拉式弹出式2.PopupMenu 3.VisibleEnabled4.- 三、编程题(略) 第十章习题参考答案 一、选择题: 1—3: DBD 二、填空题 1.Load2.窗体模块标准模块类模块 3.DoEvents 三、编程题 1.(略) 2.FunctionF(ByValx&,ByValY&)AsInteger Dimt&,r& Ifx x=y: y=tR=xMody DoWhileR<>0 X=y Y=r R=xMody Loop F=y EndFunction PrivateSubCommand1_Click() Text3=Val(Text1)/F(Val(Text1),Val(Text2)) Text4=Val(Text2)/F(Val(Text1),Val(Text2)) EndSub 第十一章习题参考答案 一、选择题: 1—3: DDA 二、填空题 62.ABA 三、编程题 1.PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,x AsSingle,YAsSingle) Text1=x: Text2=Y EndSub 2. DimstartX,StartYAsInteger‘在通用中申明 PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,xAs Single,YAsSingle) IfButton=2Then startX=x: StartY=Y EndIf EndSub PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,xAs Single,YAsSingle) IfButton=1Then PSet(x,Y),RGB(0,0,0) EndIf EndSub PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,xAs Single,YAsSingle) IfButton=2Then Dimr%,c% DimEndX,EndYAsInteger EndX=x: EndY=Y c=RGB(0,0,0) r=Sqr((EndX-startX)^2+(EndY-StartY)^2) Form1.Circle(startX,StartY),r,c EndIf EndSub 第十二章习题参考答案 一、选择题: 1—8: BBABBCCA 9.IHFCLGEBAJKD 二、填空题 1.Drive2.PathPrintDir1.Path 3.Path4.Hiddensystem 5.顺序文件随机文件二进制文件 6.FreeFile 7.Close#1 8.Open“c: \samples\readme.txt”ForOutputAS#3 9.Open“c: \autoexec.bat”ForIntputAS#4 10.Open“c: \samples\xscj.dat”ForRandomAS#3Len=54 11.Open“smtext1.txt”ForBinaryAS#1 12.ForInputEof (1) 13.KeyAsciiEND(或者EndendeNdenD)Text1.text 三、编程题 1.‘在标准模块中定义 Typestu IDAsString*12 nameAsString*8 z1AsString*12 z2AsString*12 sexAsString*2 jcAsBoolean scoolAsString*20 sxAsInteger ywAsInteger yyAsInteger wlAsInteger zfAsInteger EndType DimpAsstu‘在通用中定义 PrivateSubCmdAppend_Click() p.ID=Text1 p.name=Text2 p.z1=Text3 p.z2=Text4 p.scool=Text5 IfOption1.Value=TrueThenp.sex="男" IfOption2.Value=TrueThenp.sex="女" IfCheck1.Value=1Thenp.jc=TrueElsep.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 EndSub PrivateSubCmdDisplay_Click() Get#1,Val(txtRecord_No),p Text1=p.ID: Text2=p.name Text3=p.z1: Text4=p.z2 Text5=p.scool Ifp.sex="男"ThenOption1.Value=TrueElseOption2.Value=True Ifp.jc=TrueThenCheck1.Value=1ElseCheck1.Value=0 Text6=p.sx: Text7=p.yw Text8=p.yy: Text9=p.wl Text10=p.zf EndSub PrivateSubCommand3_Click() Text1="": Text2="" Text3="": Text4="" Text5="": Text6="" Text7="": Text8="" Text9="": Text10="" EndSub PrivateSubForm_Load() OpenApp.Path&"\stu.dat"ForRandomAs#1Len=Len(p) EndSub PrivateSubForm_Unload(CancelAsInteger) Close#1 EndSub PrivateSubText10_GotFocus() Text10=Val(Text6)+Val(Text7)+Val(Text8)+Val(Text9) EndSub PrivateTypebooks idAsString*10 nameAsString*8 sexAsString*2 mathAsInteger engAsInteger eleAsInteger EndType ‘成绩输入 PrivateSubCommand1_Click() DimbAsbooks Open"c: \stu.dat"ForAppendAs#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#1 EndSub ‘不及格人员输出 PrivateSubCommand2_Click() Dima,b,c Open"c: \stuo.dat"ForInputAs#1 WhileNotEOF (1) Input#1,a,b,c Ifc="数学"ThenList1.AddItemb Ifc="英语"ThenList2.AddItemb Ifc="电子"ThenList3.AddItemb Wend Close#1 EndSub ‘将不及格人选出存入stuo.dat PrivateSubCommand3_Click() Dima,b,c,d,e,f Dimk% Open"c: \stu.dat"ForInputAs#1 Open"c: \stuo.dat"ForOutputAs
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序设计 教程 第四 课后 答案