Aplicativo de vectores

{draw:frame}
{draw:frame}
`Public Class Form1`
` Dima(50)AsString`
` Dimc1AsInteger`
` Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.Click`
` DimnombreAsString`
` Iftxtnombre.Text ""Then`
nombre = txtnombre.Text
lstnombres.Items.Add(nombre)
txtnombre.Clear()
' Else
'MsgBox("Falta ingresar el nombre")` EndIf`
txtnombre.Focus()
` EndSub`
` Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click`
` Dimi, jAsInteger`
`lstnombre.Items.Add(" FECHA 1 ")`
` lstnombre.Items.Add("__________________")`
` lstnombre.Items.Add("")`
` For j = 0 To 7`
a(j + 1) = lstnombres.Items(j)
Next
` For i = 1 To 4`
`lstnombre.Items.Add(a(i) + " vs " + a(i + 4))`
Next
` lstnombre.Items.Add("")`
` lstnombre.Items.Add(" FECHA 2 ")`
` lstnombre.Items.Add("__________________")`
` lstnombre.Items.Add("")`` lstnombre.Items.Add(a(1) + " vs " + a(2))`
` lstnombre.Items.Add(a(3) + " vs " + a(5))`
` lstnombre.Items.Add(a(4) + " vs " + a(6))`
` lstnombre.Items.Add(a(8) + " vs " + a(7))`
`lstnombre.Items.Add("")`
` lstnombre.Items.Add(" FECHA 3 ")`
` lstnombre.Items.Add("__________________")`
` lstnombre.Items.Add("")`
` lstnombre.Items.Add(a(1) + " vs " + a(3))`
`lstnombre.Items.Add(a(4) + " vs " + a(2))`
` lstnombre.Items.Add(a(8) + " vs " + a(5))`
` lstnombre.Items.Add(a(7) + " vs " + a(6))`
` lstnombre.Items.Add("")`
` lstnombre.Items.Add(" FECHA 4")`
` lstnombre.Items.Add("__________________")`
` lstnombre.Items.Add("")`
` lstnombre.Items.Add(a(1) + " vs " + a(4))`
` lstnombre.Items.Add(a(8) + " vs " + a(3))`
`lstnombre.Items.Add(a(7) + " vs " + a(2))`
` lstnombre.Items.Add(a(6) + " vs " + a(5))`
` lstnombre.Items.Add("")`
` lstnombre.Items.Add(" FECHA 5 ")`
` lstnombre.Items.Add("__________________")`
`...