答:試試這個:
Private Sub Form_Load()
Dim r, s As Long
r = Val(InputBox("請輸入圓的半徑", "計算圓的面積", 1))
s = 3.14 * r * r
Print "圓的面積是:"; s
End Sub
答:試試這個:
Private Sub Form_Load()
Dim r, s As Long
r = Val(InputBox("請輸入圓的半徑", "計算圓的面積", 1))
s = 3.14 * r * r
Print "圓的面積是:"; s
End Sub