program

Array reverse









Coding:-
Dim X(100), i, m As Integer
Private Sub Command1_Click()
m = Val(Text1.Text)
For i = 1 To m
X(i) = InputBox("Enter" & " " & m & " " & "numbers")
Next
End Sub
Private Sub Command2_Click()
Print "The array is"
For i = 1 To m
Print X(i) & " " & " ";
Next
End Sub
Private Sub Command3_Click()
Print
Print
Print "The reverse array is"
For i = m To 1 Step -1
Print X(i) & " " & " ";
Next
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Frame1_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
End Sub