成人午夜视频全免费观看高清-秋霞福利视频一区二区三区-国产精品久久久久电影小说-亚洲不卡区三一区三区一区

vb.net自建函數(shù) vbnet function

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

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

創(chuàng)新互聯(lián)專注于南華企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站建設(shè),電子商務(wù)商城網(wǎng)站建設(shè)。南華網(wǎng)站建設(shè)公司,為南華等地區(qū)提供建站服務(wù)。全流程按需定制,專業(yè)設(shè)計(jì),全程項(xiàng)目跟蹤,創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)

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 如何能獲取到 自定義函數(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文件。接著到你的代碼中,代碼最上面寫:

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)。

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

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

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

網(wǎng)站欄目:vb.net自建函數(shù) vbnet function
文章路徑:http://jinyejixie.com/article30/doscopo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供Google、企業(yè)建站、企業(yè)網(wǎng)站制作網(wǎng)站內(nèi)鏈、網(wǎng)站制作網(wǎng)站排名

廣告

聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)

成都網(wǎng)站建設(shè)
枝江市| 井陉县| 砀山县| 北海市| 扶沟县| 武安市| 江山市| 沛县| 宾阳县| 铜鼓县| 大连市| 黔西| 平利县| 张家界市| 东明县| 德惠市| 涟源市| 宝应县| 独山县| 黄骅市| 泉州市| 汉源县| 石柱| 二连浩特市| 清苑县| 嘉定区| 渝北区| 什邡市| 万盛区| 娄底市| 新野县| 高唐县| 宜丰县| 土默特右旗| 嘉善县| 本溪市| 敖汉旗| 彭水| 贡觉县| 乐至县| 通榆县|