Realice un programa que genere en forma automática los números enteros ( Deben utilizar la función Random Mise) ; en el vector solamente debe almacenar 10 números generados.

a. Separar los números pares de los impares.

b.Separar los números impares y luego sume.

PORFA AYUDA......GRACIAS Y URGENTE!!!¡

cristhianzg: El programa en visual basic esta aqui

cristhianzg: https://app.box.com/s/vl8xmxpyj29u028mw3r0yb5chxbcjhz3

cristhianzg: los demas archivos, ingresas al link y te descargas el ejercicio que publique aqui

CesarCardenas: Siii ya las descargué, wauuu sigo en shock

CesarCardenas: si que eres muy listo

CesarCardenas: Gracias por ayudar a este usuario gracias

cristhianzg: ok, de nada

CesarCardenas: Gracias

CesarCardenas: si tu quieres para la próxima me puedes ayudar en algo que no pueda

CesarCardenas: Gracias

Respuestas

Respuesta dada por: cristhianzg

Codigo de visual basic 2013
----------------------------------------------------------------------------------------------------

Public Class Form2
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim num(10) As Integer
Dim par(10) As Integer
Dim impar(10) As Integer
Dim suma As Double
suma = 0
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
Randomize()
For i = 0 To 9 num(i) = Rnd() * 20
ListBox1.Items.Add(" X " & "[" & i & "]" & " = " & num(i))
If num(i) Mod 2 = 0 Then
par(i) = num(i)
ListBox2.Items.Add(" P " & "[" & i & "]" & " = " & par(i))
Else
impar(i) = num(i)
ListBox3.Items.Add(" I " & "[" & i & "]" & " = " & impar(i))
suma = suma + impar(i)
End If
Next
txtresultado.Text = suma

End Sub

End Class

Adjuntos: