Private Function area(r As Double) As Double
area = r ^ 2 * 3.142
End Function
Private Sub Form_Click()
Dim r As Double
r = Val(InputBox("r=?"))
If r > 0 Then
Print "s=" & area(r)
Else
MsgBox "输入数据不符！"
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024