vb 自定义函数？

Question

我想自写一个函数，存放一些坐标之类的信息，情况不同时调用不同的函数。我是个新手，想请教一下，这类的自定义函数怎么写？调用的方法是什么？例如定义一个名为cd的函数，具体怎么写？然后怎么调用cd？

Answer 1

比如 求两个数的和的

Function add(a ,b )　　　　＇建立一个 add () 函数
add=a+b
End Function

Private Sub Form_Click()
Print add(8, 9)
End Sub

运行程序，点击一下窗体，就得到结果 17

知识小贴：　　　函数是有返回值的，过程没有返回值。

Answer 2

1、函数不是用来存放信息的，是用来处理信息的。
2、要根据坐标不同调用不同函数，你可以写一个主函数，再写几个不同的子函数。
示范如下：
Private Sub 坐标调用主程序(x As Long, y As Long)
If x > 100 And y > 100 Then Call 调用1(x, y)
If x > 100 And y < 100 Then Call 调用2(x, y)
'N个条件自己添加，对应N个调用函数
End Sub
Private Sub 调用1(x As Long, y As Long)
'程序省略
End Sub
Private Sub 调用2(x As Long, y As Long)
'程序省略
End Sub