《VB程序设计基础与VBA应用》18章参考答案.docx
- 文档编号:25499313
- 上传时间:2023-06-09
- 格式:DOCX
- 页数:24
- 大小:290.10KB
《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
Nexti
EndSub
4.
PrivateSubForm_Click()
Fori=1To5
PrintTab(6-i);
Forj=1To2*i-1
Print"*";
Nextj
Nexti
Fori=4To1Step-1
PrintTab(6-i);
Forj=1To2*i-1
Print"*";
Nextj
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=1Andmax max=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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB程序设计基础与VBA应用 VB 程序设计 基础 VBA 应用 18 参考答案