复小波分解程序
-
DimN,IN=CLng(InputBox("输入整数"))IfN=0OrN<2ThenWScript.QuitDoForI=2ToNIfNModI=0ThenIfN=IThens=s&NExitDoElses=s&I&"*"N=N/I
详情月下独酌素笺淡墨 2018-09-18 17:24 0评论 1赞同
-
刚帮另一个人回答完,你就来问了,呵呵dima,ba=inputbox("请输入数字:")dowhileamod2=0b=b&"2x"a=a/2loopb=b&amsgboxb
详情Elijah 2018-09-18 17:20 0评论 12赞同
-
谁能用VB 帮我写个分解质因数的小程序? 假设在文本框text1中输入12, 然后点击命令按钮
PrivateSubCommand1_Click()n=Val(Text1.Text)DoWhilei<nFori=2Ton-1IfnModi=0Thenn=n\is=s&i&"*"ExitForEndIfNextiLoop
详情阿尔法-Sco 2018-09-18 17:18 0评论 12赞同