Question

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!!!¡

Answer 1

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