Necesito ayuda con un programa de visual basic
**Este es el problema:
Se ha procedido a realizar un conteo de los coches que han pasado por una vía durante 24 horas. Los resultados se darán al finalizar cada hora, es decir, para la hora1, la cantidad de coche en esa hora, para la hora2 la cantidad de coches en la hora2, y así sucesivamente hasta la hora 24 indicando la hora del día y la cantidad de coches que pasaron a esa hora. Se desea que el programa determine:
a. El total de coches que pasaron durante el día.
b. Cuántas horas de tránsito cero hubo y cuáles fueron.
c. Cuál fue la hora de máximo tránsito y qué número de coches pasaron.
d. Cuál fue la última hora a la que pasó un coche y qué número de coches pasaron.**
Hasta ahora el pseudocodigo que tengo es el siguiente (no lo he completado y lo necesito para mañana):
Private Sub Command1_Click()
Dim horas, carros, cantm, horam As Single
cantm = 0
horam = 0
For horas = 1 to 24
carros = InputBox(“Ingrese una cantidad de carros:”, “Cantidad de Carros”)
cd = cd + val (carros)
If carros = 0 Then
Informcar.AddItem (“No hubieron carros a las “ & horas)
z = z + horas
Text2.Text = z
Else
Informcar.AddItem (“La cantidad de carros que pasaron a las “ & horas & “ fue “ & carros)
If carros > cantm Then
cantm = carros
horam = horas
end if
end if
Next
cantidadtotal.text = cd
cantidadmaxima.text = cantm
horamax.text = horam
end sub