函数返回数组

函数返回数组 函数返回数组 相关知识：要声明一个返回数组的函数，应该在函数返回值类型后加上空的小括号。在函数体中首先声明一个与返回值类型相同的数组，把返回的值赋给数组的各个元素。在返回之前，把这个数组名赋值给函数名，则这个数组会作为返回值返回。 例题介绍：编程计算数组参数中各个元素的统计信息：项数、最大值、最小值、总和，平均值，然后把它们作为一个数组中的不同元素返回。 例题界面：                 （a） 代码如下： '通过数组作为函数返值，一次可返回一组数组 Function StatiArr(a() As Single) As Single()             '在返回值类型后加空的小括号     Dim stats(4) As Single                               '声明一个与返回值类型相同的数组     Dim int1 As Integer, intNum As Integer     Dim sngMax As Single, sngMin As Single     Dim sngAve As Single, sngSum As Single     sngMax = a(LBound(a)): sngMin = a(LBound(a))     sngSum = 0     For int1 = LBound(a) To UBound(a)                       '找要返回的信息        If sngMax < a(int1) Then sngMax = a(int1)         If sngMin > a(int1) Then sngMin = a(int1)         sngSum = sngSum + a(int1)     Next int1     intNum = UBound(a) - LBound(a) + 1     sngAve = sngSum / intNum     stats(0) = intNum: stats(1) = sngMax: stats(2) = sngMin       '给要返回的数组赋返回值             stats(3) = sngSum: stats(4) = sngAve     StatiArr = stats()                                            '把要返回的数组赋给函数名 End Function Private Sub Command1_Click()     Dim a(10) As Single, int1 As Integer     Dim b() As Single     For int1 = 0 To 10                                                 '给数组赋值         a(int1) = int1     Next     b() = StatiArr(a)     Text1.Text = "项数：" & CStr(b(0))                                 '输出     Text2.Text = "最大数为：" & CStr(b(1))     Text3.Text = "最小数为：" & CStr(b(2))     Text4.Text = "总和为：" & CStr(b(3))     Text5.Text = "平均值为：" & CStr(b(4)) End Sub