《VB输入一个正整数N把它分解成质因子相乘的形式.docx》由会员分享,可在线阅读,更多相关《VB输入一个正整数N把它分解成质因子相乘的形式.docx(1页珍藏版)》请在三一办公上搜索。
VB输入一个正整数N把它分解成质因子相乘的形式输入一个正整数N,把它分解成质因子相乘的形式。如:输入36,输出36=1*2*2*3*3 Private Sub Command1_Click Dim i As Integer, s As String, x As Integer x = InputBox() i = 2 s = Str(x) + =1* While (x 1) If x Mod i = 0 And check(i) Then s = s + Str(i) + * x = x / i i = 1 End If i = i + 1 Wend Print Left(s, Len(s) - 1) End Sub Public Function check(M As Integer) As Boolean Dim i As Integer i = 2 Do Until (M Mod i = 0) Or (i = M - 1) i = i + 1 Loop If M Mod i = 0 And M 2 Then check = False Else check = True End Function