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(I) A(I) = A(J) A(J) = D End If Next J, I End Sub
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(I) A(I) = A(J) A(J) = D End If Next J, I End Sub
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...
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(I)
A(I) = A(J)
A(J) = D
End If
Next J, I
End Sub](/v2/_next/image?url=https%3A%2F%2Fcontent.bartleby.com%2Fqna-images%2Fquestion%2F6e7ebf85-010c-4c8f-ab52-ad61586ce589%2Fe8f9ad06-5ebe-4f6b-995c-3ace76af4ed2%2Fsogris_processed.jpeg&w=3840&q=75)
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(I)
A(I) = A(J)
A(J) = D
End If
Next J, I
End Sub
![1-Call Sort(A, 10) 2-For I = 1 To n - 1 3-For J
= |+ 1 To n 4-lf A(J)
>
A(1) Then
1-Call Sort(A, 10) 2-For I = 1 To n - 1 3-For J
= |+1 To n 4-lf A(J) < A(I) Then
1-Call Sort(A, 10) 2-For I = 1 To n - 13-For J
= 1 To n 4-lf A(J) < A(1) Then
1-A=Sort(A,10) 2-For I = 1 To n - 1 3-For J = |
+ 1 To n 4-lf A(J) < A(1) Then](/v2/_next/image?url=https%3A%2F%2Fcontent.bartleby.com%2Fqna-images%2Fquestion%2F6e7ebf85-010c-4c8f-ab52-ad61586ce589%2Fe8f9ad06-5ebe-4f6b-995c-3ace76af4ed2%2F6gliigk_processed.jpeg&w=3840&q=75)
Transcribed Image Text:1-Call Sort(A, 10) 2-For I = 1 To n - 1 3-For J
= |+ 1 To n 4-lf A(J)
>
A(1) Then
1-Call Sort(A, 10) 2-For I = 1 To n - 1 3-For J
= |+1 To n 4-lf A(J) < A(I) Then
1-Call Sort(A, 10) 2-For I = 1 To n - 13-For J
= 1 To n 4-lf A(J) < A(1) Then
1-A=Sort(A,10) 2-For I = 1 To n - 1 3-For J = |
+ 1 To n 4-lf A(J) < A(1) Then
Expert Solution
![](/static/compass_v2/shared-icons/check-mark.png)
This question has been solved!
Explore an expertly crafted, step-by-step solution for a thorough understanding of key concepts.
Step by step
Solved in 2 steps with 3 images
![Blurred answer](/static/compass_v2/solution-images/blurred-answer.jpg)
Recommended textbooks for you
![Computer Networking: A Top-Down Approach (7th Edi…](https://www.bartleby.com/isbn_cover_images/9780133594140/9780133594140_smallCoverImage.gif)
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…](https://www.bartleby.com/isbn_cover_images/9780124077263/9780124077263_smallCoverImage.gif)
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)](https://www.bartleby.com/isbn_cover_images/9781337569330/9781337569330_smallCoverImage.gif)
Network+ Guide to Networks (MindTap Course List)
Computer Engineering
ISBN:
9781337569330
Author:
Jill West, Tamara Dean, Jean Andrews
Publisher:
Cengage Learning
![Computer Networking: A Top-Down Approach (7th Edi…](https://www.bartleby.com/isbn_cover_images/9780133594140/9780133594140_smallCoverImage.gif)
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…](https://www.bartleby.com/isbn_cover_images/9780124077263/9780124077263_smallCoverImage.gif)
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)](https://www.bartleby.com/isbn_cover_images/9781337569330/9781337569330_smallCoverImage.gif)
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](https://www.bartleby.com/isbn_cover_images/9781337093422/9781337093422_smallCoverImage.gif)
Concepts of Database Management
Computer Engineering
ISBN:
9781337093422
Author:
Joy L. Starks, Philip J. Pratt, Mary Z. Last
Publisher:
Cengage Learning
![Prelude to Programming](https://www.bartleby.com/isbn_cover_images/9780133750423/9780133750423_smallCoverImage.jpg)
Prelude to Programming
Computer Engineering
ISBN:
9780133750423
Author:
VENIT, Stewart
Publisher:
Pearson Education
![Sc Business Data Communications and Networking, T…](https://www.bartleby.com/isbn_cover_images/9781119368830/9781119368830_smallCoverImage.gif)
Sc Business Data Communications and Networking, T…
Computer Engineering
ISBN:
9781119368830
Author:
FITZGERALD
Publisher:
WILEY