《VB程序设计基础》习题答案.docx
- 文档编号:3086150
- 上传时间:2023-05-05
- 格式:DOCX
- 页数:21
- 大小:62.30KB
《VB程序设计基础》习题答案.docx
《《VB程序设计基础》习题答案.docx》由会员分享,可在线阅读,更多相关《《VB程序设计基础》习题答案.docx(21页珍藏版)》请在冰点文库上搜索。
《VB程序设计基础》习题答案
P16习题一
一,判断题 1,错 2,对 3,错 4,错 5,6,7,对
二,单选题 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
P42 习题二
一,判断题
1,2,3,7,10, 对
4,5,6,8,9,11,12,13,14 错
二,单选题
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^2+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)5+6*x/(3*(x^2-1)-2*x)
(8)Sqr(y^3+3*(a^2+b^2)/(x^2+y^2))
2.
(1)(a+b)Modc
(2)Sqr(Abs(x))
(3)Int(x)+1(4)Int(Rnd*101)+200
3.PrivateSubForm_Click()
DimaAsInteger,bAsInteger
DimcAsInteger,yAsLong
a=InputBox("请输入a的值")
b=InputBox("请输入b的值")
c=InputBox("请输入c的值")
y=a^2+2*b^2+2*c^2
Print"y=";y
EndSub
4。
(1) F
(2)T (3)F (4) T
5.
(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
DimcAsInteger,yAsSingle
a=InputBox("请输入正整数a的值")
b=InputBox("请输入正整数b的值")
c=InputBox("请输入正整数c的值")
y=(a+b+c)/3
Print"平均值y=";y
EndSub
2.PrivateSubForm_Click()
DimrAsInteger,sAsSingle
ConstPi=3.14159
r=InputBox("输入圆半径","输入",10)
s=Pi*r*r
MsgBox"圆面积Area="&Str(s)
EndSub
P78习题三
一, 1,A 2,B 3,B 4,A 5,C
二, 1, 37,55,64,28,19
2, y=KIGECA
3, 1
121
12321
4, cHINA!
三, 1, t As Double
s=1
Abs(t)>=1e-5
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()
DimiAsInteger,flagAsInteger
DimtAsDouble,yAsDouble
y=0
flag=1
t=0.5
i=1
WhileAbs(t)>=0.00001
t=1/i/(i+1)
y=y+flag*t
flag=-flag
i=i+1
Wend
Print"y=";y
EndSub
Y=0.5669
3.
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
4.
PrivateSubCommand1_Click()
Fori=1To9
Forj=1Toi
Printi;"*";j;"=";i*j;
Nextj
Nexti
EndSub
5.
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
P104练习四
一、单选题
1,D2,C3,C4,C5,D
二、程序阅读题
1,12109
2,0
1
123
2
3、div=3
三、程序填空题
1、
Len(str1)
Mid(str1,i,1)
p=j
i<>p
2、
l=Len(St$)
a(i)=Mid(St$,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
Fori=1To50
a(i)=Int(Rnd*71)+30
Printa(i);
IfiMod5=0ThenPrint
Nexti
Min=a
(1):
Max=a
(1):
s=0
Fori=2To50
IfMin>a(i)ThenMin=a(i)
IfMax s=s+a(i) Nexti Print"max=";Max,"min=";Min,"average=";s/50 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 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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB程序设计基础 VB 程序设计 基础 习题 答案
文档标签
- 程序设计基础作业答案
- VB基础教程
- vb程序设计试题答案
- VB试题答案基础篇VB试题答案
- VB程序设计基础VB程序设计基础
- 程序设计基础习题
- 程序设计基础VB程序设计基础VB
- VisualBasic程序设计基础习题答案Basic程序设计
- 程序设计基础复习题A程序设计基础复习题
- VB程序设计基础
- vfP程序设计基础习题集
- 程序设计基础习题答案
- VB程序设计基础简单
- 程序设计基础理论练习题答案
- 程序设计基础第4版习题解答程序设计基础习题
- vb程序设计习题参考
- 程序设计语言VB习题集答案
- 基础工程作业答案
- 接口程序设计作业答案
- 程序设计基础程序设计基础作业
- C++程序设计基础C++程序设计基础
- C++程序设计基础程序
- 程序设计基础作业考核
- C#程序设计基础入门教程C#程序设计基础