设计vb 计算圆的直径、面积和周长!!!!!!!!

Private Sub Command1_Click()
Const PI = 3.1415926
Dim R As Integer, Area As Double, Perimeter As Double
R = Val(Text1.Text)
Area = PI * R * R
Perimeter = 2 * PI * R
Label1.Caption = R & "---" & Area & "---" & Perimeter
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Label1.Caption = ""
End Sub
Private Sub Command3_Click()
End
End Sub

程序编译通过，程序运行仍然不正确，请修改？？？？？？？？/
题目为
编写一个程序，含有3个命令按钮，1个文本框，1个标签。
在命令按钮Command1(计算)的单击事件中编程：根据文本框Text1中输入的数据作为圆半径，把这个圆的直径、面积和周长的值显示在窗体的一个标签Label1上。假定x,y,z按序存放这3个数，则标签上的输出格式为：x & "---" & y & "---" & z
在命令按钮Command2(继续)的单击事件中编程：清除文本框和标签中的数据为空(即text1.text=""和Label1.caption="")。
在命令按钮Command3(退出)的单击事件中编程：结束程序的运行。
要求：圆周率取值为3.1415926，变量使用Double类型或变体类型。

计算任意多边形周长和面积的VB程序 根据半径、直径和周长求圆的面积公式 怎样设计计算圆面积的VB程序 C++问题:计算任意圆的周长和面积 如何计算椭圆的周长和面积? 一个圆的周长和直径的总长是12.42厘米,计算这个圆的面积.并告诉我每一步求的是什么 求足球场和篮球常所有圆的面积、直径和周长还有半径！ 圆的周长面积计算公式 圆的周长和面积 地球的周长面积与直径