《VB程序设计基础与VBA应用》18章参考答案.docx
《《VB程序设计基础与VBA应用》18章参考答案.docx》由会员分享，可在线阅读，更多相关《《VB程序设计基础与VBA应用》18章参考答案.docx（24页珍藏版）》请在冰豆网上搜索。
《VB程序设计基础与VBA应用》18章参考答案
《VB程序设计基础与VBA应用》
P28习题一
二，单选题 1，B 2，B 3，D 4，A 5，D 6，B 7，B 8,C 9,D
三,程序设计题
5,PrivateSubCommand1_Click（）
Form1.FontName="宋体"
Form1.Print"中文字体宋体"
EndSub
PrivateSubCommand2_Click（）
Form1.FontName="楷体"
Form1.Print"中文字体楷体"
EndSub
PrivateSubCommand3_Click（）
Form1.FontName="仿宋"
Form1.Print"中文字体仿宋"
EndSub
P57 习题二
一，判断题
对:
1,3，7，10，14
错:
2，4，5，6，8，9，11，12，13
二，单选题
1，A 2，C 3，C 4，B 5，B
6，A 7，B 8，C 9，B 10，C
11，C 12，D 13，B 14，A 15，D
16，B 17，B 18，C 19，B 20，B
21，B 22，D 23，A 24，C 25，B
26，A 27，D 28，B
三，简答题
1.
（1）2*Cos（alfa）*Sin（alfa/（2*a）
（2）Sqr（s*（s–a）*（s–b）*（s-c））
（3）（A*A+B*C*（X+Y））/（A+B）
（4）（2*3.14159*r+Exp（-5））*Log（x）
（5）1/（x+1/（y+1））
（6）k/（1+a*Exp（-b*x））
（7）Cos（alfa）^2+Atn（alfa）
（8）Sqr（y^3+3*（a*a+b*b）/（x*x+y*y））
2.
（1）（a+b）Modc
（2）Sqr（Abs（x））
（3）Int（x）+1（4）Int（Rnd*101）+200
3。
（1） F
（2）T （3）F （4） T
4．
（1）1<=xAndx<12
（2）T+3<>V-2And（T+V）>100
（3）（a+b）>=cor（a-c）<=c
（4）a>0AndInt（a）=aAndb>0AndInt（b）=bora<0Andb<0
（5）x<=yOrx>=z
（6）a=0Andb<>0ora<>0Andb=0
四,编程题
1.PrivateSubForm_Click（）
DimaAsInteger,bAsInteger,cAsInteger
DimyAsSingle
a=InputBox（"请输入正整数a的值"）
b=InputBox（"请输入正整数b的值"）
c=InputBox（"请输入正整数c的值"）
y=（a+b+c）/3
Print"平均值:
";y
EndSub
2．
PrivateSubCommand1_Click（）
DimaAsInteger,bAsInteger,cAsInteger
DimyAsSingle
a=Val（Text1.Text）
b=Val（Text2.Text）
c=Val（Text3.Text）
y=（a+b+c）/3
Label1.Caption=Str（y）
EndSub
3.PrivateSubForm_Click（）
DimrAsInteger,sAsSingle
ConstPi=3.14159
r=InputBox（"输入圆半径"）
s=Pi*r*r
MsgBox"圆面积Area="+Str（s）
EndSub
P114习题三
一， 1，A 2，B 3，B 4，A 5，C
二，1， 37，55，64，28，19
2， y=KIGECA
3， 1
121
12321
1234321
123454321
4， cHINA！
三， 1， t As Double
s=1
Abs（t）>=0.00001
s=s+t
2, s+c
-1
s
3, m=n
mTon
Sum=Sum+j
Sum=i
四，1，
PrivateSubForm_Click（）
DimxAsSingle,fAsSingle
x=InputBox（"输入x:
"）
Ifx<-5Then
f=3*x*x+2*x-1
ElseIfx<=5Then
f=x*Sin（x）+2^x
Else
f=Sqr（x-5）+Log（x）/Log（10）
EndIf
Label1.Caption=f
EndSub
2.
PrivateSubForm_Click（）
DimnAsInteger,iAsInteger,flagAsInteger,sAsSingle,tAsInteger
n=InputBox（"请输入n的值：
"）
sum=0
t=1
flag=-1
Fori=1Ton
flag=-flag
t=t*i
s=s+flag*i/t
Nexti
Print"s=";s
EndSub
3.
PrivateSubCommand1_Click（）
Fori=1To9
Forj=1Toi
Printi;"*";j;"=";i*j;
Nextj
Print
Nexti
EndSub
4.
PrivateSubForm_Click（）
Fori=1To5
PrintTab（6-i）;
Forj=1To2*i-1
Print"*";
Nextj
Print
Nexti
Fori=4To1Step-1
PrintTab（6-i）;
Forj=1To2*i-1
Print"*";
Nextj
Print
Nexti
EndSub
P152练习四
一、单选题
1，B2,D3,C4,C5,D
二、程序阅读题
1，2471116
2,1491625
3，2345
3456
4567
4，12109
5，div=3
三、程序填空题
1、
Len（str1）
Mid（str1,i,1）
p=j
i<>p
2、
l=Len（str）
a（i）=Mid（str,i,1）
p=s-96
x（p）=x（p）+1
3、
a（1To4,1To5）
s=0
a（i,5）=s/4
四，程序设计题
1，
PrivateSubForm_Click（）
Dima（50）AsInteger,iAsInteger,jAsInteger,sumAsInteger
DimmaxAsInteger,minAsInteger,averAsSingle
sum=0
Fori=1To50
a（i）=Int（Rnd*71）+30
sum=sum+a（i）
Nexti
aver=sum/50
Fori=1To50
Printa（i）;
IfiMod5=0ThenPrint
Nexti
max=a
（1）:
min=a
（1）
Fori=2To50
Ifa（i）>maxThenmax=a（i）
Ifa（i）Nexti
Print"最大值：
";max,"最小值：
";min,"平均值";aver
EndSub
2.
PrivateSubForm_Click（）
DimmaxAsInteger,minAsInteger
Dima（）AsInteger
n=Val（InputBox（""））
ReDima（n）AsInteger
Fori=1Ton
a（i）=Int（Rnd*100）
Printa（i）;
Nexti
Fori=1Ton
Ifa（i）Mod2=0Thenmin=a（i）Elsemax=a（i）
Ifmin<>0Andmax<>0ThenExitFor
Nexti
Fori=1Ton
Ifa（i）Mod2=0Andmin>a（i）Then
min=a（i）
ElseIfa（i）Mod2=1Andmaxmax=a（i）
EndIf
Nexti
Print"max=";max,"min=";min
EndSub
3.
冒泡法：
PrivateSubForm_Click（）
Dima（10）AsInteger
Fori=1To10
a（i）=Int（Rnd*90）+10
Printa（i）;
Nexti
Print
Fori=1To9
Forj=1To10-i
Ifa（j）a（j）=a（j+1）:
a（j+1）=t
Nextj
Nexti
Fori=1To10
Printa（i）;
Nexti
EndSub
选择法：
PrivateSubForm_Click（）
Dima（10）AsInteger
Fori=1To10
a（i）=Int（Rnd*90）+10
Printa（i）;
Nexti
Print
Fori=1To9
Forj=i+1To10
Ifa（i）a（i）=a（j）:
a（j）=t
Nextj
Nexti
Fori=1To10
Printa（i）;
Nexti
EndSub
4、
PrivateSubForm_Click（）
Dima（100）AsInteger,score（5）AsInteger
Fori=1To100
a（i）=Int（Rnd*66）+35
Printa（i）;
Nexti
Print
Fori=1To20
Ifa（i）>=90Then
score
（1）=score
（1）+1
ElseIfa（i）>=80Then
score
（2）=score
（2）+1
ElseIfa（i）>=70Then
score（3）=score（3）+1
ElseIfa（i）>=60Then
score（4）=score（4）+1
Else
score（5）=score（5）+1
EndIf
Nexti
Fori=1To5
Printscore（i）
Nexti
EndSub
P182练习五
一．对：
1，2，3,4，6，7，9
错：
5，8
二．1，D2，C3，A4，B5，D6，A7，（全错）8，D
三．
1，DDBB
2，
1）Int（Rnd*21）+30
2）Forj=i+1To10
3）CallSwap（a（i）,a（j））
4）a（10）
3，
1）IfIsprime（i）AndIsprime（x-i）Then
2）Isprime=True
3）IfxModi=0Then
四，
1．976
2，4
-9
3，646
483642
4，26
9
五，
1、
PrivateSubCommand1_Click（）
Dima（）AsSingle,nAsInteger,sAsSingle
DimvAsSingle,iAsInteger
n=InputBox（"请输入n的值"）
ReDima（n）
Fori=1Ton
a（i）=InputBox（""）
Nexti
v=f（a,n）
Fori=1Ton
s=s+（a（i）-v）^2
Nexti
s=Sqr（s）/n
Prints
EndSub
2，
Privatefunctionfsum（x（）AsSingle,mAsbyte）assingle
fsum=x
（1）
Fori=2Tom
Fsum=fsum+x（i）
NextI
Endfunction
P213练习六
一，单选题
1，A2，A3，C4，C5，C6，B7，A8，A
二，阅读题
1．代码1
代码2
2，
3．
4．
5．
三，程序设计题
1．
PublicSubRectangle（ByValaAsSingle,ByValbAsSingle,yAsSingle）
DimyAsSingle
y=a*b
EndSub
2．
PublicFunctionRound（ByValrAsSingle）AsSingle
Round=3.14159*r*r
EndFunction
P269书面练习7
二．程序阅读题
1,保存所有打开的工作簿，关闭ExceL
2,实现定时提醒，17：
00显示一个提醒信息。
3,查找工作表“KK”，若有，则结束过程，否则，在第一张工作
前添加工作表“KK”
4,
5．
6
6．把工作表指定区域的数化为以万为单位（输入小数位数）
7．在当前工作表的第2行以下第3列中输入或修改单元格内容，则自动转换
成“编号”工作表中A2以下A列中相同内容的单元格的右边单元格的内容。
3．程序设计题
1，
SubWorkbook_BeforeClose（CancelAsBoolean）
DimiAsInteger,jAsInteger,kAsString
Fori=66To68
Forj=3To12
k=Chr（i）&j
IfRange（k）.Value<0OrRange（k）.Value>100Then
Cancel=True
MsgBox"成绩应该在0~100之间，否则，不允许关闭工作簿!
"
EndIf
Nextj
Nexti
EndSub
2.
PrivateSubChFmt（）
DimiAsLong,jAsLong
IfCells（i,j）.Value<60AndCells（i,j）.Value>0Then
Cells（i,j）.Font.Color=RGB（255,0,0）
Cells（i,j）.Font.Bold=True
EndIf
Nextj
Nexti
EndSub
3,
PrivateSubWorkbook_Open（）
DimiAsInteger,jAsInteger
Fori=1To10
Forj=1To10
Worksheets（"sheet1"）.Cells（i,j）=Int（Rnd（）*90）+10
Nextj
Nexti
EndSub
Subbs6（）
DimiAsInteger,jAsInteger,kAsInteger
k=1
Fori=1To10
Forj=1To10
IfWorksheets（"sheet1"）.Cells（i,j）Mod6=0Then
Worksheets（"sheet2"）.Cells（k,1）=Worksheets（"sheet1"）.Cells（i,j）
k=k+1
EndIf
Nextj
Nexti
EndSub
4,
Subzz（）
DimiAsInteger,jAsInteger
DimmAsInteger,nAsInteger
m=InputBox（""）
n=InputBox（""）
Fori=1Tom
Forj=1Ton
Worksheets（"sheet1"）.Cells（i,j）=Int（Rnd（）*90）+10
Nextj
Nexti
Fori=1Tom
Forj=1Ton
Worksheets（"sheet2"）.Cells（j,i）=Worksheets（"sheet1"）.Cells（i,j）
Nextj
Nexti
EndSub
P311书面练习八
一．判断题
对：
1，5，6，7，9，10
错：
2，3，4，8
二．程序填空题
1，
PrivateSubWorkbook_Open（）
frmstart.Show
EndSub
PrivateSubclosestart（）
UnloadMe
EndSub
第1段代码应写在Thisworkbook模块里
第3段代码写在模块里
2，
Cells（i,1）
Loop
三，编程题
PrivateSubShowTime（）
'定义"显示时间"按钮事件
MsgBoxNow
EndSub
PrivateSubWelcome（）
'定义"显示欢迎"按钮事件
MsgBox"感谢您使用自定义菜单"
EndSub
PrivateSubsheetCount（）
'定义"显示工作表数"按钮事件
DimisheetcountAsInteger
isheetcount=Worksheets.Count
MsgBoxisheetcount
EndSub
SubShowProduct（）
'显示本文档的文件名
MsgBoxThisWorkbook.Name
EndSub
PublicSubCreateToolbar（）
'创建工具栏
OnErrorResumeNext
CommandBars（"ManageData"）.Delete
OnErrorGoTo0
'下面代码用于创建工具栏中的按钮及关联事件
WithCommandBars.Add（Name:
="ManageData"）
With.Controls.Add（Type:
=msoControlButton）
.OnAction="ShowDataForm"
.FaceId=264
.TooltipText="显示时间"
EndWith
With.Controls.Add（Type:
=msoControlPopup）
.Caption="操作按钮"
.TooltipText="选项"
With.Controls.Add（Type:
=msoControlButton）
.Caption="显示产品"
.FaceId=210
.OnAction="ShowProduct"
EndWith
With.Controls.Add（Type:
=msoControlButton）
.Caption="显示工作表数"
.FaceId=210
.OnAction="SortList"
EndWith
EndWith
With.Controls.Add（Type:
=msoControlDropdown）
.AddItem"10"
.AddItem"20"
.AddItem"50"
.AddItem"100"
.OnAction="zoomSize"
.TooltipText="视图显示比例"
EndWith
.Visible=True
EndWith
EndSub
'下面用于响应"视图显示比例"事件
SubzoomSize（）
DimstDeptAsString
WithCommandBars.ActionControl
stDept
升级会员 