VBA学习--第一课 强制声明,变量和常量

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