VB.NET自定義函數

很簡單，在end select前再多加一種情況case else return "XXXx",因為你只提供了0-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

vb.net 如何能獲取到 自定義函數的代碼內容

首先新建一個類庫項目，把你的代碼以類（需要實例）或模塊（靜態）的形式封裝好，生成過后在輸出目錄（bin/debug或bin/release）里面會有個項目名.dll文件，就是它了。

在調用方項目里，右鍵解決方案資源管理器中的引用，添加引用，瀏覽到你的dll文件。接著到你的代碼中，代碼最上面寫：

Imports 項目名

然后調用這個類或模塊即可。

根據你的情況，可能用模塊封裝更適合一些。比如：

Public Module MatrixSolve

Public Function Solve(para1 As Double,para2 As Double) As Double

'一些代碼

Return result

End Function

End Module

調用起來只要這樣即可：

Dim num As Double = MatrixSolve.Solve(x,y)

注意模塊和函數的訪問級別都用Public，否則外面無法訪問。

vb.net 編寫一個函數

注意：參數為動態數組；

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自建函數 vbnet function
文章路徑：http://vcdvsql.cn/article30/doscopo.html

成都網站建設公司_創新互聯，為您提供Google、企業建站、企業網站制作、網站內鏈、網站制作、網站排名

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯