VB 判断一个数有没有两个以上相同的因数

来源：百度知道 编辑：UC知道 时间：2024/05/19 04:08:43
例如：6=2*3，没有两个相同的因数
75=5*5*3，有两个相同的5
用VB如何实现自行判别...谢谢
不用指出有几个重复的因数，只要判别那个数是否符合这样的条件

Private Sub Command1_Click()
Dim n&
n = Val(InputBox("请输入一个数吧!"))
Print n & IIf(ys(n), "", "没") & "有两个以上相同的因数!"
End Sub

Function ys(n&) As Boolean
Dim i%
ys = False
For i = 2 To Sqr(n)
If n Mod i ^ 2 = 0 Then ys = True
Next
End Function

是个好方法，我想了半天没有思路呢！