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

两个参数辩腊：一个是数组携瞎滑神孙名,一个是传递的长度

创新互联建站服务项目包括温县网站建设、温县网站制作、温县网页制作以及温县网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，温县网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到温县省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

Function thename(ByVal imgFrom As Image) As String

thename = imgFrom.Name

End Function

Private Sub Image1_Click()

MsgBox thename(Image1)

End Sub

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

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

会自动弹出！

'''summary

''' 这个是函数说明

'''/summary

'''returns返回说明/returns

'''源兆remarks碧携/remarks

详情参考：

使用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点虐 函数参数 vb中的参数是什么
文章转载：http://cdweb.net/article/ddpgjje.html