|
Public Class Form1 Dim A(5), I As Int16 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click For I = 0 To 5 A(I) = InputBox("ENTER A NUMBER") Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click For I = 0 To 5 ListBox1.Items.Add(A(I)) Next End Sub End Class |