Visual Basic.NET - Ayuda con aplicacion de consola Vb 2010 arreglos o vectores

   
Vista:

Ayuda con aplicacion de consola Vb 2010 arreglos o vectores

Publicado por Fabrizio (1 intervención) el 02/07/2016 05:55:21
Buenos dias, soy nuevo en este foro y principiante en clases de programación. El tema es que tengo que realizar una aplicación de consola ultilizando vectores:

*Ingresar en un vector los apellidos de 10 personas. Informar cuantas de esas personas tienen el apellido Gomez o Perez.

Tengo una complicación en la parte del informe en donde hay que mostrar la cantidad de personas con un determinado apellido.

Espero que puedan ayudarme. Saludos.
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

Ayuda con aplicacion de consola Vb 2010 arreglos o vectores

Publicado por Santiago (10 intervenciones) el 02/07/2016 23:53:43
Mira si esto te sirve:

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
Sub Main()
 
	Dim s As String
	Dim intCont As Integer
	Dim Apellidos(10) As String
	Dim intGomez As Integer
	Dim intPerez As Integer
 
	' Introducción de datos
	For intCont = 1 To 4
		Console.WriteLine("Introduzca el apellido del usuario número " + intCont.ToString)
		s = Console.ReadLine()
		Apellidos(intCont) = s
	Next intCont
	'Contamos Gómez y Pérez
	For intCont = 1 To 10
		If Apellidos(intCont) = "Gómez" Then
			intGomez = intGomez + 1
		ElseIf Apellidos(intCont) = "Pérez" Then
			intPerez = intPerez + 1
		End If
	Next intCont
	Console.WriteLine("Hay " + intGomez.ToString + " Gómez.")
	Console.WriteLine("Hay " + intPerez.ToString + " Pérez.")
	Console.ReadLine()
 
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