passing an Array to a search function - ?

[alexmason86]

getting a bit stuck here

got some code that allows a user to input numbers to a 3x3 array. but next on the tutorial sheet i have to then ask the user for a number to search for and then search the array for that number and come back with its location in the array

now i have the code that fils the array, but i dont know how to write the function, or what i should be passing to the function. i dont know how to get a location out of the other end either! :(

 
Private Sub cmdT5d_Click()
 
Dim intCol As Integer
Dim intRow As Integer
Dim intMyArray(3, 3) As Integer
Dim intFindNum As Integer
Dim intNumSearch As Integer
 
 
 
 
 
For intRow = 1 To 3
For intCol = 1 To 3
 
intMyArray(intRow, intCol) = InputBox("please enter numbers into the array", "Numerical Input Box", 1)
 
Next intCol
Next intRow
 
FindNum = InputBox("please select a number to search for","number search",1)
 
 
NumSearch = Lsearch(intMyArray(), intFindNum)
 
txtT5e.text = NumSearch
 
End Sub
 

for the search function then is this correct?

Private Function Lsearch(intMyArray() As Integer, intFindNum As Integer) As Integer 
 

thats as far as i got :(

[Killer42]

Your search function declaration looks pretty good to me. The code in there will just need to do a couple of nested loops like the ones that filled the array, and test whether each entry matches the search value.

[alexmason86]

cheers dude,

erm would i need to pass intCol and intRow through or would it already know about those?

[QVeen72]

Hi,

Declare the array at the Form-Level..(Top of Form's Code Window)
So that, When you write the Search Code in another Command_Click, the array is still there..
If you declare in command_Click, the array goes out of scope...


Regards
Veena