vb程序设计强化复习主题讲座

《vb程序设计强化复习主题讲座》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB语言程序设计（强化）函数过程和Sub过程函数过程和Sub过程常用算法总结function函数过程Sub过程参数传递规则(值传递、地址传递)数组名作为函数参数数组元素作为函数参数变量的作用域变量的生存期PrivateSubCommand1_Click()Dimiasinteger,saslongFori=1To10s=s+fact(i)NextiPrint"1!+2!+...+10!="&sEndSub函数过程PrivateFunctionfact(ByValkAsByte)AsLongDimi%fact=1Fori=2Tokfact=fact*iNextiEn

2、dFunction主题一：函数过程格式[Public

3、Private][Static]Function函数名(形参列表)As数据类型语句块函数名=表达式[ExitFunction][语句块]EndFunction函数体说明Public公有过程，可被当前工程中其它窗体中的过程调用.调用格式为:窗体名.函数名(实参列表)Private私有过程，只能被其所在窗体的过程调用.Static指定过程中局部变量的值保持不变形参列表[ByVal

4、ByRef]参数名As数据类型,…调用函数名(实参列表)也可以用:Call函数名(实参列表)调用,这样调用将得不到返回值.PublicS

5、ubCombination()DimmAsIntegerDimnAsIntegerDimCmnAsLong…….‘输入m,n'******错误1******Cmn=nFactor(m)/nFactor(n)*nFactor(m-n)Form1.Print"排列组合数为";CmnEndSubPublicFunctionnFactor(ByValnAsInteger)AsDoubleDimiAsInteger,tempAsDoubletemp=1Fori=1Tontemp=temp*iNexti'******错误2******nFactor(n)=temp'*****

6、*错误3******EndSub‘该过程是用于计算在m个数据中取出n个数据的排列组合值，计算公式为Cmn=m!/(n!*(m-n)!)。编写过程用以验证一个偶数可以分解为两个素数之和；Isprime用以判断x是否是素数PublicSubeven()'从键盘输入一个大于4的偶数，将它所有的不重复的分解式求出DimxAsIntegerDimiAsInteger'------1------'保证x是大于4的偶数x=Val(InputBox("x="))LoopFori=3Tox/2Step2'在不大于x的奇数中找素数'------2------Form1.Printx;

7、"=";i;"+";x-iEndIfNextiEndSubPublicFunctionIsprime(xAsInteger)AsBooleanDimiAsInteger'------3------Fori=2Tox-1'------4------Isprime=FalseExitForEndIfNextiEndFunctionPublicSubtotal()'该过程是计算s=7+77+777+……+(n个7组成的数)，并输出。Constn=20DimsAsSingleDimiAsIntegerFori=1Tons=s+------1-------NextiForm

8、1.Print"s=";sEndSubPublicFunctionnumber(-----2------)AsSingle'该函数是求出n个7所组成的数。DimkAsIntegernumber=0Fork=1Ton--------3---------NextkEndFunction---------OptionExplicit判断某年是否是闰年PublicSubrn()'该过程通过调用函数isLeapYear判断某年是否是闰年，若是,则打印"今年是润年"'否则,打印"今年不是闰年"。Constyear=2023If----1----ThenForm1.Print"

9、今年是闰年"ElseForm1.Print"今年不是闰年"EndIfEndSubFunctionisLeapYear(yAsInteger)AsBooleanIf----2----Or(----3----And----4----)ThenisLeapYear=FalseElseisLeapYear=TrueEndIfEndFunction主题二：Sub过程格式[Public

10、Private][Static]Sub过程名[(形参列表)]语句块[ExitSub][语句块]EndSub过程体说明Public公有过程，当前工程中使用Private私有过程，所在窗体中使用S

11、tatic