Sub s()
Dim m%, n%, i%, j%, a%(2)
m = InputBox("m")
n = InputBox("n")
For i = m To n
k = 0
For j = 2 To Sqr(i)
If i Mod j = 0 Then
a(k) = j
k = k + 1
If k > 2 Then Exit For
End If
Next
If k = 2 And a(1) * a(1) <> i Then
Debug.Print i; ":"; a(0); ","; a(1); ","; i / a(1); ","; i / a(0)
End If
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024