question

YeniaVsquez-8758 avatar image
0 Votes"
YeniaVsquez-8758 asked AnnaXiu-MSFT commented

Visual Basic Ayuda

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

vs-general
· 1
5 |1600 characters needed characters left characters exceeded

Up to 10 attachments (including images) can be used with a maximum of 3.0 MiB each and 30.0 MiB total.

Hi YeniaVsquez-8758, thanks for taking time to post your issue in Microsoft Q&A forum. Currently in Microsoft Q&A we only support English, could you please edit your question into English? Then we can help to solve your issues, thanks for your understanding.

0 Votes 0 ·

0 Answers