Option Explicit #如果存在没有定义的变量,会出错,强制声明
Sub mathTest()
Dim r1,s
const Pi=3.1415 #值为常量,不能被修改
r1=Cells(4,3)
s=Pi*r1*r1
Cells(4,4)=s
End Sub
Option Explicit #如果存在没有定义的变量,会出错,强制声明
Sub mathTest()
Dim r1,s
const Pi=3.1415 #值为常量,不能被修改
r1=Cells(4,3)
s=Pi*r1*r1
Cells(4,4)=s
End Sub