【文件属性】：
文件名称：调用函数-AO编程基础
文件大小：198KB
文件格式：PPT
更新时间：2021-04-23 21:08:04
arcgis AO vba
调用函数
Private Sub Start ()
Dim n As Integer
Dim dd As Double
n = InputBox(“Type a number”)
' Call the Inverse function and assign the return value to dd.
dd = Inverse (n)
MsgBox “The inverse of the number is: “ & dd
End Sub
Private Function Inverse (m) As Double
Dim d As Double
d = 1 / m
Inverse = d ' Return the d value.
End Function