Dim A(10), C1, C2 For I = 1 To 20 A(I) = Val(InputBox If A(I) > 0 Then

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
C1 = C1 + 1
1-.....
C2 = C2 + 1
2-....
3-....
4-....
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 C1 = C1 + 1 1-..... C2 = C2 + 1 2-.... 3-.... 4-....
1-Elself A(1) < 0 Then 2-Text1.Text = C1:Text2.Text = C2 3-End If 4-Next
1-Elself A(I) < 0 Then 2-Blank 3-Next 4-Text1.Text = C1:Text2.Text = C2
1-Elself A(I) < 0 Then 2-End If 3-Text1.Text = C1:Text2.Text = C2 4-Next O
%3D
1-Else 2-End If 3-Next 4-Text1.Text = C1:Text2.Text = C2
1-Elself A(I) < 0 Then 2-Next 3- End If 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 O
%3D
Transcribed Image Text:1-Elself A(1) < 0 Then 2-Text1.Text = C1:Text2.Text = C2 3-End If 4-Next 1-Elself A(I) < 0 Then 2-Blank 3-Next 4-Text1.Text = C1:Text2.Text = C2 1-Elself A(I) < 0 Then 2-End If 3-Text1.Text = C1:Text2.Text = C2 4-Next O %3D 1-Else 2-End If 3-Next 4-Text1.Text = C1:Text2.Text = C2 1-Elself A(I) < 0 Then 2-Next 3- End If 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 O %3D
Expert Solution
steps

Step by step

Solved in 2 steps

Blurred answer
Knowledge Booster
Random Class and its operations
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