VB程序设计教程第3版课后实验答案Word下载.docx

资源描述

VB程序设计教程第3版课后实验答案Word下载.docx

《VB程序设计教程第3版课后实验答案Word下载.docx》由会员分享，可在线阅读，更多相关《VB程序设计教程第3版课后实验答案Word下载.docx（49页珍藏版）》请在冰点文库上搜索。

VB程序设计教程第3版课后实验答案Word下载.docx

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．1

Text2=Format（5/9*（Val（Text1）-32）,"

0.00"

PrivateSubCommand2_Click（）

Text1=Format（9/5*Val（Text2）+32,"

或

Dimf!

声明两个变量

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

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）

大写字母为:

;

字符串长度为:

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

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．1

Dimx!

输入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!

x=InputBox（"

inputx"

y=InputBox（"

inputy"

z=InputBox（"

inputz"

xyz"

排序前"

Ifx<

yThent=x:

x=y:

y=t

zThent=x:

x=z:

z=t

Ify<

zThent=y:

y=z:

排序后"

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!

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,"

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~7，重新输入"

Text1="

或者

IfText1>

7OrText1<

1Then

Text2=Choose（Text1,"

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!

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="

时，pi="

D．5

Dims!

a%,n%

a=Int（Rnd*9+1）

n=Int（Rnd*6+5）

t=0:

s=0

a="

a,"

n="

Fori=1Ton

t=t*10+a

s=s+t

Printt;

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

i=i+1

x1=2*x0/3+a/（3*x0*x0）

IfAbs（x1-x0）<

0.00001ThenExitDo

x0=x1

Loop

Printx1,i

D．8

s=0

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;

NextY

Nextx

Nextz

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

Pictu

展开阅读全文