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

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

創(chuàng)新互聯(lián)建站專注骨干網(wǎng)絡(luò)服務(wù)器租用10年，服務(wù)更有保障！服務(wù)器租用，德陽服務(wù)器托管 成都服務(wù)器租用，成都服務(wù)器托管，骨干網(wǎng)絡(luò)帶寬，享受低延遲，高速訪問。靈活、實(shí)現(xiàn)低成本的共享或公網(wǎng)數(shù)據(jù)中心高速帶寬的專屬高性能服務(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 編寫一個(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

VB.net 如何編寫一個(gè)可以返回?cái)?shù)組的函數(shù)（過程）？

public function createstringarr() as string()

return new string(){"d1","d2","d3","d4"}

end function

vb。net中的最大值及最小值函數(shù)的編寫

'vb.net2008

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim min, max As Integer

Dim a() As Integer = {3, 2, 4, 1}

min = Proc(a)(0)

max = Proc(a)(1)

End Sub

Private Function Proc(ByVal a() As Integer)

Dim a_out(a.GetUpperBound(0)), a_m(1) As Integer

System.Array.Copy(a, a_out, a.GetUpperBound(0) + 1)

System.Array.Sort(a_out)

a_m(0) = a_out(0)

a_m(1) = a_out(a_out.GetUpperBound(0))

Return a_m

End Function

End Class

使用vb.net編寫一個(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)用排序過程

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

當(dāng)前標(biāo)題：vb.net中編寫函數(shù),VBNET編程寶典
轉(zhuǎn)載源于：http://chinadenli.net/article36/dsgodsg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供企業(yè)建站、建站公司、App開發(fā)、服務(wù)器托管、品牌網(wǎng)站設(shè)計(jì)、商城網(wǎng)站

廣告

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