2020-01-12 VBA 素因数の数 基本計算編 Sub 素因数の数()Dim N As IntegerDim p As IntegerDim I As IntegerDim a As Integer N = InputBox("n =")p = 2Do While N > 1 If N Mod p = 0 Then a = a + 1 Do While N Mod p = 0 N = N / p Loop End If p = p + 1Loop Call MsgBox(a) End Sub