请问....通过模块输出值

Question

请问...通过模块得到的值是数组...那在FORM里的代码该怎么写?在模块里的代码该怎么写?
能不能帮忙给个例子学习学习啊!
非常感谢....

Answer 1

Private Sub Form_Load()
    Dim b(2) As Long
    GetGroup b
End SubPrivate Sub GetGroup(b)
    Dim i As Long
    For i = 0 To UBound(b)
        b(i) = i
    Next i
End Sub

Answer 2

那为什么模块那个地方不用FUNCTIONG的方法呢?
我这里是要将一些值输入到摸块..然后再从模块得到一个数组返回到FORM里面...
那该怎么写?
谢谢

Answer 3

我在模块里的代码是这样写的:
Public Function Order(ByRef strNumber As String) As Long
    Dim intI As Integer
    Dim intJ As Integer
    Dim intH As Integer
    Dim lngA As Long
    Dim lngItem() As Long
    Dim lngList() As Long
    Dim lngVal(100) As Long
        intI = intI + 1
    ReDim Preserve lngList(intI)
    lngList(intI) = CLng(strNumber)    intN = UBound(lngList)
 
    For intJ = 1 To intN
    
        lngVal(intJ) = lngList(intJ)
        
    Next intJ
    
        For intK = 1 To intN
        
            For intJ = 1 To intN - intK
            
                If CLng(lngVal(intJ + 1)) > CLng(lngVal(intJ)) Then
                    lngA = lngVal(intJ)
                    lngVal(intJ) = lngVal(intJ + 1)
                    lngVal(intJ + 1) = lngA
                End If
                
            Next intJ
            intH = intH + 1
            ReDim Preserve lngItem(intH)
            lngItem(intH) = lngVal(intJ)
            
        Next intKEnd Function
得到的数组是lngItem(intH)在FORM里的连接代码是:
lstOrder.AddItem (Order(strNumber))是要将得到的这些值(数组)输出到LISTBOX(lstOrder)里面....我是这样写的...可是不对...
能帮我看看问题在哪里吗?谢谢...

Answer 4

Public Function Order(ByRef strNumber As String)    ........
   Order=lngItem
end functionx=Order(strNumber)
for i=0 to ubound(x)
    lstOrder.AddItem x(i)
next

Answer 5

谢谢
Order=lngItem是不是应该是Order=lngItem(intH)
但是按这样做..运行报错哦...说 ubound(x)那的数组不存在....怎么办?

Answer 6

就是Order=lngItemdim x不定义类型，用变体