需要一个excel的函数，求一个整数的所有素因子的乘积

Question

没学过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

Answer 1

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是因数的时候才判断是否为质数。