will be displayed in DisplayTextBox by the following code. Dim numbers(7) As Integer For i As Integer 0 To7 numbers(i) i+1 Next Select Case numbers(3) 2 Case 6 DisplayTextBox. Text CStr(6) DisplayTextBox-Text·CStr(8) DisplayTextBox.Text CStr(10) Display TextBox.Text CStr(0) Case 8 Case 10 Case Else End Selectwill be displayed in DisplayTextBox by the following code. Dim numbers(7) As Integer For i As Integer 0 To7 numbers(i) i+1 Next Select Case numbers(3) 2 Case 6 DisplayTextBox. Text CStr(6) DisplayTextBox-Text·CStr(8) DisplayTextBox.Text CStr(10) Display TextBox.Text CStr(0) Case 8 Case 10 Case Else End Select Show transcribed image text