Design a project to calculate the area (A) for either a rectangle of dimensions (B *L) or a square of a side length (D). The user will first choose either the rectangle or the square using a drop down menu. The number of the visible text boxes and labels, and the caption of the labels should change as required. Private Sub mnuRectangular Click () Label1.Caption-"Input L Label2.Visible - True Text2.Visible - True Label2.Caption "Input B" End Sub Private Sub mnusquar Click () Label1.Caption "Input D" Label2.Visible- True Text2.Visible - True End Sub Private Sub mnuArea Click) Dim L, B, D, A As Single Label3.Caption - "A- If Label1.Caption "Input L" Then L-Val(Text1.Text) B-Val(Text2.Text) A-BL Elself Label1.Caption - "Input D" Then D-Val(Text1.Text) A-D 2 Text3.Text - A End If End Sub True False

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
Design a project to calculate the area (A) for either a rectangle of dimensions (B L) or a square
of a side length (D). The user will first choose either the rectangle or the square using a drop down
menu. The number of the visible text boxes and labels, and the caption of the labels should change
as required.
Private Sub mnuRectangular Click ()
Label1.Caption - "Input L"
Label2.Visible - True
Text2.Visible- True
Label2.Caption - "Input B"
End Sub
Private Sub mnušquar Click ()
Label1.Caption = "linput D"
Label2.Visible - True
Text2.Visible - True
End Sub
Private Sub mnuArea Click()
Dim L, B, D, A As Single
Label3.Caption- "A-"
If Label1.Caption "Input L" Then
L-Val(Text1.Text)
B-Val(Text2.Text)
A-B*L
Elself Label1.Caption - "Input D" Then
D-Val(Text1.Text)
A-D^2
Text3.Text - A
End If
End Sub
True
False
Transcribed Image Text:Design a project to calculate the area (A) for either a rectangle of dimensions (B L) or a square of a side length (D). The user will first choose either the rectangle or the square using a drop down menu. The number of the visible text boxes and labels, and the caption of the labels should change as required. Private Sub mnuRectangular Click () Label1.Caption - "Input L" Label2.Visible - True Text2.Visible- True Label2.Caption - "Input B" End Sub Private Sub mnušquar Click () Label1.Caption = "linput D" Label2.Visible - True Text2.Visible - True End Sub Private Sub mnuArea Click() Dim L, B, D, A As Single Label3.Caption- "A-" If Label1.Caption "Input L" Then L-Val(Text1.Text) B-Val(Text2.Text) A-B*L Elself Label1.Caption - "Input D" Then D-Val(Text1.Text) A-D^2 Text3.Text - A End If End Sub True False
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