complete activities 11-18 and determine the output displayed when thr button is clicked. Type your reaponse to each question on a separate page.

Dim grades (3) As Double Private Sub frm- Grades_Load (...) Handles My- Base.Load grades(0) =80 grades(1) =90 End Sub Private Sub btn- Dis- play_Click( ...) Handles btndis- play.Click Dim average As Double grades (2) =70 grades(3) =80 average = (grades(0) + grades(1) + grades(2) + grades (3)) / 4 txtoutput.Text "Your average is \& average End Sub Dim names (3) As String Private Sub frmNames_Load (...) Handles MyBase.Load names (0)= "Al" names (1) = "Gore" names (2) = "Vidal" names (3) = "Sassoon" End Sub Private Sub btnDisplay_click (...) Handles btnDisplay.Click For i As Integer =0 To 2 lstoutput. Items.Add (names (i) \& " " \& names (i+ 1)) Next End Sub Private Sub btn- Dis- play_click (...) Handles btnDis- play.Click Dim line As String = "2012, Artist, The" Dim films ( ) As String = line.s- plit(", c) txtoutput. Text =films(2)&" " &fims(1)&" won in "\& films (0) End Sub Private Sub btn- Dis- play_click (...) Handles btndis- play.Click Dim line As String = "2,7,11,13,3" Dim nums ( ) As String = line.s- plit(","c) txtoutput.Text = CStr (CInt (nums (4)) CInt (nums (2))) End Sub Private Sub btn- Dis- play_click(...) Handles btnDis- play.Click Dim words ( ) As string = "one", "two", "three" txtoutput. Text = Join(words, "," C ) End Sub Private Sub btn- Dis- play_Click(...) Handles btnDis- play.Click Dim nums ( ) As Integer ={1,2, 3\} Dim temp(2) As String For i As Inte- ger =0 To 2 temp(i)= CStr(nums (i)) Next txtOutput.Text = Join(temp, ", "c) End Sub Private Sub btn- Dis- play_click (...) Handles btnDis- play.Click Dim nums ( ) As Integer ={3,5, 8,10,21} Dim total As Integer =0 For Each num As Integer In nums If (num Mod 2=0 ) Then ( num Mod 2) =0 when num is even total +=1 End If Next txtoutput. Text = total \& " even numbers" End Sub Private Sub btn- Dis- play_click (*) Handles btndis- play.click Dim words () As String = \{"When", "in", "the", "course", "of", "human", "events" Dim flag As Boolean = False For Each word As String In words If (word.Length = 5) Then flag = True End If Next If flag Then txtOutput. - Text = "at least one five-letter word n Else txtoutput.- Text = "no five- letter word" End If End Sub