Listbox que tendra como nombre Dado.
un commandBotton que tendrá como nombre y caption: Tirada
un textbox que pondremos nombre: NumTiradas y borra el contenido que aparece por defecto dentro de ese objeto..
aqui será donde indiquemos cuentas tiradas queremos realizar.
y este sería el código:
Código:
Private Sub Tirada_Click()
For Contador = 1 To NumTiradas.Text
Dado.AddItem (Int(6 * Rnd) + 1)
Next Contador
End Sub
y al poner en el textbox por ejemplo el numero 5 o el 4 o el 3 o el 2 o el 1 incluso vacío salta un mensaje diciendo:
Error de compilación variable no definida y me subraya el nombre CONTADOR
Saludos amigos