Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement