两个参数辩腊:一个是数组携瞎滑神孙名,一个是传递的长度
创新互联建站服务项目包括温县网站建设、温县网站制作、温县网页制作以及温县网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,温县网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到温县省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
Function thename(ByVal imgFrom As Image) As String
thename = imgFrom.Name
End Function
Private Sub Image1_Click()
MsgBox thename(Image1)
End Sub
在要雹慧租注释的函数上方添加 ‘’‘ (三个)
会自动弹出!
'''summary
''' 这个是函数说明
'''/summary
'''returns返回说明/returns
'''源兆remarks碧携/remarks
详情参考:
首先在窗体上添加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