教学材料《ＶＢ导论》_7.4.pptVIP

**7.7程序示例例7.4例7-5:求三个正整数的最小公倍数.方法:(1)编写一个求两个数的最小公倍数的函数lcm(2)首先调用lcm函数,求出任意两个数的最小公倍数,然后再次调用lcm函数,求出前两个数的最小公倍数与第三个数的最小公倍数.求两个数的最小公倍数算法:tem=mdowhiletemmodn0tem=tem+mloopprintm;和;n;的最小公倍数是;tem由循环编写出函数过程PrivateFunctionlcm(ByValmAsInteger,ByValnAsInteger)Dimtem%tem=mDoWhiletemModn0tem=tem+mLooplcm=temEndFunction求最小公倍数函数函数名=表达式,给函数赋值PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,lAsLong,cAsIntegera=Text1b=Text2c=Text3l=lcm(lcm(a,b),c)Text4=lEndSub函数嵌套调用:求三个数的最小公倍数调用程序PrivateSubCommand1_Click()Dimnumber(10)AsInteger,iAsIntegerRandomizeFori=1To10number(i)=Int(Rnd*100)+1Text1=Text1Str(number(i))NextiCallbubble_sort(number)Fori=1To10Text2=Text2Str(number(i))NextiEndSub调用过程生成数组输出例7-8冒泡法排序。(要求程序中必须包含一个通用过程)PrivateSubBubble_Sort(Sort()AsInteger)DimIAsInteger,TemAsIntegerFori=1toubound(sort)-1forj=1toubound(sort)-iIfSort(j)Sort(j+1)ThenTem=Sort(j)Sort(j)=Sort(j+1)Sort(j+1)=TemEndIfNextjNextiEndSub书上的写法：PrivateSubBubble_Sort(Sort()AsInteger)DimIAsInteger,TemAsIntegerDimUbAsInteger,SwitchAsBooleanUb=UBound(Sort)Switch=TrueDoWhileSwitchSwitch=FalseUb=Ub-1ForI=1ToUbIfSort(I)Sort(I+1)ThenSwitch=TrueTem=Sort(I)Sort(I)=Sort(I+1)Sort(I+1)=TemEndIfNextILoopEndSub冒泡法排序DimnAsInteger,numAsLongPrivateSubCommand1_Click()DimchAsString,iAsIntegerDimchar(15)AsStringDimbin()AsStringFori=0To9char(i)=Str(i)NextiFori=0To