Private Sub factor(x As Integer , fn() As Integer ) |
Dim i As Integer , n As Integer |
ReDim fn(1): n = 1: fn(1) = 1 |
For i = 2 To x / 2 |
If x Mod i = o Then |
n = n + 1 |
ReDim Preserve fn(n) |
fn(n) = i |
End If |
Next i |
End Sub |
by: 发表于:2017-11-27 11:26:12 顶(0) | 踩(0) 回复
??
回复评论