函数定义名Area,参数r
Function Area(r)
Area = 3.1415926 * r * r
End Function
调用例子：
Private Sub Command1_Click()
Label1.Caption = Area(Val(Text1.Text))
End Sub