VB常见20道编程代码Word格式.docx

VB常见20道编程代码Word格式.docx

《VB常见20道编程代码Word格式.docx》由会员分享，可在线阅读，更多相关《VB常见20道编程代码Word格式.docx（16页珍藏版）》请在冰豆网上搜索。

DimiAsInteger

DimjAsInteger

Fori=0To20

Forj=0To33

If5*i+3*j+（100-i-j）*1/3=100Then

买"

&

CStr（i）&

只公鸡"

CStr（j）&

只母鸡"

CStr（100-i-j）&

只小鸡"

Chr（13）&

Chr（10）

Nextj

Nexti

3.不靠边元素和

Cls

Randomize

Dima（5,5）AsInteger,s%

Fori=0To5

Forj=0To5

a（i,j）=Int（Rnd*9）

Printa（i,j）&

"

;

Sum=Sum+a（i,j）

Print

k=Sum

Sum=0

Sum=Sum+a（i,0）+a（i,5）+a（0,i）+a（5,i）

Sum=Sum-a（0,0）-a（5,0）-a（5,5）-a（0,5）

Text1=k-Sum

4.递归函数求斐波拉契数列

OptionExplicit

Dima1,a2,bAsInteger

Dimi,nAsInteger

n=InputBox（"

显示数列的前N项"

）

a1=1

Fori=1Ton

b=a1+a2

Text1.SelText=b&

a1=a2

a2=b

5.各位数之和

DimiAsString

Dimj%

Dims%

i=Text1

Forj=1ToLen（i）

st=Mid（i,j,1）

s=s+Val（st）

Text2=s

6.回文数

Dimx$,y$,c$,i%

x=Text1

Fori=1ToLen（x）

c=Mid（x,i,1）

y=c+y

Ify=xThen

Text2="

x是回文数"

Else

x不是回文数"

Text1="

"

PrivateSubCommand3_Click（）

7.级数求和PrivateSubCommand1_Click（）

DimiAsInteger,tAsLong,sAsSingle

i=0:

s=o:

t=1

Do

s=s+1/t

i=i+1

t=t*i

LoopUntil1/t<

0.000001

Text1=s

8.矩阵的转置

OptionBase1

Dima（）AsInteger

DimnAsInteger

Text3.SetFocus

n=Val（Text3）

ReDima（n,n）'

动态数组

Fori=1Ton

Forj=1Ton

a（i,j）=Int（10*Rnd+0）'

随机数

a（i,j）&

'

一行

Chr（10）'

多行

Dimb（）AsInteger

ReDimb（n,n）

b（i,j）=a（j,i）'

转置

Text2=Text2&

b（i,j）&

Text1="

Text2="

Text3="

清除

PrivateSubCommand4_Click（）

End'

结束

PrivateSubForm_Load（）

9.靠边元素和

Dima（5,5）AsInteger

Next

Text1=Sum

10.冒泡排序

Dima（10）AsInteger

Fori=1To10

a（i）=Int（90*Rnd+10）

Str（a（i））&

IfiMod5=0ThenText1=Text1&

DimtAsInteger

Fori=1To9

Forj=1To10-i

Ifa（j）<

a（j+1）Then

t=a（j）

a（j）=a（j+1）

a（j+1）=t

IfiMod5=0ThenText2=Text2&

End

11.逆序数

DimaAsString

Dimi%

DimsAsString

a=Text1

Fori=1ToLen（a）

st=Mid（a,i,1）

s=st+s

12.判断素数

n=Val（Text1）

Ifn=1Then

MsgBox（CStr（n）&

是素数"

IfnModi=0ThenExitFor

Ifi=nThen

不是素数"

13.求阶乘（递归）

PrivateFunctionf（ByValnAsLong）AsLong

f=1

Ifn=0Orn=1Then

f=f*i

EndFunction

DimnAsLong

Text2=f（n）

14.求质因子

Dimn%,i%,m%

Ifi=1Then

Picture1.Print

IfnModi=0Then

Form=2Toi-1

IfiModm=0ThenExitFor

Nextm

Ifm=iThen

Picture1.Printi,

Picture1.Cls

15.水仙花数

Dima,b,cAsInteger

Fora=0To9

Forb=0To9

Forc=1To9

Ifa^3+b^3+c^3=a+10*b+100*cThen

MsgBox100*c+10*b+a

Nextc

Nextb

Nexta

16.顺序查找

Str（a（i））

DimxAsInteger

x=Val（Text2）

Ifa（i）=xThenExitFor

Ifi<

=10Then

Text3=Str（x）+"

在第"

+Str（i）+"

个位置"

Else

Text3="

没有找到"

EndIf

17.随机10个整数最值，均值，和

a（i）&

DimkAsInteger

DimlAsInteger

DimsAsInteger

k=a

（1）

Fori=2To10

Ifa（i）>

kThenk=a（i）

Text2=k

l=a

（1）

Ifa（i）<

lThenl=a（i）

Text3=l

s=0

s=s+a（i）

Text5=s

Text4=s/10

18.字符统计

DimsAsString,i%,mAsString,n%

s=Text1

n=0

Fori=1ToLen（s）

m=Mid（s,i,1）

Ifm>

="

a"

Andm<

z"

Then

n=n+1

Text2=n

19.最大公约数

DimmAsInteger

DimkAsInteger

m=Val（Text1）

n=Val（Text2）

Do

k=mModn

m=n

n=k

LoopUntilk=0

Text3=CStr（m）

20.最小公倍数

Dimm%,n%,k%

Dimm1%,n1%

m=Val（Text1）:

m1=m:

n1=n

s=m1*n1/m

Text3=s