VisualBasic实验指导书程序代码精.pdfVIP

VisualBasic

1

2020419

9-1

OptionExplicit

OptionBase1

PrivateSubCommand1_Click(

Dimx(10AsInteger,maxvAsInteger,minvAsInteger

DimiAsInteger

Fori=1To10

x(i=Int(90*Rnd+10

Text1.Text=Text1Str(x(i

Nexti

Callmaxmin(x,maxv,minv

Text2.Text=maxv

Text3.Text=minv

EndSub

PrivateSubCommand2_Click(

Text1.Text=

2

2020419

Text2.Text=

Text3.Text=

EndSub

PrivateSubCommand3_Click(

End

EndSub

PrivateSubmaxmin(a(AsInteger,maxAsInteger,minAsInteger

DimiAsInteger

max=a(1:min=a(1

Fori=LBound(a+1ToUBound(a

Ifa(imaxThen

max=a(i

ElseIfa(iminThen

min=a(i

EndIf

Nexti

3

2020419

EndSub

9-2

PrivateSubCommand1_Click(

DimxAsLong

x=Val(Text1.Text

Ifverify(xThen

List1.AddItemx

Else

MsgBoxStr(x,vbInformationEndIf

EndSub

PrivateSubCommand2_Click(

Text1.Text=

EndSub

PrivateSubCommand3_Click(

End

EndSub

4

2020419

PrivateFunctionverify(xAsLongAsBoolean

DimyAsLong,sAsInteger

verify=False

s=Len(CStr(x

y=x*x

Ifx=Val(Right(CStr(y,sThen

verify=True

EndIf

EndFunction

9-3

OptionExplicit

OptionBase1

PrivateSubCommand1_Click(

DimaAsInteger,bAsInteger,iAsInteger

a=Val(Text1.Text:

b=Val(Text2.Text

5

2020419

Fori=aTob

Ifsx(i=TrueThen

List1.AddItemi

8EndIf

Nexti

IfList1.ListCount=0T