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

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

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

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編寫(xiě)一個(gè)函數(shù)，函數(shù)只有一個(gè)參數(shù)

首先在窗體上添加Button1，ListBox1，下面是完整代碼

Public?Class?Form1

Public?Sub?BubbleSort(ByVal?arr()?As?Integer)?'冒泡法排序

Dim?temp?As?Double

Dim?i,?j?As?Integer

For?i?=?0?To?arr.GetUpperBound(0)?-?1

For?j?=?i?+?1?To?arr.GetUpperBound(0)?-?1

If?arr(i)??arr(j)?Then

temp?=?arr(j)

arr(j)?=?arr(i)

arr(i)?=?temp

End?If

Next

Next

End?Sub

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click?'調(diào)用

Dim?arr()?As?Integer?=?{55,?22,?33,?11,?77,?88}

BubbleSort(arr)?'調(diào)用排序過(guò)程

Me.ListBox1.Items.Clear()

For?i?=?0?To?arr.GetUpperBound(0)?-?1?'顯示排序后結(jié)果

Me.ListBox1.Items.Add(arr(i).ToString)

Next

End?Sub

End?Class

vb.net 如何能獲取到 自定義函數(shù)的代碼內(nèi)容

首先新建一個(gè)類庫(kù)項(xiàng)目，把你的代碼以類（需要實(shí)例）或模塊（靜態(tài)）的形式封裝好，生成過(guò)后在輸出目錄（bin/debug或bin/release）里面會(huì)有個(gè)項(xiàng)目名.dll文件，就是它了。

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

Imports 項(xiàng)目名

然后調(diào)用這個(gè)類或模塊即可。

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

Public Module MatrixSolve

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

'一些代碼

Return result

End Function

End Module

調(diào)用起來(lái)只要這樣即可：

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

注意模塊和函數(shù)的訪問(wèn)級(jí)別都用Public，否則外面無(wú)法訪問(wèn)。