Scribd
Upload
50 views

Labo 2

This document contains 10 coding exercises in Visual Basic. Each exercise contains code to perform calculations or comparisons based on user input values, and display the results. The code samples show how to use if/else statements, variables, and other basic programming structures to solve problems like finding the maximum or minimum value, determining if a number is even or odd, calculating area of a triangle, and more.

Uploaded by

cristian
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
50 views

Labo 2

This document contains 10 coding exercises in Visual Basic. Each exercise contains code to perform calculations or comparisons based on user input values, and display the results. The code samples show how to use if/else statements, variables, and other basic programming structures to solve problems like finding the maximum or minimum value, determining if a number is even or odd, calculating area of a triangle, and more.

Uploaded by

cristian
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 12

LABORATORIO N° 2

EJERCICIO N°1
Public Class Form1

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


Handles Button1.Click
Dim A, B, TEMP As Integer
Dim R As String
A = TextBox1.Text
B = TextBox2.Text
If A > B Then
TEMP = A
A = B
B = TEMP
End If
R = A & " , " & B
TextBox3.Text = R

End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs)


Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs)


Handles Button3.Click
End
End Sub
End Class
EJERCICIO N°2

Public Class Form1

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


Handles Button1.Click
Dim A, B, C, MAX As Integer
A = TextBox1.Text
B = TextBox2.Text
C = TextBox3.Text

MAX = A
If B > MAX Then
MAX = B
End If
If C > MAX Then
MAX = C
TextBox4.Text = MAX
End If
End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs)


Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""

End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs)


Handles Button3.Click
End
End Sub
End Class
EJERCICIO N°3
Public Class Form1

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


Handles Button1.Click
Dim E1, E2, E3, MENOR As Integer
E1 = TextBox1.Text
E2 = TextBox2.Text
E3 = TextBox3.Text
MENOR = 99999
If E1 < MENOR Then
MENOR = E1
End If
If E2 < MENOR Then
MENOR = E2
End If
If E3 < MENOR Then
MENOR = E3
End If
TextBox4.Text = MENOR

End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs)
Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""

End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs)


Handles Button3.Click
End
End Sub
End Class

EJERCICIO N°4

Public Class Form1

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


Handles Button1.Click
Dim N1, N2, N3, N4, PROM, MENOR As Integer
N1 = TextBox1.Text
N2 = TextBox2.Text
N3 = TextBox3.Text
N4 = TextBox4.Text
MENOR = 20
If N1 < MENOR Then
MENOR = N1
End If
If N2 < MENOR Then
MENOR = N2
End If
If N3 < MENOR Then
MENOR = N3
End If
If N4 < MENOR Then
MENOR = N4
End If
PROM = (N1 + N2 + N3 + N4 - MENOR) / 3
TextBox5.Text = PROM
TextBox6.Text = MENOR
End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs)


Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs)


Handles Button3.Click
End
End Sub
End Class
EJERCICIO N°5
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Button1.Click
Dim NRO As Integer
Dim R As String
NRO = TextBox1.Text
If NRO Mod 2 = 0 Then
R = " EL NUMERO ES PAR"
Else
R = " EL NUMERO ES IMPAR"
End If
TextBox2.Text = R
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Button3.Click
End
End Sub
End Class

EJERCICIO N°6
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Button1.Click
Dim N1, N2 As Integer
N1 = TextBox1.Text
N2 = TextBox2.Text
If N1 Mod N2 = 0 Then
MessageBox.Show(N1 & " ES DIVISIBLE POR " & N2)
Else
MessageBox.Show(N1 & " NO ES DIVISIBLE POR " & N2)
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Button3.Click
End
End Sub
End Class
EJERCICIO N°7
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Button1.Click
Dim A, B, C, P, AREA As Double
Dim MENSAJE As String
A = TextBox1.Text
B = TextBox2.Text
C = TextBox3.Text
If A < B + C And B < A + C And C < A + B Then
MENSAJE = " LOS LADOS SI FORMAN UN TRIANGULO "
P = (A + B + C) / 2
AREA = (P * (P - A) * (P - B) * (P - C)) ^ (1 / 2)
Else
MENSAJE = " LOS LADOS NO FORMAN UN TRIANGULO"
End If
TextBox4.Text = MENSAJE
TextBox5.Text = AREA
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Button3.Click
End
End Sub
End Class
EJERCICIO N°8
Public Class Form1

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


Handles Button1.Click
Dim A, B As Integer
Dim R As String
A = TextBox1.Text
B = TextBox2.Text
If A > B Then
R = B & " , " & A
Else
R = A & " , " & B
End If
TextBox3.Text = R
End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs)


Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs)


Handles Button3.Click
End
End Sub
End Class

EJERCICIO N°9
Public Class Form1

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


Handles Button1.Click
Dim D As Integer
Dim S, N, B As Double
D = TextBox1.Text
If D < 10000 Then
S = 0.35 * D
N = 0.65 * D
End If
If D >= 10000 Then
S = 0.3 * D
N = 0.6 * D
B = 0.1 * D
End If
TextBox2.Text = S
TextBox3.Text = N
TextBox4.Text = B
End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs)


Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""

End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs)
Handles Button3.Click
End
End Sub
End Class

EJERCICIO N°10
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Button1.Click
Dim SEXO, EDAD As Integer
Dim CAT As String
SEXO = TextBox1.Text
EDAD = TextBox2.Text
If SEXO = 0 Then
If EDAD < 23 Then
CAT = "FA"
Else
CAT = "FB"
End If
Else
If EDAD < 25 Then
CAT = "MA"
Else
CAT = "MB"
End If
End If
TextBox3.Text = CAT
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Button3.Click
End
End Sub
End Class

You might also like