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

来源:学生作业帮助网 编辑:作业帮 时间:2024/10/12 16:12:41
VB编程题:一个正整数分解成质因数天的剩积,如输入:90打印90=2*3*3*5
xU[kA+ВԺ;{^4)hPPZf$ۓx-"b+Bj[AC>D3$>/8֐ ̞9w.{6\jl=qc槝Asww{~kQ<~x>~o>FRêoD&bW6q+OG;kģ2]B3$^^`.j6:N9RS/;*J *őY >IʤUZyߎT_7\RƩ'Au$NxZ:ya2gcb?֊5 N

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