This program displays a message box including the name of day when th user input it's number. (For example, when the user enters 2 the VB displa message box with the name Monday) * Private Sub Command1 Click(() Dim x As Integer 1.. . 2..... Case 1 MsgBox ("Sunday") Case 2 MsgBox ("Monday") Case 3 MsgBox ("Tuesday") Case 4 MsgBox ("Thursday") Case 5 MsgBox ("Wednesday") Case 6 MsgBox ("Friday") 3...... ... MsgBox ("Saturday") End Select End Sub

Computer Networking: A Top-Down Approach (7th Edition)
7th Edition
ISBN:9780133594140
Author:James Kurose, Keith Ross
Publisher:James Kurose, Keith Ross
Chapter1: Computer Networks And The Internet
Section: Chapter Questions
Problem R1RQ: What is the difference between a host and an end system? List several different types of end...
icon
Related questions
Question
This program displays a message box including the name of day when the
user input it's number. (For example, when the user enters 2 the VB display
message box with the name Monday) *
Private Sub Command1 Click()
Dim x As Integer
1...
2..
Case 1
MsgBox ("Sunday")
Case 2
MsgBox ("Monday")
Case 3
MsgBox ("Tuesday")
Case 4
MsgBox ("Thursday")
Case 5
MsgBox ("Wednesday")
Case 6
MsgBox ("Friday")
3.....
MsgBox ("Saturday")
End Select
End Sub
1-Blank 2-Select Case x 3-Case else
1- x = Clnt(Text1.Text) 2-Select Case text1 3-Case else
1-blank 2-Select Case x 3-Case x
1- x = CInt(Text1.Text) 2-Select Case 1 3-0Case else
1- x = Clnt(Text1.Text) 2-Select Case 3-Case else
O 1- x = Clnt(Text1.Text) 2-Select Case x 3-Case 7
O 1- Text1.Text=Dx 2-Select Case x 3-Case else
Transcribed Image Text:This program displays a message box including the name of day when the user input it's number. (For example, when the user enters 2 the VB display message box with the name Monday) * Private Sub Command1 Click() Dim x As Integer 1... 2.. Case 1 MsgBox ("Sunday") Case 2 MsgBox ("Monday") Case 3 MsgBox ("Tuesday") Case 4 MsgBox ("Thursday") Case 5 MsgBox ("Wednesday") Case 6 MsgBox ("Friday") 3..... MsgBox ("Saturday") End Select End Sub 1-Blank 2-Select Case x 3-Case else 1- x = Clnt(Text1.Text) 2-Select Case text1 3-Case else 1-blank 2-Select Case x 3-Case x 1- x = CInt(Text1.Text) 2-Select Case 1 3-0Case else 1- x = Clnt(Text1.Text) 2-Select Case 3-Case else O 1- x = Clnt(Text1.Text) 2-Select Case x 3-Case 7 O 1- Text1.Text=Dx 2-Select Case x 3-Case else
Expert Solution
steps

Step by step

Solved in 2 steps

Blurred answer
Recommended textbooks for you
Computer Networking: A Top-Down Approach (7th Edi…
Computer Networking: A Top-Down Approach (7th Edi…
Computer Engineering
ISBN:
9780133594140
Author:
James Kurose, Keith Ross
Publisher:
PEARSON
Computer Organization and Design MIPS Edition, Fi…
Computer Organization and Design MIPS Edition, Fi…
Computer Engineering
ISBN:
9780124077263
Author:
David A. Patterson, John L. Hennessy
Publisher:
Elsevier Science
Network+ Guide to Networks (MindTap Course List)
Network+ Guide to Networks (MindTap Course List)
Computer Engineering
ISBN:
9781337569330
Author:
Jill West, Tamara Dean, Jean Andrews
Publisher:
Cengage Learning
Concepts of Database Management
Concepts of Database Management
Computer Engineering
ISBN:
9781337093422
Author:
Joy L. Starks, Philip J. Pratt, Mary Z. Last
Publisher:
Cengage Learning
Prelude to Programming
Prelude to Programming
Computer Engineering
ISBN:
9780133750423
Author:
VENIT, Stewart
Publisher:
Pearson Education
Sc Business Data Communications and Networking, T…
Sc Business Data Communications and Networking, T…
Computer Engineering
ISBN:
9781119368830
Author:
FITZGERALD
Publisher:
WILEY