Option Explicit Dim h,n,i h = csng(inputbox("紙の厚さ(mm)",h)) n = csng(inputbox("折りたたむ回数",n)) FOR i=1 TO n h=h*2 NEXT h=h/1000 MsgBox h & "m",, "高さ"