VB编程：Const自定义常量计算圆面积-2_彭世瑜_新浪博客

Private Sub Command1_Click()

Const pi = 3.1415966     '定义常量pi

s = pi * Val(Text1.Text) ^ 2

Debug.Print s                  'Debug立即窗口输出s的计算结果

End Sub