Q5/Private Sub Form Activate() Font.Name = "arial": Font.Bold = True: Font.Size = 14 start: Solve the question by visual basic 9 = InputBox("input wave length"., "input"., 6000, 2000) If q="s" Then End Select Case q Case 0.005 To 0.009: Print, "Gamma ray" Case 0.01 To 5: Print, "X-ray" Case 10 To 3999: Print, "Ultraviolet" Case 4000 To 7499: Print "Visible Light" Case 7500 To 4000000# : Print, "Infrared" End Select GoTo start 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
Q5/Private Sub Form Activate()
Font.Name = "arial": Font. Bold = True: Font.Size = 14
start:
Solve the
question by
visual basic
9 = InputBox("input wave length"., "input"., 6000, 2000)
If q = "s" Then End
Select Case q
Case 0.005 To 0.009: Print, "Gamma ray"
Case 0.01 To 5: Print,
"X-ray"
Case 10 To 3999: Print, "Ultraviolet" Case 4000 To 7499: Print
"Visible Light"
Case 7500 To 4000000#: Print, "Infrared" End Select GoTo start
End Sub
2- Write the input and the output the program
Transcribed Image Text:Q5/Private Sub Form Activate() Font.Name = "arial": Font. Bold = True: Font.Size = 14 start: Solve the question by visual basic 9 = InputBox("input wave length"., "input"., 6000, 2000) If q = "s" Then End Select Case q Case 0.005 To 0.009: Print, "Gamma ray" Case 0.01 To 5: Print, "X-ray" Case 10 To 3999: Print, "Ultraviolet" Case 4000 To 7499: Print "Visible Light" Case 7500 To 4000000#: Print, "Infrared" End Select GoTo start End Sub 2- Write the input and the output the program
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