計算factorial 在 visal basic

你可以用do loop 找出該數的所有因子。

假設該數是 x. 下面是簡單的方法, 未 check 有冇 syntax error.

i = 2

do while x <> 1

if (x / i = int (x / i)) then
y = i ; y is one of the factors, you may add code here
x = x/i ; i may be factor of x more than once, so do not increment i yet
else
i = i+1
end if

loop