(IMPORTANT: SHOW THE GRAPHICS) Create the graphics (grid) using the following code Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint e.Graphics.DrawRectangle(Pens.Red, 11, 18, 3, 2) 10, 8, 10, 20) 11, 9, 11, 22) e.Graphics.DrawLine(Pens.Blue, e.Graphics.DrawLine(Pens.Blue, Dim intX As Integer = 1 Dim inty As Integer For i As Integer = 1.5 To 11.5 Step 1.5 If intX >= 0 Then Next End Sub inty 3* i + 2 * intx Else inty = i End If e.Graphics.DrawRectangle(Pens.Green, inty, i, 3, 2) e.Graphics.FillRectangle(Brushes.Red, intX -= 1.5 e.Graphics.FillRectangle(Brushes.Green, e.Graphics.FillRectangle(Brushes.Green, intY + 1, i + 1, 1, 1) 8, 14, 3, 2) 11, 11, 3, 2)

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
(IMPORTANT: SHOW THE GRAPHICS)
Create the graphics (grid) using the following code
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
e.Graphics.DrawRectangle (Pens.Red, 11, 18, 3, 2)
10, 8, 10, 20)
11, 9, 11, 22)
e.Graphics.DrawLine(Pens.Blue,
e.Graphics.DrawLine(Pens.Blue,
Dim intX As Integer = 1
Dim inty As Integer
For i As Integer = 1.5 To 11.5 Step 1.5
If intX >= 0 Then
Else
End Sub
intY = 3* i + 2 * intx
inty = i
End If
Next
e.Graphics.DrawRectangle(Pens.Green, inty, i, 3, 2)
e.Graphics.FillRectangle(Brushes.Red,
intX = 1.5
e.Graphics.FillRectangle(Brushes.Green,
8, 14, 3, 2)
e.Graphics.FillRectangle (Brushes.Green, 11, 11, 3, 2)
intY + 1, i + 1, 1, 1)
Transcribed Image Text:(IMPORTANT: SHOW THE GRAPHICS) Create the graphics (grid) using the following code Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint e.Graphics.DrawRectangle (Pens.Red, 11, 18, 3, 2) 10, 8, 10, 20) 11, 9, 11, 22) e.Graphics.DrawLine(Pens.Blue, e.Graphics.DrawLine(Pens.Blue, Dim intX As Integer = 1 Dim inty As Integer For i As Integer = 1.5 To 11.5 Step 1.5 If intX >= 0 Then Else End Sub intY = 3* i + 2 * intx inty = i End If Next e.Graphics.DrawRectangle(Pens.Green, inty, i, 3, 2) e.Graphics.FillRectangle(Brushes.Red, intX = 1.5 e.Graphics.FillRectangle(Brushes.Green, 8, 14, 3, 2) e.Graphics.FillRectangle (Brushes.Green, 11, 11, 3, 2) intY + 1, i + 1, 1, 1)
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