vb中，怎样用function返回多个值？？

Question

如题所述

Answer 1

在VB中，一个function只能用一个return语句返回一个值。哪怕有几个return语句，也只能执行一个。
如果需要返回多个值，可以使用数组，数组的每一个元素值都可以带回来。
单个变量只能在在VB中，一个function只能用一个return语句返回一个值。哪怕有几个return语句，也只能执行一个。
如果需要返回多个值，可以使用数组，数组的每一个元素值都可以带回来。
单个变量只能使用by在VB中，一个function只能用一个return语句返回一个值。哪怕有几个return语句，也只能执行一个。
如果需要返回多个值，可以使用数组，数组的每一个元素值都可以带回来。
单个变量只能在声明函数的某个参数时使用byref前缀。
其他方法如使用全局变量等，已经不属于返回值的问题了。

Answer 2

在以下的函数中，用一个函数，可以求得一个具有n个元素的数组中的最大值与最小值：

Private Sub Command1_Click()

  Dim a(10) As Integer, max, min

  For i = 1 To 10

    a(i) = Rnd * 100

    Print a(i);

  Next i

  Print

  ok = fun(a, 10, max, min)

  Print "Max="; max

  Print "Min="; min

End Sub

Function fun(a() As Integer, n As Integer, max, min) As Integer

  max = a(1)

  min = a(1)

  For i = 2 To n

    If a(i) > max Then

      max = a(i)

    Else

      If a(i) < min Then

        min = a(i)

      End If

    End If

  Next i

  fun = 1

End Function

本回答被提问者采纳

Answer 3

区别是：function 有返回值，sub 没有返回值。在需要过程返回一个值时用 function ，其他情况下就用 sub 。至于传递参数，二者都可以传递，主要在于：一方面变量的作用域是 dim、static、private、friend 还是 public，另一方面，过程本身参数的传递方式是ByRef（按址传递，参数值可改变） 还是 ByVal （按值传递，参数值无法修改）。