• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 149
  • Last Modified:

creating matricies

I want to create a nxn matrix of integers so I do:
dim A(n,n) as integer
now I want to be able to enter values row by row like:
A(1) = Array(1,2,3,4,5,6,7,8...)
A(2) = Array(2,3,4,5,6,7,8,9...)
The command above doesn't work, but is there one that does?
0
BoB
Asked:
BoB
1 Solution
 
deightonprogCommented:
'Heres a quick function I've written

Private Function LoadMatrix(Matrix() As Integer, iRow As Long, ByVal sValues As String)

    Dim sTemp As String
    Dim iL As Long
    Dim iVal As Long
   
       
    While sValues <> ""
   
        iVal = InStr(sValues, ",")
        If iVal = 0 Then iVal = Len(sValues) Else iVal = iVal - 1
               
        iL = iL + 1
       
        Matrix(iRow, iL) = CInt(Left(sValues, iVal))
       
        sValues = Mid(sValues, iVal + 2)
       
    Wend
   
End Function

'Example

Private Sub Command1_Click()

    Dim m(5, 5) As Integer

    Call LoadMatrix(m(), 1, "1,2,3,4,5")
   
    For c = 1 To 5
        MsgBox CStr(m(1, c))
       
    Next

End Sub



0
 
BoBAuthor Commented:
very nice, thanks!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now