VB编程题:一个正整数分解成质因数天的剩积,如输入:90打印90=2*3*3*5

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/19 15:46:31
VB编程题:一个正整数分解成质因数天的剩积,如输入:90打印90=2*3*3*5VB编程题:一个正整数分解成质因数天的剩积,如输入:90打印90=2*3*3*5VB编程题:一个正整数分解成质因数天的剩

VB编程题:一个正整数分解成质因数天的剩积,如输入:90打印90=2*3*3*5
VB编程题:一个正整数分解成质因数天的剩积,如输入:90打印90=2*3*3*5

VB编程题:一个正整数分解成质因数天的剩积,如输入:90打印90=2*3*3*5
写成一个函数:
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