vb.net编写函数 vbnet writeline

使用vb.net编写一个函数，函数只有一个参数

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

相关问答

Q1: vb.net 编写一个函数，此函数每秒运行一次，每次随机生成的数值都100%不会相同，可以考虑借用时间对象

其实用Environment.TickCount就可以了，函数获取系统启动后经过的毫秒数

因为时间不重复，所以如果间隔1秒永不重复且随机

Q2: VB.NET 编写函数过程IsH(n) 判断是否为回文数

你的i = Len(Str(a))会出问题。

If i 1 Then

Return True

End If

这个返回在if内部，当条件不满足将导致函数无返回。

以下代码仅供参考:

Function IsH(ByVal a As Long) As Boolean

Dim i As Long, j As Long, t As String

t = a.ToString

i = t.Length

Select Case i

Case 1

Return True

Case 2

If Mid(t, 1, 1) = Mid(t, 2, 1) Then Return True Else Return False

Case 3

If Mid(t, 1, 1) = Mid(t, 3, 1) Then Return True Else Return False

Case Else

For j = 1 To i \ 2

If Mid(t, j, 1) Mid(t, i - j + 1, 1) Then Return False

Next j

End Select

Return True

End Function

Q3: vb.net 编写一个函数

注意：参数为动态数组；

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编写函数的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet writeline、vb.net编写函数的信息别忘了在本站进行查找喔。