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

来源:学生作业学帮网 编辑:学帮网 时间:2024/05/04 09:06:12

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