vb点虐 给委托的函数传递参数

两个参数：一个是数组名,一个是传递的长度

我们提供的服务有：成都网站建设、网站建设、微信公众号开发、网站优化、网站认证、芝罘ssl等。为成百上千企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的芝罘网站制作公司

Function thename(ByVal imgFrom As Image) As String

thename = imgFrom.Name

End Function

Private Sub Image1_Click()

MsgBox thename(Image1)

End Sub

使用vb点虐 编写一个函数，函数只有一个参数

首先在窗体上添加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 '调用

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

BubbleSort(arr) '调用排序过程

Me.ListBox1.Items.Clear()

For i = 0 To arr.GetUpperBound(0) - 1 '显示排序后结果

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

Next

End Sub

End Class

vb点虐 函数参数添加说明??

在要注释的函数上方添加 ‘’‘ （三个）

会自动弹出！

'''summary

''' 这个是函数说明

'''/summary

'''returns返回说明/returns

'''remarks/remarks

详情参考：

分享文章：vb点虐 函数参数 vbnet implements
文章路径：http://azwzsj.com/article/ddjdpis.html