What will be the output of the following program when the button is clicked on?
Private Sub btnDisplay_Click(...) Handles btnDisplay.Click
Dim word As String
word = "progression"
Strange(word)
End Sub
Sub Strange(var As String)
txtBox.Text = var.Substring(CInt(Int(var.Length / 2)), 1)
End Sub
A) progr
B) r
C) e
D) progre

Question

What will be the output of the following program when the button is clicked on? 
Private Sub btnDisplay_Click(...) Handles btnDisplay.Click 
Dim word As String
word = "progression" 
Strange(word) 
End Sub
 Sub Strange(var As String) 
txtBox.Text = var.Substring(CInt(Int(var.Length / 2)), 1)
 End Sub
A) progr
B) r
C) e
D) progre

Quizplus · Accepted Answer

The program defines a string variable named "word" and assigns it the value "progression". The Strange sub procedure takes a string parameter named "var" and uses the Substring method to extract a single character from the middle of the string. The Substring method's first argument is calculated by dividing the length of the string by 2 and then converting the result to an integer using the CInt and Int functions. This effectively finds the index of the middle character in the string. The second argument is simply 1, specifying that only one character should be returned.

Therefore, when the button is clicked, the Strange sub procedure is called with the argument "progression". The character at index 5 (which is the middle of the 10-character string) is "e", so this is what will be displayed in the text box.

What Will Be the Output of the Following Program When