Problema de VB: ingrese un número entero positivo, encuentre todos sus factores primos e imprímalos en forma de producto, por ejemplo, 28=2*2*7 ¡Por favor ayúdenme, gracias~!

Dim n As Integer

n = InputBox("Ingrese un número entero")

Imprimir n & "=" &Join( GetFactorArray(n), "*")

End Sub

Función pública GetFactorArray(ByVal n As Long)

'Devuelve el producto de los factores primos

Dim arr()

Dim m As Long

For i = 2 To n / 2

Hacer mientras n <>

Si n Mod i = 0 Entonces

ReDim Preserve arr(m)

arr(m) = i

m = m + 1

n = n / i

De lo contrario

Salir Hacer

Finalizar si

Bucle

Siguiente i

Si m > 0 Entonces

GetFactorArray = arr

Si no

GetFactorArray = Array(n)

Finalizar si

Finalizar si

m = m + 1

n = n / i

Fin Do

Finalizar si

Finalizar si

Finalizar función