How to use cases

I've written a function to check the divisibility of a number.
For me, this is the best solution:

Public Function CheckDiv(ByVal N As Integer) As List(Of Integer)

    'list containing the results
    Dim RetList As New List(Of Integer)

    'using a for to check the divisibility of N
    For I As Integer = 2 To 10
        If N Mod I = 0 Then
            RetList.Add(I)
        End If
    Next

    'returns the list
    Return RetList

End Function

Using a for, we check if a number is divisible by 2,3,...,10. The mod operator returns the rest of a division. If it's 0, N is divisible by I.

The solution with the case is ugly; I advice you to use the first one! However, here it is:

 Public Function CheckDiv(ByVal N As Integer) As List(Of Integer)

    'returning list
    Dim Ret As New List(Of Integer)

    'check the divisors
    For I As Integer = 2 To 10
        If N Mod I = 0 Then
            Select Case I
                Case 2
                    Ret.Add(2)
                Case 3
                    Ret.Add(3)
                Case 4
                    Ret.Add(4)
                Case 5
                    Ret.Add(5)
                Case 6
                    Ret.Add(6)
                Case 7
                    Ret.Add(7)
                Case 8
                    Ret.Add(8)
                Case 9
                    Ret.Add(9)
                Case 10
                    Ret.Add(10)
            End Select
        End If
    Next

    'returns the list
    Return Ret

End Function

Hope this helped!

In for loop divide it by %;
Example

For I As Integer = 2 To 10
if (j%i==0)

then its an even number
j is an loop variable in for loop. i is the input that you have.

The % operator will give the remainder. If the remainder is 0 that means its an even number then you can display the number. Thats it.