|
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 |