vb期末重点Word文件下载.docx

vb期末重点Word文件下载.docx

《vb期末重点Word文件下载.docx》由会员分享，可在线阅读，更多相关《vb期末重点Word文件下载.docx（6页珍藏版）》请在冰豆网上搜索。

maxThenmax=a（i）

Ifa（i）<

minThenmin=a（i）

ave=ave+0.1*a（i）

最大数为：

;

max

最小数为：

min

平均数为：

ave

2.求水仙花数

PrivateSubForm_Click（）

Dima,b,cAsInteger'

a（个）b（十）c（百）

Fora=0To9

Forb=0To9

Forc=1To9

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

MsgBox100*c+10*b+a

EndIf

Nextc

Nextb

Nexta

3.百元买百鸡问题；

OptionExplicit

Consta=5,b=3,c=1

PrivateSubForm_Activate（）

DimiAsInteger,jAsInteger,kAsInteger,nAsInteger

Fori=1To100

Forj=1To100

Fork=1To100

Ifi*a+j*b+k*c=100Then

n=n+1

List1.AddItem"

公鸡：

&

i&

"

母鸡：

j&

小鸡：

k

Next:

Next:

Next

MsgBox"

共有组合：

n

求1000以内的所有完数

一个按钮里调用的过程

OutputWanNumber1000

4.'

求完数的过程

Dimi,jAsInteger

Fori=4To1000

temp=1

Forj=2Toi/2

IfiModj=0Then

temp=temp+j

Nextj

Iftemp=iThen

Printi

5.求各位数字之和

inputa:

'

输入任意数

do

b=amod10:

取a的末位数

sum=sum+b:

求和

a=a\10:

去掉末位数

loopuntila=0

print"

sum="

sum:

输出

end

（dimnasstring

inputn

fori=1tolen（n）

sum=sum+val（mid（n,i,1））

nexti

printsum）

6.求最小公倍数

PrivateSubForm_Load（）

Form1.AutoRedraw=True

Dimn1%,m1%,m%,n%,r%

n1=InputBox（"

输入n1"

）

m1=InputBox（"

输入m1"

Ifm1>

n1Then'

为了求最小公倍数，增加m,n变量

m=m1:

n=n1

Else

m=n1:

n=m1

Do

r=mModn

Ifr=0ThenExitDo

m=n

n=r

Loop

Printn1;

"

m1;

的最大公约数为"

Print"

最小公倍数="

m1*n1/n

7.求逆序数（感觉题目类型太多）

8.级数有限项求和问题（题目类型太多）

9.求质因子问题

DimNAsInteger,IAsInteger

N=Val（InputBox（"

请输入2的整数:

））

I=2

IfNModI=0Then

PrintI;

N=N\I

I=I1

LoopWhileN1

10.字符统计

OptionBase1

Dimiasinteger，A（26）asinteger，nasinteger

DimSasstring*1,Strlasstring

Strl=Text1

n=Len（Strl）

Fori=1Ton

S=Mid（Strl,i,1）

IfUCase（S）>

=”A”AndUCase（S）<

=”Z”Then

A（Asc（UCase（S））-64）+1

Fori=1To26

List1.AdditemChr（64+i）&

“:

”&

A（i）

Netxi

PrivateSubCommand_Click（）

End

第二大题

1.判定素数过程

Functionisprime（NumAsLong）AsBoolean

IfNum<

2Thenisprime=False:

ExitFunction

DimiAsLong

Fori=2ToSqr（Num）

If（NumModi）=0Then

isprime=False

ExitFunction

isprime=True

EndFunction

Fori=1To1000

Ifisprime（i）Then

2.求最大公约数过程；

FunctionMax公约数（AAsLong,BAsLong）'

求出两个数的最大公约数

DimXAsLong,YAsLong,KAsLong

X=IIf（A>

=B,A,B）'

x存入最大值

Y=IIf（A<

y存入最小值

Do'

辗转相除法

K=XModY:

IfK=0ThenExitDo

X=Y:

Y=K

Max公约数=Y

3.冒泡排序过程

Dima（9）AsInteger

DimiAsInteger

Fori=0To9

a（i）=InputBox（"

输入整数"

Next

Sorta

Printa（i）

PrivateSubSort（ByRefa（）AsInteger）

DimjAsInteger

DimtAsInteger

Fori=LBound（a）+1ToUBound（a）

Forj=UBound（a）ToiStep-1

Ifa（j-1）>

a（j）Then

t=a（j-1）

a（j-1）=a（j）

a（j）=t

4顺序查找过程

Dimi,j,t,a（1To10）

原数组:

a（i）=Rnd*10

a（"

）="

a（i）&

Space

（2）,

IfiMod2=0ThenPrint

Print

Fori=1To9

Forj=i+1To10

Ifa（j）<

a（i）Then

t=a（i）

a（i