Split int array in to two arrays even and odd VBscript error

Question

I have written code for an array of numbers which prints out. I'm now writing code to split the array into even and off numbers. I've started off with an if statement to separate the numbers but i'm struggling to find a solution on how to do it. My code below is failing as it's unable to split the numbers.

Sub main()
    a=Array(5,10,15,20)
for each x in a
    Msgbox(x)

    If MyArray(I) / 2 = MyArray(I) 
        List1.AddItem MyArray(I) ' Even Integers
    Else
        List2.AddItem MyArray(I) ' Odd Integers
    End if
next


End Sub

Use Mod() - Change response to only respond one set of values — user692942
– user692942, Commented Apr 27, 2020 at 16:59

Étienne Laneville · Accepted Answer · 2020-04-29 18:53:31Z

1

As Lankymart suggests, the simplest approach would be to use Mod() and check if the remainder is 1 or 0, but you can also do it with the approach you seemed to be working towards:

If MyArray(index)/2 = Int(MyArray(index)/2) Then
    ' Even number
Else
    ' Odd number
End If

Mod() approach:

If MyArray(index) Mod 2 = 0 Then
    ' Even number
Else
    ' Odd number
End If

Here's a complete subroutine that demonstrates what you are trying to do:

Dim arr(4) As Integer
Dim arrEven() As Integer
Dim iEvenValues As Integer
Dim arrOdd() As Integer
Dim iOddValues As Integer
Dim iCounter As Integer

' Initialize array
arr(0) = 5
arr(1) = 10
arr(2) = 15
arr(3) = 20

For iCounter = 1 To UBound(arr)

    If arr(iCounter - 1) Mod 2 = 0 Then
        iEvenValues = iEvenValues + 1
        ReDim Preserve arrEven(iEvenValues)
        arrEven(iEvenValues - 1) = arr(iCounter - 1)
    Else
        iOddValues = iOddValues + 1
        ReDim Preserve arrOdd(iOddValues)
        arrOdd(iOddValues - 1) = arr(iCounter - 1)
    End If
Next

Dim sValues As String
sValues = "Even values (" & iEvenValues & "):"
For iCounter = 1 To UBound(arrEven)
    sValues = sValues & " " & arrEven(iCounter - 1)
Next

MsgBox sValues

sValues = "Odd values (" & iOddValues & "):"
For iCounter = 1 To UBound(arrOdd)
    sValues = sValues & " " & arrOdd(iCounter - 1)
Next

MsgBox sValues

edited Apr 29, 2020 at 18:53

answered Apr 27, 2020 at 23:13

Étienne Laneville

5,0815 gold badges15 silver badges34 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

NewCoder Over a year ago

How would it fit in with my array though thats where im confused. This is my code so far a=Array(5,10,15,20) for each x in a Msgbox(x) If MyArray(a)/2 = Int(MyArray(a)/2) Then ' Even number Else ' Odd number End If next

NewCoder Over a year ago

I get a mismatch error when i pass my array though the loop

NewCoder Over a year ago

For i = Array(5,10,15,20) If i mod 2 = 1 Then Msgbox(i & " is odd.<br>") Else Msgbox(i & " is even.<br>") End If I'm unable to pass my array through

Collectives™ on Stack Overflow

Split int array in to two arrays even and odd VBscript error

1 Answer 1

3 Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

3 Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related