vb传值和传址的例题

在VB中，函数和子程序中参数传递有两种方式：传递值（ByVal）和传递地址（ByRef）。值类型的变量被传递到子程序时，传递的是它的值，如果在子程序中改变了这个值，那么在主程序中这个值是不会改变的。而引用类型的变量被传递到子程序时，传递的是其在内存中的地址，如果在子程序中改变了这个值，那么在主程序中这个值也会改变。本篇文章将从基础概念、使用场景以及案例分析三个角度来探讨VB中传值和传址的例题。

一、基础概念

VB中的参数传递方式可以分为两种：传值和传址。

1、传值

传值就是将调用函数或子过程时实参的值复制一份传递到函数或子过程当中，此时我们把这个实参叫做“值参数”。在函数或子过程中所进行的任何操作都只是针对于这个“复制品”，原有的实参是不会受到任何影响的。

2、传址

传址就是将调用函数或子过程时实参的地址传递到函数或子过程当中，此时我们把这个实参叫做“引用参数”。在函数或子过程中所进行的任何操作都是针对于这个实参的内存地址上数据的修改，所以这个实参会受到函数或子过程操作的影响，例如如果在函数里修改了参数的值，则在函数外面这个值也会被修改。

二、使用场景

VB中传值和传址通常用于函数和子程序中，可以根据不同的情况选择合适的方式。

1、传值

当需要在函数中进行运算或者对参数的值进行修改时，一般使用传值的方式，因为使用传值的方式不会影响到原有的实参。如下代码：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a As Integer = 1

Dim b As Integer = 2

'传递a和b的值到函数中,函数中的操作不会影响a和b的值

Dim c As Integer = AddNum(a, b)

MessageBox.Show("a = " & a & ", b = " & b & ", c = " & c)

End Sub

Private Function AddNum(ByVal a As Integer, ByVal b As Integer) As Integer

'在函数中进行的操作只是针对于这个“复制品”，不会影响原有的实参a和b的值

a += 1

b += 1

AddNum = a + b

End Function

在这个例子中，我们传递了两个实参a和b的值给函数AddNum，函数中对传进来的值进行运算并返回结果。通过运行结果可以看出，这个函数里对传进来的值操作后并没有改变外部的实参a和b。

2、传址

当需要在函数中对参数的值进行修改，并且想让这个修改后的值在函数外面继续有效时，使用传址是更为恰当的选择。如下代码：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a As Integer = 1

Dim b As Integer = 2

'传递a和b的地址到函数中,函数中的操作会影响a和b的值

Swap(a, b)

MessageBox.Show("a = " & a & ", b = " & b)

End Sub

Private Sub Swap(ByRef a As Integer, ByRef b As Integer)

Dim temp As Integer = a

a = b

b = temp '这里修改的是a和b的实参在内存中的值，因此外层变量的值也被修改了。

End Sub

在这个例子中，我们将两个实参a和b的地址传递给函数Swap，函数中对传进来的地址中的值进行操作后并没有返回修改后的值，而是直接修改了原来的实参的值。运行后会发现实参a和b在函数Swap中以及函数外都被修改了。

三、案例分析

现在我们来看一个具体的应用案例，根据用户输入的数字，求出它的因数并输出。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim num As Integer = InputBox("请输入一个整数", "求因数")

'原始版本(值传递)

Dim arr1() As Integer = GetFactors(num)

Dim str1 As String = "因数有："

For Each i As Integer In arr1

If i <> 0 Then str1 &= i & " "

Next

MessageBox.Show(str1)

'改进版本(引用传递)

Dim arr2() As Integer

GetFactors2(num, arr2)

Dim str2 As String = "因数有："

For Each i As Integer In arr2

If i <> 0 Then str2 &= i & " "

Next

MessageBox.Show(str2)

End Sub

'获取因数（值传递）

Private Function GetFactors(ByVal num As Integer) As Integer()

Dim arr(num - 1) As Integer

Dim index As Integer = 0

For i As Integer = 1 To num

If num Mod i = 0 Then

arr(index) = i

index += 1

End If

Next

Return arr

End Function

'获取因数（引用传递）

Private Sub GetFactors2(ByVal num As Integer, ByRef arr() As Integer)

ReDim arr(num - 1)

Dim index As Integer = 0

For i As Integer = 1 To num

If num Mod i = 0 Then

arr(index) = i

index += 1

End If

Next

End Sub

在用户输入一个数字后，我们需要将这个数字传递给GetFactors函数，然后GetFactors函数会返回这个数字的因数。我们可以分别用传值和传址两种方式实现这个功能。

在原始版本中，我们直接用值传递将num传递给GetFactors函数，函数GetFactors通过传递的值去计算地返回因数数组，通过结果显示消息框。在改进版本中，我们是用引用传递将arr2的引用传递给GetFactors2函数，GetFactors2函数使用传入的引用变量arr2，直接修改引用数组的值并不需要返回修改过的数组。通常情况下，使用引用传递和值传递的代码功能是相同的。但是，动态分配内存时，使用引用传递可以更加有效地利用内存；如果函数需要返回多个值，则一般使用引用传递。

本文通过对传值和传址的基础概念、使用场景和案例分析的探讨，我们了解了在VB中选择正确的参数传递方式可以确保函数和子程序的正确性，从而增强代码的可读性和可维护性。