vb报告册答案高等教育出版社王贺明主编文档格式.docx
《vb报告册答案高等教育出版社王贺明主编文档格式.docx》由会员分享，可在线阅读，更多相关《vb报告册答案高等教育出版社王贺明主编文档格式.docx（23页珍藏版）》请在冰豆网上搜索。
Height、Width
twip
5.picture
6.load
7.locked
8.font
Alignment
9.GotFocus（）
LostFocus（）
10.属性窗口
程序代码
实验三：
1.A2.BC3.BC4.A5.A
6.A7.BCD8.D9.B10.B
11.B
二、判断题
不合法的变量：
3.4.5.6.8.10.11.14.15.16.
三、
1、abs（x+y）
2.（3+x*y）^2
3.（-b+sqr（b^2-4*a*c））/（2*a）
4.sin（30*3.14/180）+exp
（2）
四、
1.int（rnd*71+20）或int（rnd*71）+20
2.x<
0andy>
0orx>
0andy<
0或者x*y<
3.xmod3=0orxmod7=0
或x/3=x\3orx/7=x\7
4.x>
=10andx<
20
5.x>
="
A"
andx<
Z"
6.left（s,3）
实验四：
1.C2.D3.C4.D5.A
6.D7.B8.B9.A10.C
1.48.71E-01,-4.8712
2.
关系、逻辑、算术
3.900，100，mid（s,2,1）
4.m、1,2,3、printm&
"
月是第二季度"
、endselect
1.
X=4
y=13
10
实验五
B
C
A
C
（1）forx=2to10
s*（1-1/x）
（2）
1
t>
1E-6
（3）
j
t
（4）
5
11
5
实验六
BCCCD
D
DDCA
实验七
1C
2C
3D
4A
5B
6D
7AB
8A
9A
10A
（1）n！
（2）1+1+2+3+4+……+n
（3）n是否是素数
（4）冒泡排序
（5）递归调用产生斐波那契数列
（6）求最大公约数和最小公倍数
Image1.Top=Int（Rnd*（Form1.ScaleHeight-Image1.Height））
EndSub
第11页编程
2-3
PrivateSubCommand1_Click（）
Dimx%,y%
x=Int（Rnd*900+100）
Print"
产生的随机数：
"
;
x
y=（xMod10）*100+（x\10Mod10）*10+x\100
反序数：
Format（y,"
000"
）
PrivateSubCommand2_Click（）
Dimx%,yAsString
y=Trim（Str（x））
&
Right（y,1）&
Mid（y,2,1）&
Left（y,1）
PrivateSubForm_Load（）
2-4
Dimm%,n%
Randomize
m=Val（Text1）:
n=Val（Text2）
x=Int（Rnd*（n-m+1）+m）
y=Int（Rnd*（n-m+1）+m）
z=Int（Rnd*（n-m+1）+m）
Label3=m&
到"
n&
之间的3个随机数为:
x&
Space（3）&
y&
z
2-5
Label1.Caption=Date
Label2.Caption=Time
PrivateSubCommand3_Click（）
Label3.Caption=WeekdayName（Weekday（Date））
第十五页
2-1
方法一
Dimx!
a!
aa%,b!
bb%,c!
cc$
x=Val（Text1）
a=x*180/3.14
aa=Int（a）
b=（a-aa）*60
bb=Int（b）
c=（b-bb）*60
cc=Format（c,"
#.000"
Label2="
弧度"
Text1&
转换为"
aa&
度"
bb&
分"
cc&
秒"
方法二
x=InputBox（"
请输入弧度数值"
"
弧度转换"
0）
xx=Val（x）
MsgBox"
2-2
Dimx%
Ifx/400=x\400OrxMod4=0AndxMod100<
>
0Then
Label2=Text1&
年是闰年"
Else
年不是闰年"
EndIf
Dimx%,y%,z%
输入第一个数"
y=InputBox（"
输入第二个数"
z=InputBox（"
输入第三个数"
Ifx>
yThent=x:
x=y:
y=t
Ify>
zThent=y:
y=z:
z=t
Printx,y,z
y=Val（Text2）
z=Val（Text3）
zThen
t=y:
yThen
t=x:
Label1=x&
Space（5）&
x=Val（InputBox（"
请输入上网时间:
））
Ifx<
-1Then
SelectCasex
CaseIs<
fei=25
Case10To50
fei=x*2
Case50To100
fei=x*1.5
CaseIs>
=100
fei=x*1
EndSelect
上网费用为:
fei&
元"
End
Do
,-1））
zongfei=zongfei&
fei
MsgBoxzongfei,,"
上网费用为"
ExitDo
Loop
第18页
n=0
IfnMod2=1AndnMod3=2AndnMod5=4AndnMod6=5AndnMod7=0ThenExitDo
n=n+1
Printn
EndSub]
y=x*4
DoWhilex<
=y
x=x*（1+0.1）
Printx
Printx,n
2-6
n=Val（InputBox（"
输入计算到第几项:
,0））
Fori=1Ton
s=s+（-1）^（i+1）*i
Next
Printn,s
PrivateSubForm_Load（）-8
2-8
DimsAsDouble,piAsDouble
n=1:
s=0
DoWhile1/（2*n-1）>
=0.0001
s=s+（-1）^（n+1）*1/（2*n-1）
pi=4*s
Printpi
2-9
Forn=100To999
k=Trim（Str（n））
Ifn=Left（k,1）^3+Mid（k,2,1）^3+Right（k,1）^3ThenPrintn
2-11
s=0:
Max=0:
Min=1000
Fori=1To20
x=Int（Rnd*50+51）
Printx;
MaxThenMax=x
MinThenMin=x
s=s+x
Nexti
aver=s/20
Print
max="
Max,"
min="
Min,"
aver="
aver
第八页编程
Label3=Val（Text1）*Val（Text2）
Label3=Val（Text1）/Val（Text2）
Picture1.Picture=LoadPicture（"
d:
\tu1.jpg"
\tu2.jpg"
Picture1.Visible=False
Image1.Picture=LoadPicture（"
\DocumentsandSettings\AllUsers\Documents\MyPictures\示例图片\Sunset.jpg"
Timer1.Enabled=True
Timer1.Enabled=False
PrivateSubImage1_Click（）
PrivateSubTimer1_Timer（）
Image1.Left=Int（Rnd*（Form1.ScaleWidth-Image1.Width））
Ifx/400=x\400Or
升级会员 