Write an algorithm to find the area of (20) circles Private Sub Command1 Click() Const PIE = 3.14 Dim I, R I= 1 4 R- InputBox("Enter Value of R", "Example 3") A =R^2 * PIE 1-... 2-.... 3-.... 4-.... End If End Sub 1- Print R, A 2- If I< 20 Then 3-1 = I+ 1 4- GoTo A

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
I need answer within 5 minutes please please with my best wishes
läj Write an algorithm to find the area of
.(20) circles
Private Sub Command1 Click()
Const PIE = 3.14
Dim I, R
I=1
4 R= InputBox("Enter Value of R", "Example 3")
A =R^2* PIE
1-....
2-..
3-..
4-..
End If
End Sub
1- Print R, A 2- If I < 20 Then 3- |+ 1 4-
GoTo A
1- Print R, A 2- If I < 20 Then 3- blank 4-
GoTo 4
1- Print R, A 2- If I < 20 Then 3-| = |+ 14-
GoTo 4
1- Print R, A 2- If I < =20 Then 3-| = |+ 1 4-
GoTo 4
1- blank 2- If < 20 Then 3-1 = |+ 1 4- Print
R, A: GoTo 4
أخری:
هذا السؤال مطلوب
II
>
Transcribed Image Text:läj Write an algorithm to find the area of .(20) circles Private Sub Command1 Click() Const PIE = 3.14 Dim I, R I=1 4 R= InputBox("Enter Value of R", "Example 3") A =R^2* PIE 1-.... 2-.. 3-.. 4-.. End If End Sub 1- Print R, A 2- If I < 20 Then 3- |+ 1 4- GoTo A 1- Print R, A 2- If I < 20 Then 3- blank 4- GoTo 4 1- Print R, A 2- If I < 20 Then 3-| = |+ 14- GoTo 4 1- Print R, A 2- If I < =20 Then 3-| = |+ 1 4- GoTo 4 1- blank 2- If < 20 Then 3-1 = |+ 1 4- Print R, A: GoTo 4 أخری: هذا السؤال مطلوب II >
Expert Solution
steps

Step by step

Solved in 3 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