Hallar la suma de dos números

Hallar la suma de dos números:

Module Module2

    Dim NUM1, NUM2, SUMA As Integer

    Sub Main()

        Write("Ingrese Primer Número: ")

        NUM1 = ReadLine()

        Write("Ingrese Primer Segundo: ")

        NUM2 = ReadLine()

        SUMA = NUM1 + NUM2

        WriteLine()

        WriteLine("La suma es : " & SUMA)

        WriteLine()

        WriteLine("Pulse Enter para continuar....")

        ReadLine()

    End Sub

End Module

Hallar el promedio de tres notas

Hallar el promedio de tres notas en consola

Imports System.Console

Module Module1

    Dim Nota1, Nota2, Nota3, PROM As Decimal

    Sub Main()

        Title = "ALFONSO"

        SetCursorPosition(15, 2)

        ForegroundColor = ConsoleColor.DarkYellow

        WriteLine("PROMEDIO DE 3 NOTAS")

        WriteLine()

        ResetColor()

        Write("ingrese Nota 1: ")

        Nota1 = ReadLine()

        Write("ingrese Nota 2: ")

        Nota2 = ReadLine()

        Write("ingrese Nota 3: ")

        Nota3 = ReadLine()

        PROM = (Nota1 + Nota2 + Nota3) / 3

        WriteLine()

        If (PROM > 10.5) Then

            ForegroundColor = ConsoleColor.Blue

            WriteLine("APROBADO")

        Else

            WriteLine()

            Console.ForegroundColor = ConsoleColor.Red

            WriteLine("DESAPROBADO")

        End If

        WriteLine()

        Console.ForegroundColor = ConsoleColor.Green

        WriteLine("PULSE ENTER PARA CONTINUAR....")

        ReadLine()

    End Sub

End Module

Encriptar y desencriptar en sql server

Crearemos nuestra base de datos para encriptar nuestra contraseña:

create database userEncriptar

use userEncriptar

go

create table usuario

(

id_usuario INT primary key,

usuario varchar(20) not null,

pass varbinary(500) not null

)

--Luego crearemos una función que nos permita encriptar:

go

 create function ENCRIPTA_PASS

 (

 @clave varchar(50)

 )

 returns VarBinary(500)

 as

 begin

 declare @pass as VarBinary(500)

 set @pass=ENCRYPTBYPASSPHRASE('clave',@clave)

 return @pass

 end

--Insertamos un usuario

insert into usuario values('12 ','CARLOS',dbo.ENCRIPTA_PASS('CARLOS123'))

 Luego crearemos una función que nos permita desencriptar:

 go

  create function desencriptar_pass

  (

  @clave varbinary(500)

  )

  returns varchar(50)

  as

  begin

  declare @pass as varchar(50)

  set @pass=DECRYPTBYPASSPHRASE('clave',@clave)

  return @pass

  end

  select id_usuario,usuario,dbo.desencriptar_pass(pass) from usuario

Ahora visualizamos los campos insertados:

Dado el valor de venta de un producto hallar el igv y el precio de venta

Public Class Form3

    Dim vv, igv, pv As Single

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

        vv = Val(Me.TextBox1.Text)

        igv = vv * 0.19

        pv = vv + igv

        Me.TextBox2.Text = Str(igv)

        Me.TextBox3.Text = Str(pv)

    End Sub

End Class

Cargar Imagen en Visual Basic

Public Class ImagenAgregar

    Private Sub Btnabrir_Click(sender As Object, e As EventArgs) Handles Btnabrir.Click

        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

            PictureBox1.Image = System.Drawing.Image.FromFile(OpenFileDialog1.FileName)

        End If

    End Sub

End Class

Hallar el cociente y el residuo de los numeros enteros

Public Class Form2

    Dim n1, n2, c, r As Integer

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

        n1 = Val(Me.TextBox1.Text)

        n2 = Val(Me.TextBox2.Text)

        c = n1 \ n2

        r = n1 Mod n2

        Me.TextBox3.Text = Str(c)

        Me.TextBox4.Text = Str(r)

    End Sub

End Class

Dados los números enteros hallar la suma

Public Class Form1

    Dim n1, n2, s As Integer

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

        n1 = Val(Me.TextBox1.Text)

        n2 = Val(Me.TextBox2.Text)

        s = n1 + n2

        Me.TextBox3.Text = Str(s)

    End Sub

End Class