Visual Basic - Programa que me diga cuantos numeros pares hay

Life is soft - evento anual de software empresarial
   
Vista:

Programa que me diga cuantos numeros pares hay

Publicado por Esperanza (1 intervención) el 14/03/2013 07:50:05
hola, debo hacer un programa que me diga cuantos numeros pares hay y me los muestre en un listbox lo cual ya hice pero ahora debo agragarle que me sume esos numeros pares y me los muestre en un text pero no se como hacerlo. Muestro lo que llevo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim N, CP, I As Integer
Dim R As Single
 
Private Sub Operar_Click()
N = Val(Text1.Text)
CP = 0
For I = 0 To N
R = I Mod 2
If R = 0 Then
CP = CP + 1
List1.AddItem I
End If
Next I
Text2.Text = CP
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Programa que me diga cuantos numeros pares hay

Publicado por Marcelo Perdomo (1 intervención) el 16/03/2013 20:24:12
A ver prueba con este código:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
dim n, cp, i as integer
dim r as integer
dim suma as integer
 
private sub operar_click()
	n = val(text1.text)
 
	cp = 0
	suma = 0
 
	for i = 0 to n
		r = i mod 2
 
		if r = 0 then
			cp = cp + 1
			suma = suma + i
			list1.additem i
		end if
	next i
	text2.text = cp				' Total de pares
	text3.text = suma			' Suma de los pares
end sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

tengo tres listbox, en el primer listbox estan todos los numeros, quiero que solo los numeros par

Publicado por gustavo (1 intervención) el 23/04/2015 06:59:52
tengo tres listbox, en el primer listbox estan todos los numeros, quiero que solo los numeros pares del primer listbox se pasen al segundo listbox
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar