20个VB标准基础程序重中之重Word文档格式.docx
- 文档编号:18594949
- 上传时间:2022-12-29
- 格式:DOCX
- 页数:17
- 大小:16.54KB
20个VB标准基础程序重中之重Word文档格式.docx
《20个VB标准基础程序重中之重Word文档格式.docx》由会员分享,可在线阅读,更多相关《20个VB标准基础程序重中之重Word文档格式.docx(17页珍藏版)》请在冰豆网上搜索。
Text2=max
Text3=min
Text4=sum
Text5=ave
PrivateSubCommand3_Click()
Text1="
"
Text2="
Text3="
Text4="
Text5="
PrivateSubCommand4_Click()
End
2.水仙花数
DimxAsInteger,aAsInteger,bAsInteger,cAsInteger
x=Text1
a=x\100
b=x\10Mod10
c=xMod10
Ifx=a*a*a+b*b*b+c*c*cThen
Text2=x&
是水仙花数"
Else
不是水仙花数"
EndIf
3.百钱买百鸡
DimxAsInteger,yAsInteger,zAsInteger
List1.AddItem"
公鸡母鸡小鸡"
Forx=1To20
Fory=1To33
z=100-x-y
If5*x+3*y+z/3=100Then
List1.AddItemCStr(x)&
Space(6)&
CStr(y)&
CStr(z)
Nexty
Nextx
4.1000以内完数
DimiAsInteger,xAsInteger,mAsInteger,sAsInteger
Form=2To1000
x=m
s=0
Fori=1Tom-1
IfxModi=0Then
s=s+i
Ifm=sThenText1=Text1&
m&
Nextm
5.各个位数之和
DimxAsLong,sAsInteger
DoUntilx=0
s=s+xMod10
x=x\10
Loop
Text2=s
6.最小公倍数(先求最大公约数)
DimxAsInteger,yAsInteger,mAsInteger,nAsInteger,rAsInteger
y=Text2
m=x
n=y
r=mModn
DoWhiler<
>
0
m=n
n=r
Text3=x*y/n
7.逆序数
DimxAsLong,aAsInteger,yAsLong
DoWhilex<
a=xMod10
y=y*10+a
Text2=y
8.级数求和
DimsumAsSingle,tAsSingle,nAsLong,flgAsInteger
sum=0
t=1
n=1
flg=1
DoUntiln=x+1
t=flg*n
sum=sum+t
n=n+1
flg=-flg
Text2=sum
9.求一个数的质因子
DimiAsInteger,b()AsInteger,xAsInteger,nAsInteger
="
i=2
DoWhilex>
1
ReDimPreserveb(n)
b(n)=i
x=x\i
i=i+1
Fori=1ToUBound(b)-1
Text2=Text2&
b(i)&
*"
b(i)
10.字符统计
DimiAsInteger,a(26)AsInteger,nAsInteger,sAsString*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)=a(Asc(UCase(s))-64)+1
Fori=1To26
List1.AddItemChr(64+i)&
:
&
a(i)
Nexti
11.素数过程,1000以内完全素数
Fori=1To98
Ifprime(i)Andprime(i+2)Then
List1.AddItemi&
"
i+2
PrivateFunctionprime(nAsInteger)AsBoolean
prime=False
Fori=2ToSqr(n)
IfnModi=0ThenExitFunction
prime=True
EndFunction
12.最大公约数自定义过程
DimxAsInteger,yAsInteger
Text3=gcd(x,y)
PrivateFunctiongcd(mAsInteger,nAsInteger)AsInteger
DimrAsInteger
gcd=n
13.冒泡排序
a(i)=Int(90*Rnd)+10
Callsort(a,10)
PrivateSubsort(a()AsInteger,nAsInteger)
DimiAsInteger,jAsInteger,tAsInteger
Fori=1Ton-1
Forj=1Ton-i
Ifa(j)>
a(j+1)Then
t=a(j)
a(j)=a(j+1)
a(j+1)=t
Nextj
14.顺序查找
DimnAsInteger
n=Text2
Callcz(a,n)
PrivateSubcz(a()AsInteger,nAsInteger)
Fori=1ToUBound(a)
Ifa(i)=nThen
MsgBox"
要查找的数是第"
CStr(i)&
个元素"
vbOKOnly,"
顺序查找"
ExitSub
要查找的数不存在"
15.判断回文数
DimxAsLong
Ifhuiwenshu(x)=TrueThen
是回文数"
不是回文数"
PrivateFunctionhuiwenshu(ByValnAsLong)AsBoolean
DimaAsLong,bAsLong
a=0
b=n
DoUntiln=0
a=a*10+nMod10
n=n\10
Ifa<
bThenExitFunction
huiwenshu=True
16.递归求阶乘
Text2=fac(x)
PrivateFunctionfac(nAsLong)AsLong
Ifn=0Orn=1Then
fac=1
fac=n*fac(n-1)
17.递归求斐波那契数列
DimxAsLong,nAsLong
Forn=1Tox
List1.AddItemf(n)
Nextn
PrivateFunctionf(nAsLong)AsLong
Ifn=1Orn=2Then
f=1
f=f(n-1)+f(n-2)
List1.Clear
18.求矩阵的不靠边元素之和
Dima(4,4)AsInteger
DimiAsInteger,jAsInteger
Randomize
Fori=1To4
Forj=1To4
a(i,j)=Int(Rnd*90)+10
a(i,j)&
vbCrLf
Text2=sum(a)
PrivateFunctionsum(a()AsInteger)AsInteger
Forj=1ToUBound(a,2)
sum=sum+a(1,j)+a(4,j)
Fori=2ToUBound(a,1)
sum=sum+a(i,1)+a(i,4)
19.求矩阵所有靠边元素之和
Fori=2ToUBound(a,1)-1
Forj=2ToUBound(a,2)-1
sum=sum+a(i,j)
20.矩阵转置
PrivateSubzz(x()AsInteger)
Fori=1ToUBound(x,1)
Forj=i+1ToUBound(x,2)
t=a(i,j)
a(i,j)=a(j,i)
a(j,i)=t
Callzz(a)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 20 VB 标准 基础 程序 重中之重
![提示](https://static.bdocx.com/images/bang_tan.gif)