Question

ACCESS中的VBA编程题目。帮忙。在线等。谢啦

1、计算圆面积。要求创建一个主过程：过程名为main，在主过程中通过inputbox函数输入一个半径，再调用area(function)过程计算圆面积，并将结果返回主过程，用msgbox命令输出。/2、比较三个数，并输出最大的数。要求创建一个主过程：过程名为main，在主过程中输入三个数，再调用mymax(function)过程比较这三个数，并将最大数返回主过程，用msgbox命令输出该数

Answer 1

Sub main()
Dim a As Double
a = InputBox("请输入一数:", "提示:", 0)
MsgBox mymax(a, 1, 2)
MsgBox area(a)
End Sub

Function area(r As Double)
area = 3.1415926 * r * r
End Function

Function mymax(d1 As Double, d2 As Double, d3 As Double)
If d1 >= d2 Then
mymax = d1
Else
mymax = d2
End If
If mymax < d3 Then
mymax = d3
End If
End Function