vb.net的自编函数,vb编程函数

VB.net 如何编写一个可以返回数组的函数（过程）？

public function createstringarr() as string()

return new string(){"d1","d2","d3","d4"}

end function

相关问答

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

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

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

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

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

Q4: VB.NET自定义函数

很简单，在end select前再多加一种情况case else return "XXXx",因为你只提供了0-9这10种情况

Public Function Zuhe(ByVal qa As String) As String

Select Case qa

Case "0"

Return "1"

Case "1"

Return "3"

Case "2"

Return "4"

Case "3"

Return "6"

Case "4"

Return "2"

Case "5"

Return "8"

Case "6"

Return "9"

Case "7"

Return "7"

Case "8"

Return "5"

Case "9"

Return "0"

Case else

Return "XXXX"

End Select

End Function

Q5: vb.net 自定义函数 Private Function refresh(ByVal a As String) As String Return a End Function

refresh是vb的关键词，你最好不要用这个名字作为你自定义函数的名字，当然，VB也允许你用Overrides关键词重载这个方法。