设计一个窗口，在文本框内输入一个园的半径，在标签里显示出园的面积、周长。

Private Sub Command1_Click()
pi = 3.1415
a = 2 * pi * Text1.Text
b = pi * Text1.Text * Text1.Text
Label1.Caption = "该圆面积为：" & b & "|||" & "周长为：" & a
End Sub

新建工程，加入三个textbox,一个botton
Dim r
Dim Pi
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入半径"
Exit Sub
End If
Pi = 3.1415926
r = Text1.Text
Text2.Text = Pi * r * r
Text3.Text = 2 * Pi * r
End Sub

加Q448159161
我不是很好
我也在学VB，有时间交流交流