Dim r As Double
r = Val(InputBox("請輸入圓的半徑:"))
Print "該圓的面積是:", 3.14 * r ^ 2
Print "該圓的周長是:", 2 * 3.14 * r
End Sub