vb课后习题答案.docx
- 文档编号:16632802
- 上传时间:2023-07-15
- 格式:DOCX
- 页数:16
- 大小:20.64KB
vb课后习题答案.docx
《vb课后习题答案.docx》由会员分享,可在线阅读,更多相关《vb课后习题答案.docx(16页珍藏版)》请在冰点文库上搜索。
vb课后习题答案
vb课后习题答案
第一章 习题参考答案
一、 填空题
1、对象 事件驱动
2、编译运行模式 解释运行模式
二、 简答题
1、 简述VB的特点。
答:
①可视化的程序设计方法
②面向对象的程序设计思想
③事件驱动的编程机制
④结构化的程序设计语言
⑤高度的可扩充性
⑥强大的数据库访问能力
⑦支持动态数据交换
⑧支持对象链接与嵌入
2、简述VB的安装过程。
答:
①向光驱中放入VB安装光盘;
②计算机将运行自动安装程序,若没有,执行VB目录下的Setup.exe;
③根据提示逐一回答问题,并点击“下一步”;
④点击“完成”;
2、 如何启动VB。
答:
三种方法:
①单击“开始”按钮,选择“程序”菜单下的“MicrosoftVisualBasic6.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)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
8、
(1)19
(2)8.166********667
(3)5.25 (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)
第四章 习题参考答案
一、选择题:
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.1 2 3 3.2 2 3 4.160 5.9
6.78 7.x<=5(或x<6 或 x<7) 8.B
9.iSum iSum+j 1250
三、编程题
1.PrivateSubForm_Click()
Dimi%,s%
S=0
Fori=101To200step2
If imod3<>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.Interval Label1.caption=time 2.List1.ListCount InterVal Hscroll1.Max 三、编程题 第七章 习题参考答案 一、选择题: 1—12: DCADD BBDAC CB 二、填空题 1.42 2.Index 3.41 4.A(i)=a(11-i) a(11-i)=Tmp 5.1 6.XMod7=0 7.210 8.0To8 i+1To9 9.3 K 1 10.1001 Max MaxMax) 三、编程题 1.Private SubC1_click() IfOP1(0).Value=TrueThenP1.Print“选择了椭圆形” IfOP1 (1).Value=TrueThenP1.Print“选择了圆形” IfOP1 (2).Value=TrueThenP1.Print“选择了正方形” EndSub 2.统计按钮名为Command1,输入框名为text1,输出框为text2(MultLine设为True) Private SubCommand1_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)中。 Private SubCommand1_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.a Ubound(b) n=n-1 2.Key=a(i) Index=-1 三、编程题 1.子过程 SubP1(x AsSingle,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 子函数 Function P2(x AsSingle,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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 课后 习题 答案