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

上传资料

关闭

关闭

关闭

封号提示

内容

首页 VB程序代码

VB程序代码.doc

VB程序代码

没有你的爱情_一片哀伤
2017-09-27 0人阅读 举报 0 0 暂无简介

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

VB程序代码~学年第二学期VB期末考试(A卷答案)(级数学、管科类等专业)、请续写一个求N~的Function递归函数过程。(如未使用递归扣分)PrivateFunctionfact(nAsInteger)AsLongIfn=Orn=Thenfact=Elsefact=n*fact(n)EndIfEndFunction、请编写一个求任意一个正整数因子的SUB过程。(因子不包括正整数自身)(或其他答案)PrivateSubYz(NAsInteger,SumAsInteger)DimiAsIntegerSum=Fori=ToNIfNModi=ThenSum=SumiNextiEndSub、请编写一个判断某个整数是否为素数的函数过程Prime。(或其他答案)PrivateFunctionprime(nAsInteger)AsBooleanDimiAsIntegerFori=ToSqr(n)IfnModi=ThenExitFunctionNextiprime=TrueEndFunction、请编写一个求两个整数的最大公约数的函数过程GCD。(或其他答案)PrivateFunctiongcd(ByValmAsInteger,ByValnAsInteger)AsIntegerDimrAsIntegerDor=mModnm=nn=rLoopUntilr=gcd=mEndFunction十进制转换为二进制:PrivateSubCommandClick()~学年第二学期VB期末考试(A卷答案)(级数学、管科类等专业)DimDecAsInteger,BinAsString,resAsIntegerDec=InputBox("x=")Print"十进制数:"DecDores=DecModBin=resBinDec=DecLoopWhileDec<>Print"转换为二进制数为:"Bin求阶乘:PrivateSubCommandClick()DimxAsString,iAsInteger,pAsDoublex=InputBox("请输入任意一个正整数")Ifx>="a"Andx<="z"Orx>="A"Andx<="Z"OrVal(x)<ThenMsgBox"数据非法~",Elsei=p=DoWhilei<=Val(x)p=p*ii=iLoopTextText=x"!="Str(p)EndIfPrivateSubCommandClick()TextText=""素数:PrivateSubCommandClick()DimiAsInteger,k,m,jPicturePrintm=Fori=ToStepFork=ToSqr(i)IfiModk=ThenExitForNextkIfk>Sqr(i)ThenIfmMod=ThenPicturePrintPicturePrintim=m~学年第二学期VB期末考试(A卷答案)(级数学、管科类等专业)EndIfNexti因子求和:PrivateSubCommandClick()DimnAsInteger,IAsInteger,sumAsIntegern=InputBox("输入一个自然数")PrintStr(n)"的因子和为:"ForI=TonIfnModI=ThenPrint""Isum=sumIEndIfNextIPrint"="sum九九乘法表:PrivateSubCommandClick()DimiAsInteger,jAsIntegerPrintPrintPrintTab()"*"Fori=ToPrintTab(*i)iNextiPrintFori=ToPrintiForj=ToiPrintTab(*j)i*jNextjPrintNextiEndSubPrivateSubCommandClick()DimiAsInteger,jAsIntegerPrintPrintPrintTab()"*"Fori=ToPrintTab(*i)iNextiPrintFori=ToPrintiForj=iToPrintTab(*j)i*jNextjPrintNextiPrivateSubCommandClick()Cls八变十OptionExplicit~学年第二学期VB期末考试(A卷答案)(级数学、管科类等专业)PrivateSubCommandClick()MsgBoxoctdec()EndSubFunctionoctdec(ByValoctAsLong)AsLongIfoct=Thenoctdec=Elseoctdec=(octMod)*octdec(oct)EndIfEndFunction

用户评价(0)

关闭

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

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

提示

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

文档小程序码

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

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/6

VB程序代码

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利