郑州大学VB实验报告书 参考 答案Word格式文档下载.docx
《郑州大学VB实验报告书 参考 答案Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《郑州大学VB实验报告书 参考 答案Word格式文档下载.docx（27页珍藏版）》请在冰豆网上搜索。
郑州大学在前进!
"
1-4（基本设置在属性窗口完成！
PrivateSubCommand4_Click（）
Label1="
蓝天、白云、绿水、青山"
实验二
一
BCBCC,CBBDA,CCCBA,CBDCC
二
form_click（）
interval,5000
vbp,frm
top,left,height,width,像素
picture
locked
font,alignment
gotfocus,lostfocus
属性窗口，代码
三
2-1
Label3=Text1*Text2
Label3=Text1/Text2
2-2
Picture1.Visible=True
Picture1=LoadPicture（"
C:
\DocumentsandSettings\AllUsers\Documents\MyPictures\示例图片\Waterlilies.jpg"
\DocumentsandSettings\AllUsers\Documents\MyPictures\示例图片\Winter.jpg"
Picture1.Visible=False
2-3
2-4
Text2=Text1
Text1="
Text2="
PrivateSubText1_Change（）
Command1.Visible=True
Command2.Visible=True
2-5
Timer1.Interval=500
Timer1.Interval=0
PrivateSubTimer1_Timer（）
Image1.Left=Int（Rnd*（Form1.ScaleWidth-Image1.Width））
Image1.Top=Int（Rnd*（Form1.ScaleHeight-Image1.Height））
实验三
A（BC）（BC）AA,A（BCD）DBB,B
3，4，5，6，8，10，11，12，14，15，16
abs（x+y）
（3+x*y）^2
（-b+sqr（b^2-4*a*c）/（2*a）
sin（30*3.14/180）+exp
（2）
四
int（rnd*71+20）
x*y<
xmod3=0orxmod7=0
x>
=10andx<
20
="
A"
andx<
Z"
left（s,3）或者,mid（s,1,3）
五
3-2
DimxAsSingle
x=Val（Text1）
PrintFormat（x^2,"
##.000"
）,Format（Sqr（x）,"
）,Format（x^3,"
）,Format（x^（1/3）,"
3-3
DimxAsInteger
x=Int（Rnd*900+100）
Text1=Trim（Str（x））
Text2=Right（Text1,1）+Mid（Text1,2,1）+Left（Text1,1）
3-4
Dimmax,minAsInteger
min=Val（Text1）
max=Val（Text2）
Randomize
PrintInt（Rnd*（max-min+1）+min）,Int（Rnd*（max-min+1）+min）,Int（Rnd*（max-min+1）+min）
3-5
Text1=Date
Text2=Time
Text3=WeekdayName（Weekday（Date））
实验四
CDCDA,DBBAC
（1）48.71E-01,-4.8712
（2）关系，逻辑，数值
（3）900，100，mid（a,2,1）,c
（4）
m
1,2,3
printm&
"
月是第二季度"
endselect
（1）x=4
y=13
（2）10
4-1
Dimnum,a1,a2,a3AsSingle
num=Val（Text1）*180/3.14
a1=Int（num）
num=num-a1
a2=Int（num*60）
num=num*60-a2
a3=Format（num*60,"
Printa1,a2,a3
4-2
DimyAsInteger
y=Val（Text1）
If（yMod400=0OryMod4=0AndyMod100<
>
0）Then
MsgBoxy&
是闰年"
Else
不是闰年"
EndIf
4-3
Dimx,y,z,tAsInteger
x=Val（InputBox（"
inputx:
））
y=Val（InputBox（"
inputy:
z=Val（InputBox（"
inputz:
Ifx>
yThent=x:
x=y:
y=t
Ify>
zThen
t=y:
y=z:
z=t
Ifx>
Printx,y,z
4-4
DimnettimeAsInteger,moneyAsSingle
nettime=Val（InputBox（"
每月上网时数：
"
上网费用"
Ifnettime=-1Then
money=0
ElseIfnettime<
10Then
money=25
50Then
money=nettime*2
100Then
money=nettime*1.5
200Then
money=nettime
money=200
Ifmoney<
0ThenMsgBox"
该月上网费用为"
&
money&
元"
实验五
BCBAC
（1）forx=1to10
s*（1-1/x）
（2）
t<
1E-6
（3）
j
t
5
11
5
5-1
Dimi,sumAsInteger
sum=0
Fori=1To100
sum=sum+i
1+2+...+100="
;
sum
5-2
Dimx,yAsInteger
Forx=0To20
Fory=0To33
If5*x+3*y+（100-x-y）/3=100Then
Printx,y,100-x-y
EndIf
Nexty
Nextx
5-3
DimiAsInteger
i=7
Do
IfiMod2=1AndiMod3=2AndiMod5=4AndiMod6=5AndiMod7=0Then
Printi
ExitDo
i=i+7
Loop
5-4
Dimx,y,zAsInteger
Forx=1To9
Fory=1To9
Forz=0To9
If100*x+10*x+z+100*y+10*z+z=532Then
Nextz
5-5
DimsumAsSingle,nAsInteger
sum=1
DoWhilesum<
=4
sum=sum*1.1
n=n+1
经过"
n;
年销售收入翻两番"
5-6
Dimsum,i,nAsInteger
n=Val（InputBox（"
请输入n的值：
Fori=1Ton
sum=sum+i*（-1）^（i+1）
1-2+3-4+...="
5-7
Dimsum,isum,i,nAsInteger
isum=0
isum=isum+i
sum=sum+isum
1+（1+2）+（1+2+3）+...="
5-8
Dimpi,tiAsSingle
pi=0
ti=1
i=1
DoWhileAbs（ti）>
=0.0001
ti=（-1）^（i+1）/（2*i-1）
pi=pi+ti
i=i+1
5-9
Dimi,j,kAsInteger
水仙花数有：
Fori=1To9
Forj=0To9
Fork=0To9
Ifi*100+j*10+k=i^3+j^3+k^3Then
Printi,j,k
Nextk
Nextj
5-10
k=0
Fori=999To100Step-1
Forj=2ToInt（Sqr（i））
IfiModj=0ThenExitFor
Ifj=Int（Sqr（i））+1Thenk=k+1:
Ifk=3ThenExitFor
5-11
Dimi,n,min,maxAsInteger
DimaverAsSingle
min=100
max=50
Fori=1To20
n=Int（Rnd*（99-51）+51）
Printn;
IfiMod5=0ThenPrint
Ifn>
maxThenmax=n
Ifn<
minThenmin=n
aver=aver+n
max="
max
min="
min
average="
aver/20
5-12
PrivateSubCommand12_Click（）
Dimi,jAsInteger
Fori=1To5
Forj=1To（2*i-1）
PrintTab（20-i+j）;
*"
Nextj
实验六
BCCCDDDDCA
二、
6-1
OptionBase1
Dimia（10）AsInteger
DimMax,min,averAsInteger,iMax,iminAsInteger
Fori=1To10
ia（i）=Int（Rnd*51+50）
Printia（i）;
Print
Max=ia
（1）:
iMax=1
min=ia
（1）:
imin=1
aver=ia
（1）
Fori=2To10
aver=aver+ia（i）
Ifia（i）>
MaxThenMax=ia（i）:
iMax=i
Ifia（i）<
minThenmin=ia（i）:
imin=i
Max,"
imax="
iMax
min,"
imin="
imin
aver="
aver/10
6-2
Dimia（20）,num（5）AsInteger
ia（i）=Int（Rnd*101）
SelectCaseia（i）
CaseIs<
60
num
（1）=num
（1）+1
Case60To69
num
（2）=num
（2）+1
Case70To79
num（3）=num（3）+1
Case80To89
num（4）=num（4）+1
Case90To100
num（5）=num（5）+1
EndSelect
各分数段的人数分别是（0~59,60~69,70~79,80~89,90~100）：
Printnum（i）;
6-3
Dima（10）AsInteger,t%
a（i）=Int（Rnd*51）
Printa（i）;
Forj=i+1To10
Ifa（i）<
a（j）Thent=a（i）:
a（i）=a（j）:
a（j）=t
排序后：
Printa（i）;
6-4
Dima（20）AsInteger,t%
a（i）=Int（Rnd*51）
If（i+1）Mod5=0ThenPrint
6-5
Dima（9）,b（3,3）AsInteger,s%,t%
a（i）=Int（Rnd*101）
IfiMod3=0Then
t=3:
s=i/3
t=iMod3:
s=i\3+1
b（s,t）=a（i）
Fori=1To3
Forj=1To3
Printb（i,j）;
Print
6-6
Dima（）AsInteger
n=InputBox（"
n=?
ReDima（n,n）
Forj=1Ton
a（i,j）=Int（Rnd*10）
Printa（i,j）;
6-7
a（i,i）=1
Nextj
6-8
Dimia（）AsInteger
DimMaxAsInteger,iMax,jmaxAsInteger
m=InputBox（"
m=?
ReDimia（m,n）
Max=0:
iMax=0:
jmax=0
Fori=1Tom
ia（i,j）=Int（Rnd*101）
Printia（i,j）;
Ifia（i,j）>
MaxThenMax=ia（i,j）:
iMax=i:
jmax=j
iMax,"
jmax="
jmax
实验七
CCDABDDAAA
（1）n！
（2）1到n累加和
（3）n是否是素数
（4）冒泡排序
（5）递归调用实现斐波那契数列
（6）求最大公约数和最小公倍数
7-1
Dimn,sumAsInteger
sum=jsh（n）
升级会员 