LABORATORIO N° 6
EJERCICIO N°1
Public Class Form1
Public NRO(19), I, WMAYOR As Integer
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)
Handles Button1.Click
NRO(I) = TextBox1.Text
ListBox1.Items.Add(NRO(I))
If NRO(I) > WMAYOR Then
WMAYOR = NRO(I)
Else
I = I + 1
End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs)
Handles Button2.Click
TextBox2.Text = WMAYOR
WMAYOR = 0
I = 0
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs)
Handles Button3.Click
Dim X As Integer
TextBox1.Text = ""
TextBox2.Text = ""
ListBox1.Items.Clear()
For X = 0 To 19
NRO(X) = 0
Next
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs)
Handles Button4.Click
End
End Sub
End Class
EJERCICIO N°2
Public Class Form1
Public NRO(19), I As Integer
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)
Handles Button1.Click
NRO(I) = TextBox1.Text
ListBox1.Items.Add(NRO(I))
I = I + 1
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs)
Handles Button2.Click
Dim K As Integer
K = I - 1
For I = K To 0 Step -1
ListBox2.Items.Add(NRO(I))
Next
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs)
Handles Button3.Click
TextBox1.Text = ""
ListBox1.Items.Clear()
ListBox2.Items.Clear()
For I = 0 To 19
NRO(I) = 0
Next
I = 0
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs)
Handles Button4.Click
End
End Sub
End Class
EJERCICIO N°3
Public Class Form1
Public NRO(99), I, N, C1 As Integer
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)
Handles Button1.Click
N = TextBox1.Text
NRO(I) = TextBox2.Text
ListBox1.Items.Add(NRO(I))
If NRO(I) = N Then
C1 = C1 + 1
End If
TextBox2.Text = ""
TextBox2.Focus()
I = I + 1
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs)
Handles Button2.Click
TextBox3.Text = C1
C1 = 0
N = 0
I = 0
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs)
Handles Button3.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ListBox1.Items.Clear()
Dim X As Integer
For X = 0 To 99
NRO(X) = 0
Next
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs)
Handles Button4.Click
End
End Sub
End Class
EJERCICIO N°4
Public A(14), B(14), C(14), I As Integer
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)
Handles Button1.Click
A(I) = TextBox1.Text
B(I) = TextBox2.Text
ListBox1.Items.Add(A(I))
ListBox2.Items.Add(B(I))
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
I = I + 1
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs)
Handles Button2.Click
Dim K As Integer
K = I - 1
For I = 0 To K
C(I) = A(I) + B(I)
ListBox3.Items.Add(C(I))
Next
I = 0
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs)
Handles Button3.Click
Dim X As Integer
TextBox1.Text = ""
TextBox2.Text = ""
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
For X = 0 To 14
A(X) = 0
B(X) = 0
C(X) = 0
Next
X = 0
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs)
Handles Button4.Click
End
End Sub
End Class
EJERCICIO N°5
Public Class Form1
Public A(14), B(14), C(14), I, WMAYOR As Integer
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)
Handles Button1.Click
A(I) = TextBox1.Text
B(I) = TextBox2.Text
ListBox1.Items.Add(A(I))
ListBox2.Items.Add(B(I))
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
I = I + 1
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs)
Handles Button2.Click
Dim K As Integer
K = I - 1
For I = 0 To K
C(I) = A(I) + B(I)
ListBox3.Items.Add(C(I))
If C(I) > WMAYOR Then
WMAYOR = C(I)
End If
Next
TextBox3.Text = WMAYOR
I = 0
WMAYOR = 0
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs)
Handles Button3.Click
Dim X As Integer
TextBox1.Text = ""
TextBox2.Text = ""
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
For X = 0 To 14
A(X) = 0
B(X) = 0
C(X) = 0
Next
X = 0
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs)
Handles Button4.Click
End
End Sub
End Class
EJERCICIO N°6
Public Class Form1
Public S, I, SUELDO(69) As Integer
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)
Handles Button1.Click
SUELDO(I) = TextBox1.Text
ListBox1.Items.Add(SUELDO(I))
S = S + SUELDO(I)
I = I + 1
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs)
Handles Button2.Click
Dim K, C As Integer
Dim PROM As Double
PROM = S / I
K = I - 1
For I = 0 To K
If SUELDO(I) > PROM Then
C = C + 1
End If
Next
TextBox2.Text = PROM
TextBox3.Text = C
I = 0
PROM = 0
S = 0
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs)
Handles Button3.Click
Dim X As Integer
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ListBox1.Items.Clear()
For X = 0 To 69
SUELDO(X) = 0
Next
X = 0
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs)
Handles Button4.Click
End
End Sub
End Class
EJERCICIO N°7
Public Class Form1
Public I, NRO(19), N As Integer
Public R As String
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)
Handles Button1.Click
N = TextBox1.Text
NRO(I) = TextBox2.Text
ListBox1.Items.Add(NRO(I))
I = I + 1
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs)
Handles Button2.Click
I = I - 1
I = 0
While I < 20 And N <> NRO(I)
I = I + 1
End While
If I = 20 Then
R = "NO ESTÁ"
Else
R = "EXISTE"
End If
I = 0
N = 0
TextBox3.Text = R
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs)
Handles Button3.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ListBox1.Items.Clear()
Dim X As Integer
For X = 0 To 19
NRO(X) = 0
Next
X = 0
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs)
Handles Button4.Click
End
End Sub
End Class
EJERCICIO N°8
Public Class Form1
Public NRO(99), I, C1, C2, C3 As Integer
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)
Handles Button1.Click
NRO(I) = TextBox1.Text
ListBox1.Items.Add(NRO(I))
If NRO(I) > 0 Then
C1 = C1 + 1
ElseIf NRO(I) = 0 Then
C2 = C2 + 1
Else
C3 = C3 + 1
End If
I = I + 1
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs)
Handles Button2.Click
TextBox2.Text = C1
TextBox3.Text = C2
TextBox4.Text = C3
C1 = 0
C2 = 0
C3 = 0
I = 0
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs)
Handles Button3.Click
Dim X As Integer
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ListBox1.Items.Clear()
For X = 0 To 99
NRO(X) = 0
Next
X = 0
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs)
Handles Button4.Click
End
End Sub
End Class
EJERCICIO N°9:
EJERCICIO N°10:
