Question

VBA编程在Access中的应用

如何设置一个窗体，输入一个半径，可以求出该圆周长，求代码

Answer 1

1. 新建一个窗体；

2. 在窗体设计状态，添加两个文本框（一个半径，一个周长），添加一个计算按钮；

3. 计算按钮的单击事件代码：

Private Sub 计算_Click()
    if IsNumeric(me.半径) then
        Me.周长= 2 * 3.14159 * Me.半径        
    else
        msgbox "请输入半径！"
    end if
End Sub

祝你成功！

追问

对是对，能麻烦你用函数调用那个方法吗

追答

不太明白你的意思......1.

Private Sub 计算_Click()
    me.周长=zc(me.半径)
End Sub
'计算周长函数
Function zc(bj As Double) As Double
    if IsNumeric(bj) then zc = 3.14159 * 2 * bj
End Function

祝你成功！