VB程序设计教程课后实验答案文档格式.docx
《VB程序设计教程课后实验答案文档格式.docx》由会员分享,可在线阅读,更多相关《VB程序设计教程课后实验答案文档格式.docx(49页珍藏版)》请在冰豆网上搜索。
Form1.Width=260*16'
260是Tongji-2.bmp图的宽度,象素单位
Form1.Height=260*16+200'
260是图的高度,象素单位,200是窗体的标题栏高度
A.5
SubCommand1_Click()
Text1.FontName="
隶书"
Text1.FontSize=25
SubCommand2_Click()
Text2.Text=Text1.SelText
Text2.FontName=Text1.FontName
Text2.FontSize=Text1.FontSize
实验B
B.1
Text2=Format(5/9*(Val(Text1)-32),"
0.00"
PrivateSubCommand2_Click()
Text1=Format(9/5*Val(Text2)+32,"
或
Dimf!
c!
'
声明两个变量
f=Val(Text1)
c=5/9*(f-32)
Text2=Format(c,"
保留两位小数
Dimff!
cc!
cc=Val(Text2)
ff=9/5*cc+32
Text1=Format(ff,"
B.2
Label2=Format(Val(Text1)*Val(Text1)*3.14,"
Label3=Format(Val(Text1)*3.14*2,"
PrivateSubText1_LostFocus()
IfNotIsNumeric(Text1.Text)Then
MsgBox"
输入有非数字字符,请重新输入"
,"
警告"
Text1.Text="
Text1.SetFocus
EndIf
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
IfNotIsNumeric(Text1.Text)Then
B.3
n=Int(Log
(2)/Log(1.008)+1)
Label1=n&
"
年后人数超过26亿"
B.4
Dimx,dx,cd
x=Text1.Text
dx=UCase(x)
cd=Len(x)
大写字母为:
;
dx
字符串长度为:
cd
B.5
Text1=Int(Rnd*900+100)
Dimx%,x1%,x2%,x3%
x=Val(Text1)
x1=xMod10'
分离出的个位数
x2=(xMod100)\10'
分离出的十位数
x3=x\100'
分离出的百位数
Label1=x1*100+x2*10+x3
B.6
Label1=Left(Text1,11)
Label2=Mid(Text1,12,6)
Label3=Right(Text1,5)
B.7
Print
Fori=1To5
PrintTab(15-i*2);
String(2*i-1,"
★"
);
Spc(18-4*(i-1));
Nexti
进一步要求:
String(10-(2*i-1),"
☆"
B.8
x=Val(InputBox("
输入一正实数"
"
计算"
0))
pf=Format(x*x,"
0.000"
pfg=Format(Sqr(x),"
lf=Format(x*x*x,"
lfg=Format(x^(1/3),"
Print"
平方为:
pf;
Space(5);
平方根为:
pfg;
立方为:
lf;
立方根为:
lfg
实验C
C.1
Dimx!
y!
输入x的值"
))
Ifx<
1000Then
y=x
ElseIfx<
2000Then
y=0.9*x
3000Then
y=0.8*x
Else
y=0.7*x
EndIf
Printy
C.2
输入上网时间"
10Then
y=30
50Then
y=30+2.5*(x-10)
y=30+2.5*40+2*(x-50)
Ify>
150Then
y=150
C.3
Dimx!
z!
x=InputBox("
inputx"
y=InputBox("
inputy"
z=InputBox("
inputz"
xyz"
排序前"
x;
y;
z
Ifx<
yThent=x:
x=y:
y=t
zThent=x:
x=z:
z=t
Ify<
zThent=y:
y=z:
排序后"
&
x&
y&
Print"
zThen
t=y:
yThen
t=x:
C.4
Dima(3)AsInteger
Picture1.Cls
Fori=0To2
a(i)=Int(Rnd*100+200)
Picture1.Printa(i)
Nexti
Picture2.Cls
DimzAsInteger
Fori=0To1
Ifa(i)>
a(i+1)Then
z=a(i+1)
a(i+1)=a(i)
a(i)=z
Picture2.Printa(0)
Picture2.Printa
(1)
Picture2.Printa
(2)
C.5
PrivateSubText2_LostFocus()
Dimm%,n%,y%
m=Val(Text1)
n=Val(Text2)
IfnMod2<
>
0Then
MsgBox("
脚数必定为偶数"
Text2="
Text2.SetFocus
Else
y=n/2-m
脚数必须≥2倍的头数,请重新输入"
x=n/2-m
Label2=y
Label3=m-y
C.6
Dima!
b!
x1!
x2!
de!
a=Text1
b=Text2
c=Text3
de=b*b-4*a*c
t=2*a
Ifde=0Then
Text4=Format(-b/t,"
Text5=Format(-b/t,"
ElseIfde>
Text4=Format((-b+Sqr(de))/t,"
Text5=Format((-b-Sqr(de))/t,"
)&
+"
Format(Sqr(Abs(de))/t,"
i"
-"
Text1="
Text2="
Text3="
Text4="
Text5="
C.7
PrivateSubText3_LostFocus()
SelectCaseTrim(Text3)
Case"
Text4=Val(Text1)+Val(Text2)
Text4=Val(Text1)-Val(Text2)
*"
Text4=Val(Text1)*Val(Text2)
/"
IfVal(Text2)=0Then
分母为零,重新输入"
Text4=Val(Text1)/Val(Text2)
EndSelect
C.8
SelectCaseTrim(Text1)
Case1
Monday"
Case2
Tuesday"
Case3
Wednesday"
Case4
Thursday"
Case5
Friday"
Case6
Saturday"
Case7
Sunday"
CaseIs>
7,Is<
1
数字为1~7,重新输入"
Text1="
或者
IfText1>
7OrText1<
1Then
Text2=Choose(Text1,"
实验D
D.1
Fori=1To9
PrintTab(10-i);
String(2*i-1,Trim(Str(i)))
D.2
Fori=1To10Step1
PrintTab(i);
String((20-2*i),Chr(64+i))
D.3
Dims!
t!
i&
s=1
t=1
Fori=1To100000
t=t+i
s=s+1/t
If1/t<
0.00001ThenExitFor
For结构"
s,i;
项"
D.4
Dimn&
pi#,i&
n=InputBox("
输入n值"
pi=2
Fori=1Ton
pi=pi*(2*i)/(2*i-1)*(2*i)/(2*i+1)
当n="
n&
时,pi="
pi
D.5
Dims!
i!
a%,n%
a=Int(Rnd*9+1)
n=Int(Rnd*6+5)
t=0:
s=0
a="
a,"
n="
n
Fori=1Ton
t=t*10+a
s=s+t
Printt;
s="
s
D.6
DimsAsInteger
s=0
Fori=1To9
Forj=0To9
Fork=0To9
s=i*100+j*10+k
Ifs=i^3+j^3+k^3Then
Prints
Nextk
Nextj
PrivateSubCommand3_Click()
formd6.Hide
main.Show
D.7
Dima!
x0!
a=27
x0=2
i=0
Do
i=i+1
x1=2*x0/3+a/(3*x0*x0)
IfAbs(x1-x0)<
0.00001ThenExitDo
x0=x1
Loop
Printx1,i
D.8
x0=0.01
Fori=1To30
s=s+x0
x0=x0*2
D.9
PrivateSubCommand4_Click()
Picture1.Print"
x课安排在"
y课安排在"
z课安排在"
Forz=5To6
Forx=1Toz-2
ForY=x+1Toz-1
X1=Choose(Weekday(x),"
周一"
周二"
周三"
周四"
周五"
周六"
周日"
Y1=Choose(Weekday(Y),"
z1=Choose(Weekday(z),"
X1;
Y1;
z1
NextY
Nextx
Nextz
实验E
E.1
Dima(1To10)AsInteger
Fori=1To10
a(i)=Int(Rnd*71+30)
Printa(i);
Max=a
(1)
Min=a
(1)
Avg=a
(1)
Fori=2To10
Ifa(i)>
MaxThenMax=a(i)
Ifa(i)<
MinThenMin=a(i)
Avg=Avg+a(i)
Avg=Avg/10
Max="
Max;
Min="
Min;
Avg="
Avg
E.2
Dima
a=Array(56,78,98,88,76,78)
Fori=0To5
PrintString(a(i)\5,"
◆"
a(i)
E.3
Dima%(19)
Fori=0To19
a(i)=Int(Rnd*101)
Picture1.Printa(i);
If(i+1)Mod4=0ThenPicture1.Print
En