VB. Arrays and Lists

Public Class Form1

    Public Const CHROME_PATH = "C:\Program Files\Google\Chrome\Application\chrome.exe"

    Private Sub btnGo_Click(sender As Object, e As EventArgs) Handles btnGo.Click
        Dim urls(3) As String

        urls(0) = "espn.com"
        urls(1) = "youtube.com"
        urls(2) = "cnn.com"
        urls(3) = "schoology.com"

        For x = 0 To urls.Length - 1
            Process.Start(CHROME_PATH, urls(x))
        Next

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim scores(4) As Integer
        Dim total As Integer
        Dim avg As Decimal

        scores(0) = 99
        scores(1) = 95
        scores(2) = 90
        scores(3) = 79
        scores(4) = 100

        'total up the scores
        For x = 0 To (scores.Length - 1)
            total = total + scores(x)
        Next

        'calc the avg
        avg = total / scores.Length
        avg = Math.Round(avg)

        MsgBox("The average is: " & avg)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim urlList As New List(Of String)
        Dim s As String

        urlList.Add("espn.com")
        urlList.Add("youtube.com")
        urlList.Add("cnn.com")
        urlList.Add("schoology.com")

        For Each s In urlList
            Process.Start(CHROME_PATH, s)
        Next

    End Sub
End Class