This code segment read a one dimension array A (10). Using a define sub procedure (Sort) to Sort (increasing) the array 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
This code segment read a
one dimension array A (10).
Using a define sub procedure
(Sort) to Sort (increasing) the
array A.
Private Sub Command1_Click()
For I 1 To 10
A(I)=InputBox("A")
Next I
1-.
End Sub
Private Sub Sort(A, n)
2-...
3-..
4-..
D = A(1)
A(I) = A(J)
A(J) = D
End If
Next J, I
End Sub
1-Call Sort(A, 10) 2-For I = 1 Ton - 1
3-For J = 1 + 1 To n 4-If A(J) > A(1)
Then
1-Call Sort(A, 10) 2-For I = 1 Ton - 1
3-For J = 1 To n 4-If A(J) < A(1) Then
1-Call Sort(A, 10) 2-For I = 1 Ton - 1
3-For J = 1 + 1 To n 4-If A(J) < A(1)
Then
1-A=Sort(A,10) 2-For I = 1 To n-13-
For J = 1 + 1 To n 4-If A(J) < A(1)
Then
Transcribed Image Text:This code segment read a one dimension array A (10). Using a define sub procedure (Sort) to Sort (increasing) the array A. Private Sub Command1_Click() For I 1 To 10 A(I)=InputBox("A") Next I 1-. End Sub Private Sub Sort(A, n) 2-... 3-.. 4-.. D = A(1) A(I) = A(J) A(J) = D End If Next J, I End Sub 1-Call Sort(A, 10) 2-For I = 1 Ton - 1 3-For J = 1 + 1 To n 4-If A(J) > A(1) Then 1-Call Sort(A, 10) 2-For I = 1 Ton - 1 3-For J = 1 To n 4-If A(J) < A(1) Then 1-Call Sort(A, 10) 2-For I = 1 Ton - 1 3-For J = 1 + 1 To n 4-If A(J) < A(1) Then 1-A=Sort(A,10) 2-For I = 1 To n-13- For J = 1 + 1 To n 4-If A(J) < A(1) Then
Expert Solution
steps

Step by step

Solved in 2 steps with 1 images

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