A-level Computing/AQA/Problem Solving, Programming, Data Representation and Practical Exercise/Skeleton code/Programming

Sub Main Dim Names(4) As String Dim Current As Integer Dim Max As Integer Dim Found As Boolean Dim PlayerName As String Names(1) = "Ben" Names(2) = "Thor" Names(3) = "Zoe" Names(4) = "Kate" Max = 4 Current = 1 Found = False Console.WriteLine("What player are you looking for?") PlayerName = Console.ReadLine While Found = False And Current <= Max If Names(Current) = PlayerName Then Found = True Else Current = Current + 1 End If End While If Found = True Then Console.WriteLine("Yes, they have a top score") Else Console.WriteLine("No, they do not have a top score") End If Console.ReadLine End Sub