vb.net创建函数,vb编写函数

在vb.net中如何定义staticextern函数

在vb.net中定义staticextern函数：用static声明的局部变量。static是C++中常用的修饰符，它被用来控制变量的存贮方式和可见性。extern，C是使C++能够调用C写作的库文件的一个手段。

相关问答

Q1: 使用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

Q2: 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