InformáticaBásico1 respuestas

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?

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

Pregunta de Informática · 1 respuesta · 6 votos · mejor respuesta de Santonescaza

Respuestas de la comunidad

Mejor respuesta

Santonescaza
10

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.

Imagen adjunta 1Imagen adjunta 2Imagen adjunta 3Imagen adjunta 4
Realice un programa que genere en forma automática los… — Saberio