没学过vba语言，不太清楚怎么弄，参数就是一个整数，然后给出他的根数
例如12=223，那么radical（12）=23=6
16=2222，radical（16）=2
现在要做excel中用，，就酱
matlab的函数也需要，要求一样，就是要一个这样的函数
追加：
今早看了以下稍微写了一点东西，但是写出来是错的，还请大家帮忙看下错在哪
还有由于准备要算的数据有的多，这个写的很粗糙，希望能优化一下节省算力
Public Function radical(abc As Double)
Dim x As Long
x = 1
For i = 2 To abc
If prime(abc) = 1 And abc Mod i = 0 Then x = x * i
Next
radical = x
End Function
Public Function prime(num)
For i = 2 To num
If num Mod i = 0 Then
prime = 0
Exit For
Else: If i = num Then prime = 1
End If
Next
End Function
Imports System
Module Module1
Public Function Radical(abc As Long) As Long
Dim x As Long
Dim i As Long
x = 1
For i = 2 To abc
'Console.WriteLine("i is : {0}", i)
If (abc Mod i = 0) AndAlso (IsPrime(i) = True) Then
x = x * i
'Console.WriteLine("x is : {0}", x)
End If
Next
return x
End Function
Public Function IsPrime(num As Long) As Boolean
'Console.WriteLine("num is : {0}", num)
Dim i As Long
Dim flag As Boolean
flag = True
For i = 2 To Math.Sqrt(num)
If num Mod i = 0 Then
flag = False
Exit For
End If
Next
'Console.WriteLine("flag is : {0}", flag)
return flag
End Function
Sub Main()
Console.WriteLine("Radical of 12 is : {0}", Radical(90))
End Sub
End Module
两个地方可以减少计算量：
判断num是不是质数的时候，只需要测试从2到Math.Sqrt(num)的所有整数。
判断i是不是abc的质因数的时候，采用AndAlso实现短路代码，只有i是因数的时候才判断是否为质数。