Basic




Programación Visual
Karen Buendía Cisneros

Proyecto Visual Basic

Alexis Amaury Guillén González
MTA05-A
Matrícula: 5865

28/Mayo/2013

Práctica #1
Este programa pide al usuariointroducir valores a las variables X y Y. Seguidamente al presionar el botón de “Aceptar” el programa informará si los valores son iguales o si alguno de ellos es mayor que el otro.
Código:
PublicClass Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim x, y As Double
x = TextBox1.Text
y = TextBox2.Text
If x > yThen
TextBox3.Text = "X es mayor que Y"
ElseIf x < y Then
TextBox3.Text = "X es menor que Y"
Else
TextBox3.Text = "X es igual que Y"End If
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
End SubEnd Class

Práctica #2
Este programa pide al usuario que introduzca un número del 1 al 5. Seguidamente al presionar el botón de “Aceptar” el programa mostrara el nombre de dicho número utilizandoletras.
Código:
Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim num As Integer
num = TextBox1.Text
SelectCase num
Case 1
TextBox2.Text = "Uno"
Case 2
TextBox2.Text = "Dos"
Case 3
TextBox2.Text = "Tres"Case 4
TextBox2.Text = "Cuatro"
Case 5
TextBox2.Text = "Cinco"
Case Else
TextBox2.Text = "Error"
End Select
EndSub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
End Sub
End Class


*Si el usuario introduce...