dim p1 as Player = new Player()
Console.WriteLine("Name your player:")
strName = Console.ReadLine()
Console.WriteLine("How many three pointers did " & p1.name & " have?")
intThrees = Console.ReadLine()
p1.NumberofThrees(intThrees)
Console.WriteLine("How many two-pointers did " & p1.name & " score?")
intTwos = Console.ReadLine()
Console.WriteLine(p1.name & " scored a total of " & p1.Calculate())
public threePointers as integer
public twoPointers as integer
public totalPoints as integer
public sub NumberofThrees(byval amount as integer)
threePointers = 3 * amount
public sub NumberofTwos(byval a as integer)
public function Calculate()
totalPoints = threePointers + twoPointers