VB子过程与函数过程

1.输入年份,给出闰年的判断单过程程序:子过程程序:主过程输入、子过程输出结果PrivateSubForm_Click()Dimyear1%,leap!year1=Val(InputBox("nowyear=","input","2013"))Ifyear1Mod100=0ThenIfyMod400=0Thenleap=1Elseleap=0ElseIfyear1Mod4=0Thenleap=1EndIfIf(leap)ThenPrintyear1;"是闰年"ElsePrintyear1;"不是闰年"EndIfEndSubPrivateSubForm_Click()Dimyear1%,leap!year1=Val(InputBox("nowyear=","input","2013"))Cally1(year1)EndSubSuby1(y%)Dimleap%IfyMod100=0ThenIfyMod400=0Thenleap=1Elseleap=0ElseIfyMod4=0Thenleap=1EndIfIf(leap)ThenPrintyear1;"是闰年"ElsePrintyear1;"不是闰年"EndIfEndSub2.输入数N,给出素数的判断单过程程序:子过程程序:主过程输入、主过程输出结果PrivateSubForm_Click()DimkAsBooleann=Val(InputBox(""))Fori=2Ton-1If(nModi)=0Thenk=TrueNextiIfNotkThenPrintn;"是素数"ElsePrintn;"不是素数"EndIfEndSubPrivateSubForm_Click()n=Val(InputBox(""))IfNotk(n)ThenPrintn;"是素数"ElsePrintn;"不是素数"EndIfEndSubFunctionk(n1)AsBooleanFori=2Ton1-1If(n1Modi)=0Thenk=TrueNextiEndFunction2.1求100以内素数3.求数N的阶乘PrivateSubForm_Click()Form=2To100Fori=2Tom-1If(mModi)=0ThenGoToNotNextMNextiPrintmNotNextM:NextmPrivateSubForm_Click()Dims,n%,i%s=1n=Val(InputBox(""))Doi=i+1s=s*iLoopWhilei0m=nn=rr=mModnWendLabel1.Caption=Text1.Text"和"_Text2.Text"的最大公约数是"nEndSubPrivateSubCommand1_Click()Dimm%,n%,r!m=Val(Text1.Text)n=Val(Text2.Text)Call共产党(m,n)EndSubFunction共产党(m1,n1)r=m1Modn1Whiler<>0m1=n1n1=rr=m1Modn1WendPrintm1;n1;”的最大公约数是”;n1EndFunction5.比较3个数的最大值单过程程序:函数过程程序:主过程输入主过程输出结果PrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifa>bThenIfa>cThenMax=aElseMax=cElseIfb>cThenMax=bElseMax=cEndIfText4.Text=MaxEndSubPrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)print“最大值是”;m1(a,b,c)EndSubFunctionm1(x,y,z)Ifx>yThenIfx>主题henMax=xElseMax=zElseIfy>主题henMax=yElseMax=zEndIfm1=MaxEndfunction

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供参考,付费前请自行鉴别。
3、如文档内容存在侵犯商业秘密、侵犯著作权等,请点击“举报”。

常见问题具体如下:

1、问:已经付过费的文档可以多次下载吗?

      答:可以。登陆您已经付过费的账号,付过费的文档可以免费进行多次下载。

2、问:已经付过费的文档不知下载到什么地方去了?

     答:电脑端-浏览器下载列表里可以找到;手机端-文件管理或下载里可以找到。

            如以上两种方式都没有找到,请提供您的交易单号或截图及接收文档的邮箱等有效信息,发送到客服邮箱,客服经核实后,会将您已经付过费的文档即时发到您邮箱。

注:微信交易号是以“420000”开头的28位数字;

       支付宝交易号是以“2024XXXX”交易日期开头的28位数字。

客服邮箱:

biganzikefu@outlook.com

所有的文档都被视为“模板”,用于写作参考,下载前须认真查看,确认无误后再购买;

文档大部份都是可以预览的,笔杆子文库无法对文档的真实性、完整性、准确性以及专业性等问题提供审核和保证,请慎重购买;

文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为依据;

如果您还有什么不清楚的或需要我们协助,可以联系客服邮箱:

biganzikefu@outlook.com

常见问题具体如下:

1、问:已经付过费的文档可以多次下载吗?

      答:可以。登陆您已经付过费的账号,付过费的文档可以免费进行多次下载。

2、问:已经付过费的文档不知下载到什么地方去了?

     答:电脑端-浏览器下载列表里可以找到;手机端-文件管理或下载里可以找到。

            如以上两种方式都没有找到,请提供您的交易单号或截图及接收文档的邮箱等有效信息,发送到客服邮箱,客服经核实后,会将您已经付过费的文档即时发到您邮箱。

注:微信交易号是以“420000”开头的28位数字;

       支付宝交易号是以“2024XXXX”交易日期开头的28位数字。

笔杆子文秘
机构认证
内容提供者

为您提供优质文档,供您参考!

确认删除?