一个text控件
Private Sub Form_Load()
Dim R As Double
Dim S As Double
R = Val(Text1.Text)
S = 3.14 * (R ^ 2)
MsgBox Str(S)
End Sub