Ejercicios de Visual Basic 9

Realizar un programa que me permita ingresar el nombre de 5 amigos

1. Insertamos los objetos con sus respectivos nombre

OBJETO	NOMBRE	CAPTION
Form	frmAmigos	MIS MEJORES AMIGOS
Label	lblAmigos	MEJORES AMIGOS
CommanButton	cmdAmigos	AGREGAR MEJORES AMIGOS
ListBox	lstAmigos

EN EL PROGRAMA VISUALIZAMOS ASI

2. Colocamos el siguiente codigo 

Option Explicit

Dim amigos(0 To 4) As String

Dim i As Integer

Private Sub cmdAmigos_Click()

lstAmigos.Clear

For i = 0 To 4

amigos(i) = InputBox("Ingrese el nombre de un amigo:" & i)

lstAmigos.AddItem amigos(i)

Next

End Sub

EN EL PROGRAMA VISUALIZAMOS ASI

UNA VEZ TERMINADO PONEMOS EJECUTAR

Y  de este modo hemos terminado con este ejercicio