这组代码怎么理解，求思路

Public Function Area(r As Single) As Single——声明模块，名称为Area
If r <= 0 Then                             ——如果半径r小于0（此前省略了声明变量r）那么

Area = 0                                   ——面积=0
Exit Function|                             ——退出模块
End If                                     ——结束假设
Area = 3.14 * r * r                        ——圆面积公式

End Function                               ——结束模块

Private Sub Command4_Click()             ——点击Command4按钮
Dim rr As Single                         ——设置半径变量rr
rr = Forms![窗体1]![半径]                ——让rr等于窗体上面‘半径’的值

Forms![窗体1]![圆面积] = Area(rr)        ——让窗体上面的‘面积’值等于圆面积公式(半径为rr)，高中数学的函数表达式y=f(x)
End Sub                                  ——结束对话