Private Sub Command1_Click()Print mianji(10)End SubPrivate Function mianji(banjin As Long) As LongConst pi = 3.1415926mianji = pi * banjin ^ 2End Function