Web Site Devloped By Abhishek Mishra
Tech. Help By Anand Mishra
Contact no. 9425355631

Powerd by Shree Guru Kripa Computer

vb.net_DO_UNTIL_DECENDING program


This is vb.net_DO_UNTIL_DECENDING Program.There is decending order.

Public Class Form1
Dim N(), I, S As Int16
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
S = InputBox("ENTER NUMBER OF ARAY SIZE :")
ReDim N(S - 1)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
For I = 0 To UBound(N)
N(I) = InputBox("ENTER ELEMENT :")
ListBox1.Items.Add(N(I))
Next
End Sub
End Class