1
Aprender a programar desde cero / Re:ejercicio Visual Basic
« en: 22 de Abril 2012, 01:54 »
respuesta al ejercicio numero 6
Option Explicit
Option Base 1
Rem numerocoches (1,4) representa zona y marca
Dim Numerocoches(3, 4) As Integer
Private Sub Form_load()
Show
Numerocoches(1, 4) = 14
Numerocoches(2, 3) = 4
Numerocoches(3, 2) = 15
Print
Print "Los coches de la zona diesel marca Seat es de"; Numerocoches(1, 4)
Print
Print "los coches de la zona gasolina marca Fiat es de"; Numerocoches(2, 3)
Print
Print "Los coches de la zona eléctrica marca Toyota es de"; Numerocoches(3, 2)
End Sub
Option Explicit
Option Base 1
Rem numerocoches (1,4) representa zona y marca
Dim Numerocoches(3, 4) As Integer
Private Sub Form_load()
Show
Numerocoches(1, 4) = 14
Numerocoches(2, 3) = 4
Numerocoches(3, 2) = 15
Print "Los coches de la zona diesel marca Seat es de"; Numerocoches(1, 4)
Print "los coches de la zona gasolina marca Fiat es de"; Numerocoches(2, 3)
Print "Los coches de la zona eléctrica marca Toyota es de"; Numerocoches(3, 2)
End Sub