vb习题.docx - 冰豆网

资源描述

vb习题.docx

《vb习题.docx》由会员分享，可在线阅读，更多相关《vb习题.docx（22页珍藏版）》请在冰豆网上搜索。

vb习题.docx

vb习题

第一题

Dimroot（10）AsVariant

PrivateSubForm_Load（）

DimepsAsSingle:

DimhAsSingle

DimaaAsInteger:

DimbbAsInteger

DimmAsInteger:

DimnAsInteger

DimiAsInteger:

DimpAsSingle

eps=0.0000001:

h=0.1

m=6:

aa=0:

bb=2

Callrt（aa,bb,h,m,n,eps）

Fori=1Ton

p=Round（root（i）,6）

Debug.Print"x";i;"=";p

Debug.Print"x";i+2;"=";-p

Nexti

EndSub

Functionf（x）AsDouble

f=x^6-5*x^4+6*x-1

EndFunction

Subrt（aa,bb,h,m,n,eps）

n=0

DimaAsDouble:

DimbAsDouble

DimfaAsDouble:

DimfbAsDouble

DimcAsDouble:

DimfcAsDouble

DimdeltaAsDouble

a=aa:

fa=f（a）

b=a+h:

fb=f（b）

c=0.5*（a+b）

fc=f（c）

delta=Abs（b-c）

Iffc*fa<0Then

b=c

Else:

a=c:

fa=fc

EndIf

LoopUntildelta<=eps

n=n+1:

root（n）=c

EndIf

a=b:

fa=fb

LoopUntilb>bbOrn>=m

EndSub

结果：

X1=.167316

X2=1.104632

X3=-.167316

X4=-1.104632

第二题

PrivateSubForm_Load（）

DimkwjiAsInteger

a（0,0）=1.502:

a（0,1）=0.0514:

a（0,2）=0:

a（0,3）=0.0408

a（1,0）=0.0261:

a（1,1）=1.1516:

a（1,2）=0:

a（1,3）=0.082

a（2,0）=0.0342:

a（2,1）=0.0355:

a（2,2）=2.532:

a（2,3）=0.2933

a（3,0）=0.034:

a（3,1）=0.0684:

a（3,2）=0:

a（3,3）=0.0347

b（0）=0.1013:

（1）=0.09943:

（2）=0.2194:

b（3）=0.03396

kwji=0

CallSubMain（4,0.0000000001）

Fori=0To3

Debug.Printb（i）

Nexti

EndSub

PublicSubSubMain（nAsInteger,epAsDouble）

DimkAsInteger

Fori=0To99

m1（i）=i+1

Nexti

Fork=0Ton-1

Callcpe（n,k,ep）

Ifp>epThen

Forj=k+1Ton-1

a（k,j）=a（k,j）/a（k,k）

Nextj

b（k）=b（k）/a（k,k）

Fori=0Ton-1

If（i<>k）Then

Forj=k+1Ton-1

a（i,j）=a（i,j）-a（i,k）*a（k,j）

Nextj

b（i）=b（i）-a（i,k）*b（k）

EndIf

Nexti

Else

kwji=1

EndIf

Nextk

Fork=0Ton-1

a（0,m1（k）-1）=b（k）

Nextk

Fork=0Ton-1

b（k）=a（0,k）

Nextk

EndSub

PublicSubcpe（nAsInteger,kAsInteger,epAsDouble）

DimttAsDouble

DimiAsInteger,jAsInteger,i0AsInteger,j0AsInteger

p=Abs（a（k,k））

i0=k

j0=k

Fori=kTon-1

Forj=kTon-1

If（Abs（a（i,j））>p）Then

p=Abs（a（i,j））

i0=i

j0=j

EndIf

Nextj

Nexti

If（p>ep）Then

If（j0<>k）Then

Fori=0Ton-1

tt=a（i,j0）

a（i,j0）=a（i,k）

a（i,k）=tt

Nexti

tt=m1（k）

m1（k）=m1（j0）

m1（j0）=tt

EndIf

If（i0<>k）Then

Forj=kTon-1

tt=a（i0,j）

a（i0,j）=a（k,j）

a（k,j）=tt

Nextj

tt=b（i0）

b（i0）=b（k）

b（k）=tt

EndIf

EndSub

结果：

b（0）=6.265669E-2b

（1）=7.950508E-2b

（2）=.0758797b（3）=7.605627E-2

第三题：

PrivateSubForm_Load（）

DimmAsInteger,nAsInteger

m=3:

n=60

Dimy（2,60）AsSingle,yy（2,60）AsSingle

DimhAsInteger,iAsInteger,jAsInteger

DimlAsInteger,dAsInteger

Dimx（60）AsSingle,s（3）AsSingle

Dimk（2,4）AsSingle,pAsSingle

h=1

y（0,0）=0.01:

y（1,0）=0:

y（2,0）=0

s（0）=0:

（1）=0.5:

（2）=0.5:

s（3）=1

Forl=1Ton

Debug.Print"t=";l

Fori=1Tom

Forj=1To4

p=x（l-1）+s（j-1）*h

Ford=1Tom

yy（d-1,l-1）=y（d-1,l-1）+s（j-1）*k（d-1,j-1）

Nextd

SelectCasei

Case1

k（i-1,j）=-h*（0.0044+0.0021）*yy（0,l-1）

Case2

k（i-1,j）=h*（0.0044*yy（0,l-1）-2.96*yy（1,l-1））

Case3

k（i-1,j）=h*（2.96*yy（1,l-1）+0.0021*yy（0,l-1））

EndSelect

Nextj

x（l）=p

y（i-1,l）=y（i-1,l-1）+1/6*（k（i-1,1）+2*k（i-1,2）+2*k（i-1,3）+k（i-1,3）+k（i-1,4））

Debug.Print"c（";i;"）=";y（i-1,1）,

Nexti

Debug.Print

Nextl

EndSub

t=1

（1）=9.924413E-03c