-->

martes, 5 de abril de 2011

SI TIENE PROGRAMA


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
        Dim dinero As Decimal
        Dim programa As String
        dinero = TextBox1.Text
        programa = TextBox2.Text
        If dinero >= 50000 Then
            TextBox4.Text = "nos fuimos de rumba"
            If programa = "si" Then
                TextBox4.Text = "llamamos a otra"
            End If
        Else
            If programa = "no" Then
                TextBox4.Text = "salimos con esa a rumbear"

            End If
        End If

    End Sub

No hay comentarios:

Publicar un comentario