<プログラム>
Sub ProgramM6 ()
Dim a As Long
Dim b As Long
Dim c As Long
2
Dim d As Long
370
Dim e As Long
a = Val(InputBox(""))
b = 0
c = 2
Do While a > 0 a po
d = Int (a
e = a -
d
MsgBox (e)
bbe
10)
10
7
C
If c 2 Then
c = 2
Else
Loop
c = 6
End If
a=d
MsgBox (b)
End Sub
ウウ