Const pi = 3.1415926
Dim mj, zc, r
r = Val(InputBox("請輸入入R的值:"))
zc = 2 * pi * r
mj = pi * (r ^ 2)
MsgBox "面積為" & mj & "周長為" & zc