VB 输入 半径 计算圆的周长和面积公式

他们的答案好像都没有输出结果.
Dim r, s, c As Integer
Private Sub Command1_Click()
r = Val(Text1.Text)
s = 3.1415926 * r ^ 2
c = 2 * 3.1415926 * r
Label1.Caption = "周长是：" & c
Label2.Caption = "面积是：" & s
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Label1.Caption = ""
Label2.Caption = ""
End Sub