by Jason Stoddard (3 Submissions)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 17th April 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Find the Mode of a list of numbers. Mode Function. Mode.
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)