Problema creando contadores con bucles
Publicado por anonymous (2 intervenciones) el 25/07/2019 23:02:39
Buenos días, verán tengo que desarrollar este ejercicios con el uso de bucles en este problema: “Determine cuantas personas tienen de más de 180cm de altura, cuantos están entre 180 y 170, 170 y 160, y cuantos menos de 160cm con el uso de bucles while -wend o con Do – Loop.”
Pero ando trancado y no logro que se vaya contando las personas que voy agregando sin que desencadene un bucle infinito. esto es lo he realizado si es posible saber como arreglarlo o plantearlo de otra manera.
Pero ando trancado y no logro que se vaya contando las personas que voy agregando sin que desencadene un bucle infinito. esto es lo he realizado si es posible saber como arreglarlo o plantearlo de otra manera.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Private Sub Cmd_Calcular_Click()
Dim conta1 As Integer
Dim conta2 As Integer
Dim conta3 As Integer
Dim conta4 As Integer
conta1 = 0conta2 = 0conta3 = 0conta4 = 0altura = Val(txtAltura.Text)
While altura <> 999
If altura >= 160 Then
If altura >= 170 Then
If altura >= 180 Then
conta1 = conta1 + 1
Else
conta2 = conta2 + 1
End If
Else
conta3 = conta3 + 1
End If
Else
conta4 = conta4 + 1
End If
altura = Val(txtAltura.Text)
when
listResultado.AddItem "Más grandes de 180: " + CStr(conta1)
listResultado.AddItem "Entre 170 y 180: " + CStr(conta2)
listResultado.AddItem "Entre 160 y 170: " + CStr(conta3)
listResultado.AddItem "Los que son menores de 160: " + CStr(conta4)
End Sub
Valora esta pregunta
0
