• Home
 · 
• Math/Dates
 · 
• Find the Mode of a list of numbers. Mode Function. Mode.

Find the Mode of a list of numbers. Mode Function. Mode.

Find the Mode of a list of numbers. Mode Function. Mode.

Rate Find the Mode of a list of numbers. Mode Function. Mode.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim number(10)
Dim mode(10)
For x = 1 To 10
    mode(x) = 0
Next
number(1) = 1
number(2) = 1
number(3) = 1
number(4) = 2
number(5) = 2
number(6) = 3
number(7) = 3
number(8) = 5
number(9) = 10
number(10) = 11


tester = 2
For x = 1 To 9
    For z = tester To 10
        If number(x) = number(z) Then
            mode(x) = mode(x) + 1
        Else
            x = z - 1
            tester = x + 2
            Exit For
        End If
    Next
Next

For d = 1 To 10
    If mode(d) > 0 Then
        MsgBox number(d) & "had  " & mode(d) & "Matches"
    End If
Next
biggest = 1
For x = 1 To 10
    If mode(x) > biggest Then
        biggest = x
    End If
Next
MsgBox "most matches was  " & mode(biggest) & " for number " & number(biggest)