用VB编写输入一个正整数N,把它分解成质因子相乘的形式.如输入36,输出36=1×2×2×3×3不用text的形式,应如何去做

来源：学生作业帮助网 编辑：作业帮 时间：2024/11/16 07:33:12
用VB编写输入一个正整数N,把它分解成质因子相乘的形式.如输入36,输出36=1×2×2×3×3不用text的形式,应如何去做
xRKKQ+Cih2\YAQ1%38ci"TBT-\iw\ p;yq%5`UۛAkpE7Kr`޳iY{]rRq2KqMwS=j=\,IӾGu7wFrAxүR1wrА9_gb 2<v G JШˉQ0")U`#Ac\7sT!h23l"yt $DR\V(#S\H.@:^La=pRQ|}VzP)89v]E:8꒠1?`T

用VB编写输入一个正整数N,把它分解成质因子相乘的形式.如输入36,输出36=1×2×2×3×3不用text的形式,应如何去做
用VB编写输入一个正整数N,把它分解成质因子相乘的形式.如输入36,输出36=1×2×2×3×3
不用text的形式,应如何去做

用VB编写输入一个正整数N,把它分解成质因子相乘的形式.如输入36,输出36=1×2×2×3×3不用text的形式,应如何去做
Dim n%,cs,i%
n = Text1
cs = "1":i = 2
Do
If n Mod i = 0 Then
n = n / i:cs = cs & "×" & i
Else
i = i + 1
End If
Loop While i < n:cs = cs & "×" & n
Option Explicit
Private Sub Command1_Click()
Dim n%,cs,i%
n = InputBox("","",36)
cs = n & "＝1":i = 2
Do
If n Mod i = 0 Then
n = n / i:cs = cs & "×" & i
Else
i = i + 1
End If
Loop While i < n:cs = cs & "×" & n
MsgBox cs
End Sub

VB:输入一个正整数N,把它分解成质因子相乘的形式 用VB编写输入一个正整数N,把它分解成质因子相乘的形式.如输入36,输出36=1×2×2×3×3不用text的形式,应如何去做 用Pascal编写—输入一个正整数n,把它分解成质因子相乘的形式.例如24=2*2*2*3.（用for循环语句） 输入一个正整数N,把它分解成质因子相乘的形式.如：36=1×2×2×3×3；我是个新手,今天布置的这个程序我编不出来,注明：要用pascal来编写. 输入一个正整数n,把它分解成质因子相乘的形式运用C语言 帮忙编程! 输入一个正整数N,把它分解成质因子相乘的形式.如：36=1×2×2×3×3；用 FREE pascal. 输入一个正整数N,把它分解成质因子相乘的形式.如：36=1×2×2×3×3；用 FREE pascal 用vb程序编写,一个正整数n的三次方,将立方后的正整数n分解为n个连续奇数和的形式 用C语言编写程序,输入一个正整数n（1 编写程序,输入一个正整数n（1 编写程序,输入一个正整数n(1 用VB编写程序,输入一个正整数n,求所有大于1且小于n,同时与n互质的数,存入一个数组并每行5个的格式输出 输入一个正整数N,把它分解成质因子相乘的形式,有错误,请指出?var i,n,k:integer;begin read(n); write(n,'=1*'); while i 编写程序,输入正整数n,计算它的阶乘n! 编写程序,输入正整数n,计算它的阶乘n! 用do..while编写输入一个正整数n,再输入n个正整数,判断它们是否为素数 C程 编写把一个数分解成几个质数之积祥题：程序填空,不要改变与输入输出有关的语句.输入一个正整数repeat (0 利用VB设计一个程序：输入一个大于10的正整数n,计算sum=1+3+5+…(2n+1),编写程序输出计算结果sum请附上程序代码及对应成图!