Question

vb 自定义函数

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

Answer 1

请明确提问内容

追问

就是想写个最简单的函数，然后去调用啊

追答

刚写的一个用递归方法求一个数的阶乘，包含除错引导。

Private Sub Command1_Click()
    MsgBox JieCheng(5)
End Sub

Private Function JieCheng(i As Integer) As Long
    Select Case i           '求一个数的阶乘
        Case Is <= 0
            JieCheng = 0
        Case 1
            JieCheng = 1
        Case Else
            JieCheng = i * JieCheng(i - 1)
    End Select
End Function

Answer 2

比如 求两个数的和的

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

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

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

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

追问

我不需要a、b之类的，就是在其中定义一些东西，例如 a=1，b=2，不需要返回值。

追答

那就用过程，可以自定义过程。

如
Private Sub xs() ‘自定义了一个过程 xs ()
dim a
dim b
a= "早上好"
b="先生"
Print a
print b
End Sub

Private Sub Form_Click()
call xs() ' 调用自己定义的过程
End Sub

如果你想 定义一些全局变量，可以在代码的最前头定义

Private a as integer
a=100
'这样你在后面随便哪个过程里面都可以 调用 a

如果还有不明白的，希望指定具体要实现的功能，才好一次说明白

Answer 3

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