Private Sub Command1_Click()
Dim R As Single
Dim L As Single
Dim S As Single
Const Pi As Double = 3.1415926
R = Val(Text1.Text)
L = 2 * Pi * R
S = Pi * R ^ 2
Text2.Text = L
Text3.Text = S
End Sub

这是那天的商场门口的树

有他的城市很美