2020-01-11 VBA mのn乗 基本計算編 Sub 累乗() Dim n As IntegerDim m As IntegerDim i As IntegerDim a As IntegerDim b As Integer n = InputBox("n = ?")m = InputBox("m = ?")a = 1 For i = 1 To n a = a * mNext i Call MsgBox(a) End Sub