• Status: Solved
• Priority: Medium
• Security: Public
• Views: 244

Array Question

Hi all,
I have code that looks like this.
Let result = term1+term2+term3+term4+term5
Print result
My question is this, how would I setup
An array to do the same thing?

Thanks
0
cdb424ttm
1 Solution

Commented:
Greetings cdb424ttm,
Dim term() as integer '?

How are you getting the data for term?
You would need to fill each one by:
term(1)=n
term(2)=n

'etc

Then result could equal
for x=1 to 5 ' also can use lbound(term), ubound(term)
result=term(x) + result
next x

~sirbounty
0

Commented:
just

let result = join(arr, "")
0

Author Commented:
sirbounty
the data is pulled from 5 text boxes but not all the boxes are filled with some thing.
so I want it to loop Through the boxes and count only the ones that have data and pull their value.
0

Author Commented:
not sure how to set it up to your syntax Eddykt.
I'm somewhat new to arrays
0

Commented:
Take text box 1 and copy paste it to create a control array...

Text1(0) thru Text1(4)

For x = 0 to 4
if text1(x) <> "" then strResults=val(text1(x).text) + strResults
next x

msgbox "Answer is " & strResults

0

Author Commented:
Sirbounty,

How would I set a counter to go and loop through and count the number of boxes on the form.
I'm guessing something like this?

for x = 1 to text1(count)
next x

0

Commented:
for x = 0 to ubound(text1)
0

Commented:
OK cdb424ttm, this code might help you.The assumption in this code is that all textboxes on Form1 may contain values. So the code below checks all textboxes on Form1

Dim x As Control
Dim y As Integer
For Each x In Form1
If TypeOf x Is TextBox And  Not IsNull(x.Text) Then
Arr(y)= Val(x.Text)
y=y+1
End If

Next x

Regards,
Pi7
0

Commented:
My mistake...

for x = 1 text1.count
or
for x = 0 to text1.count - 1
0

Commented:
Thanx.
0

Author Commented:
sirbounty,

0

Commented:
Sorry for the delayed response...

When you create an array - it uses cardinal-ordered arrays (meaning leading index is 0).
Thus text1.count = 5 (0,1,2,3,4)

But if you reference a loop from 1 to 5, you need to adjust it

for x = 0 to text1.count -1

text1.count is 5, so we subtract 1 from it to have our loop stop with the fifth element (#4)

Hope that helps explain it better.
Thanx.
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.

Featured Post

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