计算机高一试题：试编写一个程序,实现输入圆的半径,输出圆的周长和面积?

Private Sub Command1_Click()
Dim r As Single
Dim c As Single
Dim s As Single
r = Val(Text1.Text)
c = 2 * 3.14159 * r
s = 3.14159 * r * r
Text2.Text = c
Text3.Text = s
End Su