Foros aprenderaprogramar.com
Aprender a programar => Aprender a programar desde cero => Mensaje iniciado por: alfonso1 en 17 de Abril 2012, 11:35
-
Option Explicit
Dim Textorestaurante As String
Private Sub Form_Load()
Show
Textorestaurante = "Bienvenidos al restaurante de Ciudad Pemira"
Show
Print Tab(15); Textorestaurante
End Sub
-
Option Explicit
Dim Numerodeclientes(23) As Integer
Private Sub Form_Load()
Show
Numerodeclientes(13) = 57
Print
Print "el numero de clientes en la hora 13 fue de"; Numerodeclientes(13)
End Sub
-
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
-
Hola Alfonso, este programa está bien planteado y bien resuelto.
Te hago algunas indicaciones para mejorar:
1. ¿Cuál era el enunciado del ejercicio? ¿El programa hace exactamente lo que se pedía en el ejercicio?
2. Haz puesto instrucciones como Print "Los coches de la zona diesel marca Seat es de"; Numerocoches(1, 4). El resultado es correcto, pero a mí me parece más correcta una redacción como Print "Los coches de la zona diesel marca Seat son:"; Numerocoches(1, 4)
Saludos.