首頁(yè) 猿問(wèn) vb 自定義函數(shù)？

vb 自定義函數(shù)？

算法

守著星空守著你 2019-02-15 15:11:15

我想自寫(xiě)一個(gè)函數(shù)，存放一些坐標(biāo)之類的信息，情況不同時(shí)調(diào)用不同的函數(shù)。我是個(gè)新手，想請(qǐng)教一下，這類的自定義函數(shù)怎么寫(xiě)？調(diào)用的方法是什么？例如定義一個(gè)名為cd的函數(shù)，具體怎么寫(xiě)？然后怎么調(diào)用cd？

查看完整描述

2 回答

慕慕森

TA貢獻(xiàn)1856條經(jīng)驗(yàn) 獲得超17個(gè)贊

比如求兩個(gè)數(shù)的和的

Function add(a ,b )　　　?。Ы⒁粋€(gè) add () 函數(shù)
add=a+b
End Function

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

運(yùn)行程序，點(diǎn)擊一下窗體，就得到結(jié)果 17

知識(shí)小貼：　　　函數(shù)是有返回值的，過(guò)程沒(méi)有返回值。

反對(duì) 回復(fù) 2019-03-10

慕俠2389804

TA貢獻(xiàn)1719條經(jīng)驗(yàn) 獲得超6個(gè)贊

1、函數(shù)不是用來(lái)存放信息的，是用來(lái)處理信息的。
2、要根據(jù)坐標(biāo)不同調(diào)用不同函數(shù)，你可以寫(xiě)一個(gè)主函數(shù)，再寫(xiě)幾個(gè)不同的子函數(shù)。
示范如下：
Private Sub 坐標(biāo)調(diào)用主程序(x As Long, y As Long)
If x > 100 And y > 100 Then Call 調(diào)用1(x, y)
If x > 100 And y < 100 Then Call 調(diào)用2(x, y)
'N個(gè)條件自己添加，對(duì)應(yīng)N個(gè)調(diào)用函數(shù)
End Sub
Private Sub 調(diào)用1(x As Long, y As Long)
'程序省略
End Sub
Private Sub 調(diào)用2(x As Long, y As Long)
'程序省略
End Sub