51Testing软件测试论坛

标题: 在SQABasic中如何在Function中返回一个二维的数组? [打印本页]

---

作者: watercloset    时间: 2006-6-10 16:32
标题: 在SQABasic中如何在Function中返回一个二维的数组?
在SQABasic中如何在Function中返回一个二维的数组。我这样写对不对呢？
Function test(…………..) As Variant

dim RobotData () As Variant

redim preserve RobotData (2, 9)



………………

RobotData (0, 1) = rs.field(0).value



test = RobotData(,)                                      ‘还是这样写：test = RobotData?          Test = RobotData()?

                                                                        ‘最后两种方式我试了一下都编译不通过



End Function
另外，怎么使用语句来接受这个函数返回的数组呢？谢谢

---

作者: popsmart    时间: 2006-6-14 23:27
标题: 可以这样使用
Function GetArray( out_RobotData() As Variant, in_iLen As Long) As Long

   
    Dim i As Long

    redim preserve out_RobotData ( in_iLen )

    For i = LBound(out_RobotData) To UBound(out_RobotData)
   
        out_RobotData(i) = i
   
    Next i

End Function


Sub Main

    Dim lRet            As Long
    Dim RobotData()     As Variant
   
    lRet = GetArray( RobotData, 6 )

End Sub

---

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)

Powered by Discuz! X3.2