VBA编程在Access中的应用

新建一个窗体； 在窗体设计状态，添加两个文本框（一个半径，一个周长），添加一个计算按钮； 计算按钮的单击事件代码： Private Sub 计算_Click() if IsNumeric(me.半径) then Me.周长= 2 * 3.14159 * Me.半径 else msgbox "请输入半径！" end ifEnd Sub 祝你成功！