VB程序设计重点
VB程序设计部分重点程序
08管理VB程序设计部分1.
几里德算法)求两个自然数的最大公约数的算法。
(欧PrivateSubForm_Click()Dimn%,m%,g%
vb程序设计是啥n=InputBox(“输入N”)m=InputBox(“输入M”)g=gcd(n,m)
Printn;“和”;m;“的最大公约数
是:”;gPrivateFunctiongcd(ByVala%,ByValb%)EndSub
DimrAsIntegerr=aModbDoWhiler0a=bb=r
gcd=b
Loopr=aModbEndFunction
2.存放在数组编写一个数组，随机产生pare中，并从中出一个最12个两位数，大数和一个最小数。Optionbase1
Privatesubform_click()
Dimpare(12)asinteger,I%
DimmaxAsInteger,minAsIntegerRandomizeFori=1to12
NextIpare(i)=int(90*rnd)+10printpare(i);Print
Max=pare(1):min=pare(1)Fori=2to12
ifpare(i)>maxthenElseifpare(i)0fact=fact*nEndFunction
n=n-1Loop4.OptionBase1
出100以内的所有素数。OptionExplicit
PrivateSubform_click()
Integer
Dimprime(50)AsInteger,iAsIntegerDimkAsInteger,mAsInteger,jAsprime(1)=2:m =1
Fori=3To99Step2Fork=2ToSqr(i)
IfiModk=0ThenExitForNextk
Ifk>Sqr(i)Thenm=m+1prime(m)=iEndIfNextik=0
Forj=1Tomk=k+1
Printprime(j);
EndSub
NextjIfkMod10=0ThenPrint5.OptionExplicit
求三个正整数的最小公倍数。
PrivateSubmand1_Click()DimA%,B%,L&,C%A=Text1B=Text2C=Text3 Text4=LL=LCm(LCm(A,B),C)EndSub
PublicFunctionLCm(ByValX%,ByValY%)DimM%,Flag%flg=flaseDoUntilflgM =M+X
IfMModY=0Thenflg=TrueEndFunction
EndIfLoopLCm=MPrivateSubmand2_Click()EndSub
End6.环求编写程序，实现累乘：要求使用N!(N为自然数)。
For循PrivateSubForm_Click()DimiAsIntegerDimfAsDoubleDimnAsInteger 入提示n=“,“5”)InputBox(“输入一个自然数:”,“输f=1
Fori=1Tonf=f*iEndSubNexti
Printn;“!=“;f

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。