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

上传资料

关闭

关闭

关闭

封号提示

内容

首页 Vb程序代码

Vb程序代码.doc

Vb程序代码

5月这个初夏的季节
2017-09-27 0人阅读 举报 0 0 暂无简介

简介:本文档为《Vb程序代码doc》,可适用于IT/计算机领域

Vb程序代码奇数和PrivateSubCommandClick()DimiAsInteger,nAsInteger,sumAsIntegerDimtxtAsStringDoWhilei<n=n:i=*na=a""isum=sumiLoopTextText=aLabelCaption="到奇数和为:"sumEndSub逆序显示PrivateSubCommandClick()DimmAsString,nAsInteger,sAsString,sAsStringm=Trim(TextText)n=Len(m)Fori=nToSteps=Mid(m,i,)s=ssNextiTextText=sEndSub奇数阶乘和PrivateSubCommandClick()DimnAsInteger,iAsInteger,tAsSingle,sumAsDouble,sumAsDoublen=Val(TextText):sum=:sum='Ifn=Then'TextText=sum'Elsei=DoWhilei<(*n)i=i:t=Forj=Toit=t*jNextjsum=sumt':sum=sumsumLoop'EndIfTextText=sumEndSub闰年算法PrivateSubCommandClick()DimmAsInteger,nAsStringn=Form=ToIf(mMod=AndmMod<>)OrmMod=Thenn=n""mEndIfNextmTextText=nEndSub三角形三边PrivateSubCommandClick()DimaAsSingle,bAsSingle,cAsSingle,sAsSingleDimareaAsSinglea=Val(TextText)b=Val(TextText)c=Val(TextText)s=(abc)Ifs>Andsa>Andsb>Andsc>Thenarea=Sqr(s*(sa)*(sb)*(sc))LabelCaption="能构成三角形的三边""该三角形的面积为:"Str(area)ElseLabelCaption="不能构成三角形的三边"EndIfEndSubPrivateSubCommandClick()TextText=""TextText=""TextText=""LabelCaption=""EndSub水仙花PrivateSubCommandClick()'判断某数是否为水仙花DimnAsInteger,xAsInteger,yAsInteger,zAsIntegern=Val(TextText)Ifn<Orn>Theni=MsgBox("请输入三位数~",vbRetryCancel)Ifi=vbRetryThenTextText="":TextSetFocusElseEndEndIfElsex=ny=nx*z=n(x*y*)Ifn=x^y^z^ThenLabelCaption="恭喜您~此数为水仙花~"ElseLabelCaption="加油~祝您下次输入水仙花~"EndIfEndIfEndSubPrivateSubFormClick()'求三位数的水仙花Dima,b,c,dAsInteger'a(个)b(十)c(百)Fora=ToForb=ToForc=ToIfa^b^c^=a*b*cThend=*c*baTextText=TextText""dEndIfNextcNextbNextaEndSub整除的倍数PrivateSubCommandClick()DimiAsInteger,sAsStringFori=ToIfiMod=Thens=s""iEndIfNextiTextText=sEndSub自然数阶乘和PrivateSubCommandClick()DimnAsInteger,iAsInteger,tAsInteger,sumAsInteger,sumAsIntegern=Val(TextText):t=DoWhilei<ni=i:t=t*i:sum=sumt:'sum=sumsumLoopTextText=sumEndSubMsgboxPrivateSubCommandClick()'IfNotIsNumeric(Text)Then'MsgBox"非数字字符不能转换成数值请重新输入~",vbCritical'EndIfa=MsgBox("输入类型错误",vbOK)EndSub自然数平方和PrivateSubFormClick()Fori=Tos=s()^(n)*i^NextiPictureClsPicturePrintsEndSub

用户评价(0)

关闭

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

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

提示

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

文档小程序码

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

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/6

Vb程序代码

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利