Suppose A is a one dimension array with (20) elements. Write a code program which calculate the number of positive and negative of these elements and display them in textboxes. * Dim A(10), C1, C2 For I 1 To 20 A(I) = Val(InputBox("A=")) If A(I) >0 Then Cl C1 +1 1... C2 = C2 + 1 2-.... 3-..... 4..... O 1-Elself A(I) < 0 Then 2-N Ext 3- End If 4-Text1.Text C1:Text2.Tex = C2 O 1-Elself A(I) < 0 Then 2-Blank 3-Next 4-Text1.Text C1:Text2.Text C2 O 1-Else 2-End If 3-Next 4-Text1.Text = C1:Text2.Text C2 O 1-Elself A(I) < 0 Then 2-End If 3-Next 4-Text1.Text C1:Text2.Text = C2 1-Elself A(I) <0 Then 2-Text1.Text C1:Text2.Text C2 3-End If 4-Next O 1-Elself A(I) < 0 Then 2-End If 3-Text1.Text C1:Text2.Text = C2 4-Next

Database System Concepts
7th Edition
ISBN:9780078022159
Author:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Chapter1: Introduction
Section: Chapter Questions
Problem 1PE
icon
Related questions
Question
Suppose A is a one dimension array with (20) elements. Write a code
program which calculate the number of positive and negative of these
elements and display them in textboxes. *
Dim A(10), C1, C2
For I 1 To 20
A(I) = Val(InputBox("A="))
If A(I) >0 Then
Cl C1 + 1
1-....
......
C2 C2 + 1
2-.....
3-.
4-.
O 1-Elself A(I) < 0 Then 2-N ext 3- End If 4-Text1.Text = C1:Text2.Tex = C2
O 1-Elself A(I) < 0 Then 2-Blank 3-Next 4-Text1.Text C1:Text2.Text = C2
1-Else 2-End If 3-Next 4-Text1.Text = C1:Text2.Text = C2
1-Elself A(I) <0 Then 2-End If 3-Next 4-Text1.Text C1:Text2.Text C2
1-Elself A(I)
< O Then 2-Text1.Text C1:Text2.Text C2 3-End If 4-Next
1-Elself A(I) <0 Then 2-End If 3-Text1.Text C1:Text2.Text C2 4-Next
Transcribed Image Text:Suppose A is a one dimension array with (20) elements. Write a code program which calculate the number of positive and negative of these elements and display them in textboxes. * Dim A(10), C1, C2 For I 1 To 20 A(I) = Val(InputBox("A=")) If A(I) >0 Then Cl C1 + 1 1-.... ...... C2 C2 + 1 2-..... 3-. 4-. O 1-Elself A(I) < 0 Then 2-N ext 3- End If 4-Text1.Text = C1:Text2.Tex = C2 O 1-Elself A(I) < 0 Then 2-Blank 3-Next 4-Text1.Text C1:Text2.Text = C2 1-Else 2-End If 3-Next 4-Text1.Text = C1:Text2.Text = C2 1-Elself A(I) <0 Then 2-End If 3-Next 4-Text1.Text C1:Text2.Text C2 1-Elself A(I) < O Then 2-Text1.Text C1:Text2.Text C2 3-End If 4-Next 1-Elself A(I) <0 Then 2-End If 3-Text1.Text C1:Text2.Text C2 4-Next
Expert Solution
steps

Step by step

Solved in 2 steps

Blurred answer
Knowledge Booster
Array
Learn more about
Need a deep-dive on the concept behind this application? Look no further. Learn more about this topic, computer-science and related others by exploring similar questions and additional content below.
Similar questions
Recommended textbooks for you
Database System Concepts
Database System Concepts
Computer Science
ISBN:
9780078022159
Author:
Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:
McGraw-Hill Education
Starting Out with Python (4th Edition)
Starting Out with Python (4th Edition)
Computer Science
ISBN:
9780134444321
Author:
Tony Gaddis
Publisher:
PEARSON
Digital Fundamentals (11th Edition)
Digital Fundamentals (11th Edition)
Computer Science
ISBN:
9780132737968
Author:
Thomas L. Floyd
Publisher:
PEARSON
C How to Program (8th Edition)
C How to Program (8th Edition)
Computer Science
ISBN:
9780133976892
Author:
Paul J. Deitel, Harvey Deitel
Publisher:
PEARSON
Database Systems: Design, Implementation, & Manag…
Database Systems: Design, Implementation, & Manag…
Computer Science
ISBN:
9781337627900
Author:
Carlos Coronel, Steven Morris
Publisher:
Cengage Learning
Programmable Logic Controllers
Programmable Logic Controllers
Computer Science
ISBN:
9780073373843
Author:
Frank D. Petruzella
Publisher:
McGraw-Hill Education