For each of the responses shown in the parentheses, determine the output display

Question

For each of the responses shown in the parentheses, determine the output displayed in the text box when the button is clicked.

Private Sub btnDisplay_Click(...) Handles btnDisplay.Click
Dim yearENIAC As Integer
'Ask question and obtain answer
Dim message As String
message = "In what year was the ENIAC computer completed?"
yearENIAC = CInt(InputBox(message))
'Respond to answer
Select Case yearENIAC
Case 1945
txtOutput.Text = "Correct."
Case 1943 To 1947
txtOutput.Text = "Close, 1945."
Case Is < 1943
txtOutput.Text = "Sorry, 1945. Work on the ENIAC " & _
"began in June 1943."
Case Is > 1947
txtOutput.Text = "No, 1945. By then IBM had built " & _
"a stored-program computer."
End Select
End Sub
(1940, 1945, 1950)

Explanation / Answer

Run the given code fragement then the output displayed in the text box when the button is clicked are: 1. When button is clicked, then program ask a question like what year was the ENIAC computer completed,so enter year(1940),then the follwoing output displayed in the text box. https://s3.amazonaws.com/answer-board-image/d1c56048-983a-4219-a323-2f689713899c.jpeg 2. Again enter year(1945),then the follwoing output displayed in the text box. https://s3.amazonaws.com/answer-board-image/6f2225ea-105d-496b-9021-6f6c24895676.jpeg 3. Finally enter year(1950),then the follwoing output displayed in the text box. https://s3.amazonaws.com/answer-board-image/8b409bbf-7166-413e-8ec7-a7f7997adfbc.jpeg

Related Questions

Navigate

• Browse (All)
• Browse F
• Subjects

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.