下载
加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 vb 程序代码

vb 程序代码.doc

vb 程序代码

April良翠
2017-09-27 0人阅读 举报 0 0 暂无简介

简介:本文档为《vb 程序代码doc》,可适用于综合领域

vb程序代码!的值DoWhilei<=PrivateSubCommandClick()Sum=Sumi*ii=iDimiAsIntegerLoopSum=PrintSumFori=To求***…结果,Sum=Sum*iDimi,jAsIntegerNextDimsAsLongPrintSumFori=ToEndSubs=求以内偶数的和,Forj=iToiPrivateSubCommandClick()s=s*jDimiAsIntegerNextFori=Tom=msIfiMod=ThenNextSum=SumiPrintmEndIf输出之间能被整除又能被Next整除的数存入变量sum中。PrintSumDimiAsIntegerEndSubFori=To求…的和,If((iMod)=And(iMod)=o)ThenDimiAsIntegerPrint(Str(i))Fori=ToSum=SumiIfiMod=ThenEndIfSum=SumiNextEndIfPrintSumNext求以内偶数的和,PrintSumDimiAsInteger求s=***…~Fori=ToDimi,jAsIntegerIfiMod=ThenDimkAsLongs=sik=EndIfs=NextFori=ToPrint(Str(s))Forj=Toi求以内奇数的和,k=k*jDimiAsIntegerNextFori=Tos=skIfiMod=Thenk=s=siNextEndIfPrintsNext求的自然数的平方和,PrintsDimiAsIntegeri=求以内素数和,s=…DimiAsIntegerDimiAsIntegerDimjAsIntegeri=DimkAsIntegerWhilei<=DimbAsBooleans=sib=Falsei=iFori=ToWendb=FalsePrint(Str(s))k=Int(Sqr(i))Fork=TojIfiModk=Thenb=TrueEndIfNextIfb=FalseThenSum=SumiEndIfNextPrintSum求~~…~的值输入在存有变量L中。DimaAsIntegerDimsAsLongs=Fori=Tos=s*il=lsNextPrintStr(l)求两个数mn的最大公约数p和最小公约数qnm=n*mIfm<nThent=m:m=n:n=tr=mModnEndIfDoWhile(r<>)m=nn=rr=mModnLoopp=nq=mn

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/4

vb 程序代码

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利