vb.net 編寫一個函數

注意：參數為動態(tài)數組；

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

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關于類之間函數的調用問題。

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

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

建議你這樣，弄一個專門的運算類，里面有四個運算的函數，比如：

Class 運算

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

'舉個例子

Return 加數1 ＋ 加數2 '百度打不出英文加號，你自己改一下

Exit Function

End Function

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

'舉個例子

Return 被減數 - 減數

Exit Function

End Function

End Class

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

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

Msgbox(運算.加(1,2).ToString)

你會發(fā)現“運算”是藍色的

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介于函數 vb和net的關系
文章路徑：http://www.yijiale78.com/article10/doddjgo.html

成都網站建設公司_創(chuàng)新互聯，為您提供網站收錄、網站設計、App開發(fā)、商城網站、微信公眾號、網站建設

廣告

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