Guía de ejercicios “Array’s”

Clase.

Estructura de Datos

Catedrático.

Ing. David Ordoñez.

Presentado por.

Estrella Bellaluna Silva Alemán.

116070088

Tocoa, Colon C.A

8/04/2018
 Ejercicio N°1

Public Class Form1

Dim vector(24) As String

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles

Button1.Click

vector(0) = "Chelsea"
vector(1) = "Jenifer"
vector(2) = "Maria"
vector(3) = "Estrella"
vector(4) = "Yessica"
vector(5) = "Raquel"

vector(6) = "Bella"
vector(7) = "Luna"
vector(8) = "Marbella"
vector(9) = "Sonia"
vector(10) = "Sofia"
vector(11) = "Mireydi"

vector(12) = "Eduardo"
vector(13) = "Edwin"
vector(14) = "Rogel"
vector(15) = "Erickson"
vector(16) = "Alex"
vector(17) = "Javier"

vector(18) = "Rolvin"
vector(19) = "ALesander"
vector(20) = "Mario"
vector(21) = "Luis"
vector(22) = "Brayan"
vector(23) = "Dicarthy"
vector(24) = "Jefrik"

For x = 0 To 24
ListBox1.Items.Add(vector(x))
Next
End Sub

End Class
 Ejercicio N°2

Public Class Form1

Dim Alumnos(5, 5) As String

Dim c As Integer
Dim l As Integer

Private Sub Form1_Load(sender As Object, e As EventArgs)

Handles
MyBase.Load

DataGridView1.Columns.Add("Fisica2", "Fisica II")

DataGridView1.Columns.Add("Estructura", "Estrutura de Datos")
DataGridView1.Columns.Add("DiseñoSistema", "Diseño de
Sistema")
DataGridView1.Columns.Add("Algebra", "Algebra Lineal")
DataGridView1.Columns.Add("Ingles", "Ingles V")

For i = 1 To 4
DataGridView1.Rows.Add()
Next

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs)

Handles
Button1.Click

If c <= 4 Then
Alumnos(l, c) = TextBox1.Text
DataGridView1.Rows(l).Cells(c).Value = Alumnos(l, c)

Else
l = l + 1
c = 0
Alumnos(l, c) = TextBox1.Text
DataGridView1.Rows(l).Cells(c).Value = Alumnos(l, c)
End If

c = c + 1

End Sub
End Class
 Ejercicio N°3

For li = 0 To 4
For co = 0 To 4
If Alumnos(Li, co) = TextBox2.Text Then

ComboBox1.Items.Add(co)
ComboBox2.Items.Add(li)

ComboBox3.Items.Add(Alumnos(0, co))

End If
Next
Next
 Ejercicio N°4
Public Class Form1

Dim Vector(19) As Integer

Dim C As Integer
Dim P As Integer
Dim I As Integer
Private Sub Form1_Load(sender As Object, e As
EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(sender As Object, e As

EventArgs) Handles Button1.Click

'Codigo para guardar dentro del vector

If C <= 20 Then
Vector(C) = Val(TextBox1.Text)
ListBox1.Items.Add(Vector(C))
End If

C = C + 1

End Sub

Private Sub Button2_Click(sender As Object, e As

EventArgs) Handles Button2.Click
'Codigo para buscar numeros pares e impares
For x = 0 To 19
If Vector(x) Mod 2 = 0 Then
P = P + 1
Else
I = I + 1
End If
Next
TextBox2.Text = P
TextBox3.Text = I
End Sub
End Class
 Ejercicio N°5
Public Class Form1

Dim Matriz(10, 6) As Integer

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles

Button1.Click
Dim c As Integer
Dim l As Integer

If c <= 5 Then
Matriz(l, c) = TextBox1.Text
DataGridView1.Rows(l).Cells(c).Value = Matriz(l, c)
Else
l = l + 1
c = 0
Matriz(l, c) = Val(TextBox1.Text)
DataGridView1.Rows(l).Cells(c).Value = Matriz(l, c)
End If
c = c + 1

End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

DataGridView1.Columns.Add("Col1", "Columna 1")
DataGridView1.Columns.Add("Col2", "Columna 2")
DataGridView1.Columns.Add("Col3", "Columna 3")
DataGridView1.Columns.Add("Col4", "Columna 4")
DataGridView1.Columns.Add("Col5", "Columna 5")
DataGridView1.Columns.Add("Col6", "Columna 6")

For i = 1 To 9
DataGridView1.Rows.Add()
Next
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles

Button2.Click
Dim sf As Integer
Dim sc As Integer
For f = 0 To 9
For col = 0 To 5
sf = sf + Matriz(f, col)
Next
ComboBox1.Items.Add(sf)
sf = 0
Next

For col = 0 To 5
For f = 0 To 9
sc = sc + Matriz(f, col)
Next
ComboBox2.Items.Add(sc)
sc = 0
Next
End Sub
End Clas
 Ejercicio N°6

Dim NI As Integer
For s = 0 To 9
For a = 0 To 5
If Matriz(s, a) < 0 Then
NI = Matriz(s, a)
ComboBox3.Items.Add(NI)
End If
Next
Next

For li = 0 To 4
For co = 0 To 4
If Alumnos(Li, co) =
TextBox3.Text Then

ComboBox1.Items.Add(co)
ComboBox2.Items.Add(Li)

End If
Next

Next