Question

vb统计某偶数的质因子并显示在窗体上。

vb统计某偶数的质因子并显示在窗体上。

Answer 1

填空部分如下：

i = 0
j = 2
While (n > 1)

If n Mod j = 0 Then
i = i + 1
ReDim Preserve F(i)
F(i) = j
While n Mod j = 0
n = n \ j
Wend
End If
j = j + 1
Wend