VB编程题:一个正整数分解成质因数天的剩积,如输入:90打印90=2*3*3*5
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/05 12:08:27
VB编程题:一个正整数分解成质因数天的剩积,如输入:90打印90=2*3*3*5
![VB编程题:一个正整数分解成质因数天的剩积,如输入:90打印90=2*3*3*5](/uploads/image/z/14765310-54-0.jpg?t=VB%E7%BC%96%E7%A8%8B%E9%A2%98%EF%BC%9A%E4%B8%80%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0%E5%88%86%E8%A7%A3%E6%88%90%E8%B4%A8%E5%9B%A0%E6%95%B0%E5%A4%A9%E7%9A%84%E5%89%A9%E7%A7%AF%2C%E5%A6%82%E8%BE%93%E5%85%A5%EF%BC%9A90%E6%89%93%E5%8D%B090%EF%BC%9D2%2A3%2A3%2A5)
写成一个函数:
Function yin(i As Integer)
Dim k As Integer
k = 2
Dim s As String
s = i & "="
While k <= i
If i / k = Int(i / k) Then
Debug.Print i, k
s = s & k & "*"
i = i / k
Else
k = k + 1
End If
Wend
yin = Mid(s, 1, Len(s) - 1)
End Function
.
这样调用:
Private Sub Command1_Click()
Text1 = yin(Text2.Text + 0)
End Sub
![](http://img.wesiedu.com/upload/7/35/735be138d8085b745292ac3f051e2567.jpg)
Function yin(i As Integer)
Dim k As Integer
k = 2
Dim s As String
s = i & "="
While k <= i
If i / k = Int(i / k) Then
Debug.Print i, k
s = s & k & "*"
i = i / k
Else
k = k + 1
End If
Wend
yin = Mid(s, 1, Len(s) - 1)
End Function
.
这样调用:
Private Sub Command1_Click()
Text1 = yin(Text2.Text + 0)
End Sub
![](http://img.wesiedu.com/upload/7/35/735be138d8085b745292ac3f051e2567.jpg)
VB编程题:一个正整数分解成质因数天的剩积,如输入:90打印90=2*3*3*5
用VB编写输入一个正整数N,把它分解成质因子相乘的形式.如输入36,输出36=1×2×2×3×3
C语言,急,特别急题目是这样的:将一个正整数分解质因数,例如,输入90,输出90=2×3×3×5这怎么写啊!
如何用C语言编程将正整数分解成质因数
c语言,输入一个正整数,将这个正整数分解质因数
VB:输入一个正整数N,把它分解成质因子相乘的形式
用VB做一个阶乘就是比如你输入的是5 那么输出或者打印出来的 的是1*2*3*4*5=120
输入一个正整数N,把它分解成质因子相乘的形式.如:36=1×2×2×3×3;用 FREE pascal.
C语言 帮个忙 编程题1) 在输入的一批正整数中求出最大者(输入0结束).2) 从键盘输入一个数n,打印高度为2*n-1
java编程题:输入三角形行数打印数字三角形.如输入5,打印:1 12 123 1234 12345
VB编程题.输入一个整数判断他是否是5 的倍数
输入一个不多于5位的正整数,要求 1求出它是几位数 2分别打印每一位数字 3按逆序输出各位数字