vb常用算法代码.pdfVIP

-

Feb数列前18项

OptionBase1

PrivateSubForm_Click()

DimFeb(18)AsInteger,IAsInteger

Feb(1)=1

Feb(2)=1

ForI=3To18

Feb(I)=Feb(I-1)+Feb(I-2)

Ne*t

ForI=1To18

PrintFeb(I),

IfIMod5=0ThenPrint

Ne*t

EndSub

鞍点

OptionE*plicit

OptionBase1

PrivateSubForm_Click()

Cls

DimA(4,5)AsInteger,IAsInteger,JAsInteger,KAsInteger

DimMa*AsInteger,MinAsInteger

DimRowAsInteger,ColAsInteger,FlagAsBoolean

.z.

-

Randomize

ForI=1To4

ForJ=1To5

A(I,J)=Rnd*90+10

PrintA(I,J);

Ne*t

Print

Ne*t

I=1

Flag=False

DoWhileI=4

Ma*=A(I,1)

Row=I

Col=1

ForJ=2To5

IfMa*A(I,J)Then

Ma*=A(I,J)

Row=I

Col=J

EndIf

Ne*t

Min=Ma*

.z.

-

ForK=1To4

IfMinA(K,Col)Then

I=I+1

Flag=False

E*itFor

EndIf

Ne*t

IfK=5Then

Flag=True

E*itDo

EndIf

Loop

IfNotFlagThenPrint鞍点不存在！ElsePrint鞍点的位置：CStr(Row)行

CStr(Col)列

EndSub

插入排序

OptionBase1

PrivateSubmand1_Click()

DimA(10)AsInteger,IAsInteger,JAsInteger,*AsInteger

Cls

Print排序前：;

ForI=1To10

.z.

-

A(I)=Int(100*Rnd)

PrintA(I);

Ne*t

Print

ForJ=2To10

*=A(J)

I=J-1

DoWhile*A(I)