Imports System

​

Public Module Module1

​

    public function maxPosition(list)

        maxPosition = 0

        return maxPosition

    End function

​

    public sub outputTopScorer

        console.writeline("Top scorer was")

    End sub

​

    Public Sub Main()

        dim player(63) As String

        dim points(63) as integer

        storeData(player, points)

    End Sub

​

    public sub storeData(byRef player, byRef points)

        points(0) = 39

        points(1) = 10

        points(2) = 7

        points(3) = 32

        points(4) = 92

        points(5) = 90

        points(6) = 90

        points(7) = 71

        points(8) = 59

        points(9) = 93

        points(10) = 100

        points(11) = 43

        points(12) = 8

        points(13) = 81

        points(14) = 95

        points(15) = 7

        points(16) = 98

        points(17) = 95

        points(18) = 6

        points(19) = 46

        points(20) = 94

        points(21) = 65

        points(22) = 84

        points(23) = 11

        points(24) = 38

        points(25) = 43

        points(26) = 46

        points(27) = 39

        points(28) = 92

        points(29) = 29

        points(30) = 19

        points(31) = 9

        points(32) = 97

        points(33) = 29

        points(34) = 3

        points(35) = 28

        points(36) = 37

        points(37) = 89

        points(38) = 25

        points(39) = 67

        points(40) = 24

        points(41) = 62

        points(42) = 55

        points(43) = 78

        points(44) = 54

        points(45) = 98

        points(46) = 13

        points(47) = 29

        points(48) = 24

        points(49) = 89

        points(50) = 65

        points(51) = 78

        points(52) = 100

        points(53) = 3

        points(54) = 38

        points(55) = 99

        points(56) = 39

        points(57) = 74

        points(58) = 21

        points(59) = 50

        points(60) = 5

        points(61) = 12

        points(62) = 84

        points(63) = 96

        player(0) = "Hermon Onraet"

        player(1) = "Jaquelin Raye"

        player(2) = "Laraine Dyet"

        player(3) = "Eilis Daveran"

        player(4) = "Myriam Nijs"

        player(5) = "Genia Peyes"

        player(6) = "Penelopa Woolley"

        player(7) = "Orsola Handslip"

        player(8) = "Maddie Andreone"

        player(9) = "Chip Esser"

        player(10) = "Kristin Arnauduc"

        player(11) = "Wenda Studdard"

        player(12) = "Audre Manners"

        player(13) = "Meagan Feldhorn"

        player(14) = "Wendye Louche"

        player(15) = "Hermann Tunno"

        player(16) = "Sly Rodolico"

        player(17) = "Wandie Ducroe"

        player(18) = "Lorne Valdes"

        player(19) = "Clayborn Pendall"

        player(20) = "Desiree Kenchington"

        player(21) = "Peria Trousdell"

        player(22) = "Saba Purkins"

        player(23) = "Zondra Barthelemy"

        player(24) = "Hyacinthe Rootham"

        player(25) = "Benni Coning"

        player(26) = "Sergei Driver"

        player(27) = "Turner Berk"

        player(28) = "Yovonnda Cressy"

        player(29) = "Nerti Connors"

        player(30) = "Marline Sember"

        player(31) = "Leo Davers"

        player(32) = "Sigfrid Strowlger"

        player(33) = "Shayna Dawney"

        player(34) = "Raymond Snoday"

        player(35) = "Saloma Loddon"

        player(36) = "Michelina Gosson"

        player(37) = "Vikky Luckin"

        player(38) = "Bettine Orae"

        player(39) = "Oriana O'Doherty"

        player(40) = "Wallache Joe"

        player(41) = "Heddi Regorz"

        player(42) = "Demetria Soigoux"

        player(43) = "Rod Pickworth"

        player(44) = "Sauveur Nabarro"

        player(45) = "Ulysses Moralis"

        player(46) = "Kassia Gretton"

        player(47) = "Ashia McKerrow"

        player(48) = "Justino Deaconson"

        player(49) = "Nicolette Johansen"

        player(50) = "Casey Skipping"

        player(51) = "Dell Du Fray"

        player(52) = "Stanislaw Gullam"

        player(53) = "Juliette Lunnon"

        player(54) = "Angel Carlesi"

        player(55) = "Artemus Daldan"

        player(56) = "Fawn Barkes"

        player(57) = "Olly Spencelayh"

        player(58) = "Brock Ellse"

        player(59) = "Shandeigh Vanyarkin"

        player(60) = "Bartholomeus Roelvink"

        player(61) = "Zara Shedd"

        player(62) = "Jazmin Wheeldon"

        player(63) = "Darryl Keyden"

    end sub

​

    function maximum(list)

        dim max as integer = list(0)

        for i = 0 to 63

            if list(i) > max then

                max = list(i)

                maximum = i

            end if

        next

​

        return maximum

    end function

​

     console  .writeline(player(maximum(points) & ": " & points(maximum(points)) 

    end module

​