Imports System

Public Module Module1

    Public Sub Main()

        dim intThrees as integer

        dim intTwos as integer

        dim strName as string

        dim p1 as Player = new Player()

        Console.WriteLine("Name your player:")

        strName = Console.ReadLine()

        p1.name=strName

        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()

        p1.NumberofTwos(intTwos)

        Console.WriteLine(p1.name & " scored a total of " & p1.Calculate())

    End Sub

End Module

​

public class Player

    public name as string

    public threePointers as integer

    public twoPointers as integer

    public totalPoints as integer

​

    public sub NumberofThrees(byval amount as integer)

        threePointers = 3 * amount

    end sub

    public sub NumberofTwos(byval a as integer)

        twoPointers = 2 * a

    end sub

    public function Calculate()

        totalPoints = threePointers + twoPointers

        return totalPoints

    end Function

End class