Private Sub Command1_Click()
Const pi = 3.1415966 '定义常量pi
s = pi * Val(Text1.Text) ^ 2
Debug.Print s 'Debug立即窗口输出s的计算结果
End Sub
相关文章
- 07-28VB编程：Const自定义常量计算圆面积
2021-07-28 21:25:55
Private Sub Command1_Click()
Const pi = 3.1415966 '定义常量pi
s = pi * Val(Text1.Text) ^ 2
Debug.Print s 'Debug立即窗口输出s的计算结果
End Sub