vb.net 編寫一個(gè)函數(shù)

注意：參數(shù)為動(dòng)態(tài)數(shù)組；

右玉網(wǎng)站制作公司哪家好，找成都創(chuàng)新互聯(lián)公司！從網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、成都響應(yīng)式網(wǎng)站建設(shè)等網(wǎng)站項(xiàng)目制作，到程序開發(fā)，運(yùn)營維護(hù)。成都創(chuàng)新互聯(lián)公司從2013年創(chuàng)立到現(xiàn)在10年的時(shí)間，我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn)，來保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選成都創(chuàng)新互聯(lián)公司。

Private Function MyF(ByRef d() As Integer)

ReDim d(4, 13) As Integer

Dim i As Integer

Dim j As Integer

Dim n As Integer

Dim MyNum(4) As Integer

For i = 1 To 4

MyNum(i) = 0

Next i

Randomize

For i = 1 To 4

For j = 1 To 13

n = Int(Rnd * 4 + 1)

Do While MyNum(n) = 13

n = Int(Rnd * 4 + 1)

Loop

d(i, j) = n

MyNum(n) = MyNum(n) + 1

Next j

Next i

End Function

VB.net關(guān)于類之間函數(shù)的調(diào)用問題。

如上面所說，你可能還不太了解類、函數(shù)等的作用。

類可以用來封裝一系列操作，或者是一類對(duì)象的特性。像上面的描述，有可能是濫用類了。

建議你這樣，弄一個(gè)專門的運(yùn)算類，里面有四個(gè)運(yùn)算的函數(shù)，比如：

Class 運(yùn)算

Shared Function 加(ByVal 加數(shù)1 As Decimal, ByVal 加數(shù)2 As Decimal) As Decimal

'舉個(gè)例子

Return 加數(shù)1 ＋ 加數(shù)2 '百度打不出英文加號(hào)，你自己改一下

Exit Function

End Function

Shared Function 減(ByVal 被減數(shù) As Decimal, ByVal 減數(shù) As Decimal) As Decimal

'舉個(gè)例子

Return 被減數(shù) - 減數(shù)

Exit Function

End Function

End Class

上面我寫了兩個(gè)例子，你可以照抄然后自己寫乘除的，總之不要濫用類就行。

PS：Shared函數(shù)的使用不需要類被實(shí)例化，可以直接這樣使用：

Msgbox(運(yùn)算.加(1,2).ToString)

你會(huì)發(fā)現(xiàn)“運(yùn)算”是藍(lán)色的

VB.NET自定義函數(shù)

很簡單，在end select前再多加一種情況case else return "XXXx",因?yàn)槟阒惶峁┝?-9這10種情況

Public Function Zuhe(ByVal qa As String) As String

Select Case qa

Case "0"

Return "1"

Case "1"

Return "3"

Case "2"

Return "4"

Case "3"

Return "6"

Case "4"

Return "2"

Case "5"

Return "8"

Case "6"

Return "9"

Case "7"

Return "7"

Case "8"

Return "5"

Case "9"

Return "0"

Case else

Return "XXXX"

End Select

End Function