vb.net 編寫一個函數

注意：參數為動態數組；

創新互聯10多年成都企業網站定制服務;為您提供網站建設,網站制作,網頁設計及高端網站定制服務,成都企業網站定制及推廣,對陽臺護欄等多個方面擁有豐富的網站推廣經驗的網站建設公司。

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函數調用

1. Shared Function System.Runtime.

InteropServices.DLLimport("user32.dll")

2. MessageBoxA(ByVal hwnd As Integer,

ByVal text As String, ByVal

lpcaption As String, ByVal

wtype As Integer) As Integer

3. End Function

首先integer被作為32位數據替代了long(long是64位)

System是Net語言中的一個族，System.Runtime.InteropServices是system中的一個類。System.Runtime.InteropServices.DLLimpor是其中的一個方法。調用DLL的API

接口，這個的意思就是vb6的lib"user32", share是共享的意思，例如：

1. Public Class classA

2. Shared Function System.Runtime.

InteropServices.DLLimport("user32.dll")

MessageBoxA(ByVal h As Integer,

ByVal m As String, ByVal c As

String, ByVal type As Integer) As Integer

3. End Function

4. End Class

你可以這樣調用 classA.MessageboxA 但是如果沒有這個share 在class后打點就沒有MessageboxA的成員出現了 ，現在你就象以前一樣的使用他吧。

其實上面這個VB.NET函數調用方法并不正確，我們仍舊要使用API聲明，只是換了一各形式

如果你認為這就是VB.NET就錯了，看看這個：

system.WinForms.MessageBox.Show("對話內容寫在這里", "標題寫在這里", messagebox.OK BitOr messagebox.IconAsterisk)

這就是面向對象，你已經完成了所有的任務。不需要任何的API聲明。不需要寫多余的代碼。

1. messagebox.IconAsterisk=驚嘆號圖標

2. messagebox.IconError=錯誤圖標

3. messagebox.IconExclamation=警告圖標

4. messagebox.IconHand=錯誤圖標

5. messagebox.IconInformation=提示圖標

所經點NET就是打點到達，在族后面打點，在類后面打點，在對象后面打點。第二個問題就是類與類之間相互的關系，Net在網上處理人與人的關系，在程序語言中處理類與類的關系。倒底是加不加share,倒底是類后面打點,還是Dim成一個對象（把他當一個變量吧）再說，是等于class,還是New class.是dim xxx as class=new class 還是dim xxx as new class

就是這樣VB.NET函數調用將更簡單，不須要研究一些很難的東西。

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.netvb函數 vb vbnet vba
當前URL：http://www.yijiale78.com/article48/dodcohp.html

成都網站建設公司_創新互聯，為您提供網站收錄、軟件開發、營銷型網站建設、面包屑導航、網站內鏈、App設計

廣告

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