Programas En Visual Basic Y Macros De Escel

EJERCICIOS DE VISUAL BASIC 2010

Por: Ing. Jhon Jairo Torres Ríos

1. Hacer un programa que sume dos números

Public Class Form1

Dim a, b, c As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

a = TextBox1.Text

b = TextBox2.Text

c = Val(a + b)

TextBox3.Text = c

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

Me.Close()

End Sub

End Class

2. Hallar el mayor de tres números dados

Public Class form1

Private Sub Borrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Borrar.Click

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

End Sub

Private Sub Hallar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hallar.Click

Dim a, b, c As Integer

a = TextBox1.Text

b = TextBox2.Text

c = TextBox3.Text

If (a > b) Then

If (a > c) Then

MsgBox("El número mayor es: " & a)

TextBox4.Text = a

Else

MsgBox("El número mayor es: " & c)

TextBox4.Text = c

End If

Else

If (b > c) Then

MsgBox("El número mayor es: " & b)

TextBox4.Text = b

Else

MsgBox("El número mayor es: " & c)

TextBox4.Text = c

End If

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.Close()

End Sub

End Class

3. Hacer un programa que encuentre el promedio de notas de un estudiante del colegio IETAS

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal ee As System.EventArgs) Handles Promedio.Click

Dim a, b, c, d, e As Double

a = Val(TxtNota1.Text)

b = Val(TxtNota2.Text)

...