Número positivo o negativo usando if en vb

Public Class Valor

    Private Sub CmdAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAceptar.Click
        Dim numero As Integer
        numero = Val(TextBox2.Text)
        If numero > 0 Then
            txtResultado.Text = "El número es positivo"
        Else
            txtResultado.Text = "El número es negativo"
        End If
    End Sub

    Private Sub cmdCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCerrar.Click
        Me.Close()
    End Sub
End Class


click aquí para descargar

Área de un triangulo rectangulo en vb

Public Class FrmArea

    Private Sub CmdCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCalcular.Click
        TxtResultado.Text = (Val(TxtBase.Text) * Val(TxtAltura.Text)) / 2
    End Sub

    Private Sub CmdLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdLimpiar.Click
        TxtBase.Clear()
        TxtAltura.Clear()
        TxtResultado.Clear()
    End Sub

    Private Sub CmdCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCerrar.Click
        Me.Close()
    End Sub
End Class


Click aquí para descargar

Calculadora Programación II visual basic

Public Class Form1

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

    End Sub

    Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Me.Close()

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        TxtValor1.Clear()

        TxtValor2.Clear()

        TxtResultado.Clear()

    End Sub

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

        TxtResultado.Text = Val(TxtValor1.Text) + Val(TxtValor2.Text)

    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TxtResultado.Text = Val(TxtValor1.Text) - Val(TxtValor2.Text)

    End Sub

    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TxtResultado.Text = Val(TxtValor1.Text) * Val(TxtValor2.Text)

    End Sub

    Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TxtResultado.Text = Val(TxtValor1.Text) / Val(TxtValor2.Text)

    End Sub

    Private Sub Button7_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        TxtResultado.Text = Val(TxtValor1.Text) ^ Val(TxtValor2.Text)

    End Sub

    Private Sub Button8_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        TxtResultado.Text = Val(TxtValor1.Text) Mod Val(TxtValor2.Text)

    End Sub

    Private Sub Button9_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        TxtResultado.Text = Val(TxtValor1.Text) * 10 ^ Val(TxtValor2.Text)

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        TxtValor1.Text = TxtResultado.Text

    End Sub

End Class


Click aquí para descargar