Convert my pseudocode

[feldwoman93]

Declare String names (20)
Declare String name
Declare Integer i
Declare Integer j
For i = 1 To 20
Display ?Enter a name, please?
Input name
Set names(i) = name
End For
Module bubbleSort (Integer Ref array [ ], Integer arraySize)
//Sorting the array ascending using bubble sort
For (i = 20; i > = 1; I - -)
For (j = 0; j < I; j + +)
If names(j) > names (j + 1) Then
Call swap (names(j), names[j + 1])
End If
End For
End For
//Displaying the data in the array
For i = 1 to 20
Display names(i)
End For
End module

 

[jmcilhinney]

What have you tried and what happened when you tried it? I'm more than happy to help but I'm not about to do what is most likely homework for you.

 

[Solitaire]

The pseudocode looks more like C# than VB. But I'm guessing it's a homework assignment.