Private Sub Command1_Click()
Dim r As Integer
Dim s As Integer
Dim l As Integer
Const PI = 3.14
r =Val(Text1.Text)
s =PI * r * r
l =2 * PI * r
Text2.Text = Str(l)
Text3.Text = Str(s)
End Sub
Private Sub Command1_Click()
Dim r As Integer
Dim s As Integer
Dim l As Integer
Const PI = 3.14
r =Val(Text1.Text)
s =PI * r * r
l =2 * PI * r
Text2.Text = Str(l)
Text3.Text = Str(s)
End Sub