Public Class Form31 Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles Button1.

Click REM Declarar todas las variables Dim mas, vol, densidad As Integer

REM Validar objetos de entrada mas = [Link] vol = [Link] REM Proceso densidad = mas / vol REM Asignar respuesta a objeto de salida [Link] = densidad End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'Para salir se utiliza la funcion If (MsgBox("Esta seguro que desea salir?", [Link], "Advertencia")) = [Link] Then MsgBox("Gracias") Close() End If End Sub End Class Public Class Form32 Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'declarar todas las variables Dim a11#, a12#, a21#, a22#, determinante# 'validar los objetos de entrada If [Link] = "" Then MsgBox("favor digite las bases") [Link]() Else If [Link] = "" Then MsgBox("digite la altura") [Link]() Else If [Link] = "" Then MsgBox("digite la altura") [Link]() Else If [Link] = "" Then MsgBox("digite la altura") [Link]() Else 'asignar los valores a las variables de entrada a11 = [Link] a12 = [Link]

a21 = [Link] a22 = [Link] 'proceso determinante = a11 * a22 - a12 * a21 'asiganar la respuesta de salida [Link] = determinante End If End If End If End If End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'Para salir se utiliza la funcion If (MsgBox("Esta seguro que desea salir?", [Link], "Advertencia")) = [Link] Then MsgBox("Gracias") Close() End If End Sub End Class Public Class Form33 Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'declarar todas las variables Dim num1#, num2#, num3#, respuesta 'validar los objetos de entrada If [Link] = "" Then MsgBox("favor digite numero 1") [Link]() Else If [Link] = "" Then MsgBox("favor digite numero 2") [Link]() Else If [Link] = "" Then MsgBox("favor digite numero 3") [Link]()

'asignar los valores a las variables de entrada num1 = [Link] num2 = [Link] num3 = [Link] 'proceso respuesta = num1 + num2 + num3 / 3 'asiganar la respuesta de salida [Link] = respuesta End If End If

End If End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'Para salir se utiliza la funcion If (MsgBox("Esta seguro que desea salir?", [Link], "Advertencia")) = [Link] Then MsgBox("Gracias") Close() End If End Sub End Class Public Class Form34 Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] Dim nd, p1, p2, p3 As Double p1 = [Link] p2 = [Link] p3 = [Link] nd = (p1 + p2 + p3) / 100 * 33.33 [Link] = nd End Sub End Class Public Class Form35 Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] REM Declarar todas las variables Dim y1, y2, x1, x2, pendiente As Double REM Validar objetos de entrada y1 = [Link] y2 = [Link] x1 = [Link] x2 = [Link] REM Proceso pendiente = (y2 - y1) / (x2 - x1)

REM Asignar respuesta a objeto de salida

[Link] = pendiente End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'Para salir se utiliza la funcion If (MsgBox("Esta seguro que desea salir?", [Link], "Advertencia")) = [Link] Then MsgBox("Gracias") Close() End If End Sub End Class Public Class Form36 Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'declarar todas las variables Dim libras#, gramos#, kilogramos# 'validar los objetos de entrada If [Link] = "" Then MsgBox("favor digite libras") [Link]() 'asignar los valores a las variables de entrada libras = [Link] 'proceso kilogramos = libras * 0.4535 gramos = kilogramos * 1000

'asiganar la respuesta de salida [Link] = kilogramos [Link] = gramos

End If End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'Para salir se utiliza la funcion If (MsgBox("Esta seguro que desea salir?", [Link], "Advertencia")) = [Link] Then MsgBox("Gracias") Close() End If End Sub

End Class Public Class Form37 Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'declarar variables Dim peso As Integer Dim rta As Integer

'validar maskedtextbox If [Link] = "" Then MsgBox("ingrese un peso") [Link]() Else

'asignar el valor a las variables peso = [Link]

'proceso de calculo del valor a pagar If peso <= 20 Then rta = "no paga el exedente" Else If peso > 20 And peso <= 30 Then rta = "paga 500" Else If peso > 30 Then rta = "paga 2000" End If End If End If

'asignar la salida al objeto

[Link] = rta End If End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link] = "" [Link] = "" [Link]() End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (MsgBox("Desea Salir Del Programa", [Link], "ADVERTENCIA")) = [Link] Then Close() End If End Sub End Class Public Class Form38 Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'declarar todas las variables Dim dolares#, euros#, yenes#, pesos# 'validar los objetos de entrada If [Link] = "" Then MsgBox("favor digite pesos") [Link]() Else 'asignar los valores a las variables de entrada pesos = [Link] 'proceso dolares = pesos / 2944 euros = pesos / 2904 yenes = pesos / 21904 'asiganar la respuesta de salida [Link] = pesos [Link] = pesos [Link] = pesos End If End Sub

Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'Para salir se utiliza la funcion If (MsgBox("Esta seguro que desea salir?", [Link], "Advertencia")) = [Link] Then MsgBox("Gracias") Close() End If End Sub End Class Public Class Form39 Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'definir variable Dim ph As Integer Dim solucion As Integer 'validacion If [Link] = "" Then MsgBox("ingrese el valor del ph") [Link]() Else 'asignar el valor a las variables ph = [Link] 'validamos del codigo If ph < 0 Or ph > 14 Then MsgBox("el intervalo del ph es de 0 a 14") [Link] = "" [Link]() Else 'proceso de calcular el ph If ph = 7 Then solucion = "neutro" Else

If ph > 7 Then solucion = "basico" Else solucion = "acida" End If End If End If End If [Link] = solucion End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link] = "" [Link] = "" [Link]() End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (MsgBox("Esta segura que desea salir", [Link], "advertencia")) = [Link] Then Close() End If End Sub End Class Public Class Calcular_capital_Simple_y_Compuesto Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'declarar todas las variables Dim tiempo#, capital#, taza#, capitals#, capitalc# 'validar los objetos de entrada If [Link] = "" Then MsgBox("favor digite el capital") [Link]() Else If [Link] = "" Then MsgBox("digite el tiempo") [Link]() Else If [Link] = "" Then MsgBox("digite la taza") [Link]()

'asignar los valores a las variables de entrada capital = [Link] tiempo = [Link] taza = [Link] 'proceso capitals = capital * (1 + taza * tiempo) capitalc = capital * (1 + taza) * (tiempo) 'asiganar la respuesta de salida [Link] = capitals [Link] = capitalc End If End If End If End Sub End Class ublic Class Form40 Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'declarar todas las variables Dim valor#, porcentage# 'validar los objetos de entrada If [Link] = "" Then MsgBox("favor digite valor") [Link]() 'asignar los valores a las variables de entrada valor = [Link] 'proceso porcentage = valor * 100 / 100 'asiganar la respuesta de salida [Link] = porcentage End If End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'Para salir se utiliza la funcion If (MsgBox("Esta seguro que desea salir?", [Link], "Advertencia")) = [Link] Then MsgBox("Gracias") Close() End If End Sub End Class

Public Class Form41 Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

REM Declarar todas las variables Dim num, exp, potencia As Integer

REM Validar objetos de entrada num = [Link] exp = [Link]

REM Proceso potencia = num * exp

REM Asignar respuesta a objeto de salida [Link] = potencia End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'Para salir se utiliza la funcion If (MsgBox("Esta seguro que desea salir?", [Link], "Advertencia")) = [Link] Then MsgBox("Gracias") Close() End If End Sub End Class Public Class Form42 REM DECLARAR TODAS LAS VARIABLES Dim NUM1, NUM2 As Double, MYM, POI As String Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If [Link] = "" Then MsgBox(" FAVOR DIGITE EL NUMERO ") [Link]() Else If [Link] = "" Then MsgBox(" FAVOR DIGITE EL NUMERO ") [Link]() Else REM ASIGANR VALORES A LAS VARIABLES NUM1 = [Link] NUM2 = [Link]

REM PROCESO If NUM1 = NUM2 Then MYM = " LOS DOS NUMERO SON IGUALES " Else If NUM1 > NUM2 Then MYM = " EL NUMERO 1 ES MAYOR QUE EL NUMERO 2 " Else If NUM1 < NUM2 Then MYM = " EL NUMERO 1 ES MENOR QUE EL NUMERO 2 " End If End If End If If NUM1 Mod 2 = 0 Then POI = " EL NUMERO 1 ES PAR " Else POI = "EL NUMERO 1 ES IMPAR " If NUM2 Mod 2 = 0 Then POI = " EL NUMERO 2 ES PAR " Else POI = "EL NUMERO 2 ES IMPAR " End If End If

REM ASIGNAR RTA A LOS OBJETOS DE SALIDA [Link] = MYM [Link] = POI End If End If End Sub Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link]() End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (MsgBox(" DESEA SALIR ? ", [Link] + [Link], " ADVERTENCIA ")) = [Link] Then [Link]() End If End Sub End Class

Public Class Form43

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] REM Declarar todas las variables Dim clas As String Dim num As Integer REM Validar objetos de entrada If [Link] = "" Then MsgBox("digite numero") [Link]()

'REM Asignar los valores a los objetos de entrada num = [Link] REM Proceso If num = 0 Then clas = "neutro" Else If num > 0 Then clas = "positivo" Else clas = "negativo" REM Asignar respuesta a objeto de salida [Link] = clas End If End If End If End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'Para salir se utiliza la funcion If (MsgBox("Esta seguro que desea salir?", [Link], "Advertencia")) = [Link] Then MsgBox("Gracias") Close() End If End Sub End Class Public Class Form44 REM DECLARAR TODAS LAS VARIABLES Dim NEM As Integer, CLASIFICAR As String Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] REM VALIDAR LOS OBJETOS DE ENTRADA If [Link] = "" Then MsgBox(" FAVOR DIGITE EL NUMERO DE EMPLEADOS ") [Link]() Else REM ASIGNAR VALORES A LOS OBJETOS DE ENTRADA NEM = [Link]

REM PROCESO If NEM < 20 Then CLASIFICAR = "EMPRESA PEQUEA" Else If NEM >= 20 And NEM <= 100 Then CLASIFICAR = "EMPRESA MEDIANA" Else If NEM > 100 Then CLASIFICAR = "EMPRESA GRANDE" Else End If End If End If REM ASIGNAR RESPUESTA A LOS OBJETOS DE SALIDA [Link] = CLASIFICAR End If End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link] = "" [Link] = "" [Link]() End Sub End Class

Public Class Form45 Dim salario%, clasificar$ Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] REM VALIDAR LOS OBJETOS DE ENTRADA If [Link] = "" Then MsgBox(" FAVOR DIGITE EL SALARIO DEL EMPLEADO ") [Link]() Else REM ASIGNAR VALORES A LOS OBJETOS DE ENTRADA salario = [Link] REM PROCESO If salario < 500000 Then clasificar = "SALARIO MINIMO" Else If salario >= 500000 And salario <= 2000000 Then clasificar = "SALARIO ACEPTABLE PASA" Else If salario > 2000000 Then clasificar = "SALARIO MUY BUENO EXCELENT" Else End If End If End If End If

REM ASIGNAR RESPUESTA A LOS OBJETOS DE SALIDA [Link] = clasificar End Sub Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link] = "" [Link] = "" [Link]() End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (MsgBox(" DESEA SALIR ? ", [Link] + [Link], " ADVERTENCIA ")) = [Link] Then [Link]() End If End Sub End Class

Public Class Form48 Dim a, b, c, x1, x2 As Double Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link] = "" [Link] = "" [Link] = "" [Link]() End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] REM VALIDAR LOS OBJETOS DE ENTRADA If [Link] = "" Then MsgBox(" FAVOR DIGITE el num 1 ") [Link]() Else If [Link] = "" Then MsgBox(" FAVOR DIGITE el num 2 ") [Link]() Else If [Link] = "" Then MsgBox(" FAVOR DIGITE el num 3 ") [Link]() Else

REM a = b = c =

ASIGNAR VALORES A LOS OBJETOS DE ENTRADA [Link] [Link] [Link]

REM PROCESO x1 = (-b + (((b ^ 2) - (4 * a * c)) ^ (1 / 2))) / (2 * a)

x2 = (-b - (((b ^ 2) - (4 * a * c)) ^ (1 / 2))) / (2 * a) End If End If End If

REM ASIGNAR RESPUESTA A LOS OBJETOS DE SALIDA [Link] = x1 [Link] = x2 End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (MsgBox(" DESEA SALIR ? ", [Link] + [Link], " ADVERTENCIA ")) = [Link] Then [Link]() End If End Sub End Class Public Class Form49 Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'declarar variables Dim num As Integer Dim cubo As Integer

'validar la caja de texto If [Link] = "" Then MsgBox("ingrese una cantidad") [Link]() Else 'asignarle valor a las variables num = [Link]

'proceso de analisis cubo = num * num * num

'asignar la salida al objeto

[Link] = cubo

End If End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link] = "" [Link] = "" [Link]() End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (MsgBox("Esta seguro que desea salir", [Link], "ADVERTENCIA")) = [Link] Then Close()

End If End Sub End Class

Public Class Conversion_de_grados__C_a__K Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'Definir variables Dim cent%, kel%

'Validacion If [Link] = "" Then MsgBox("Favor digite un numero") [Link]() Else 'Asignar los valores a la variables cent = [Link]

'calcular

kel = cent + 273.15

' Asignar las OS las rutas [Link] = kel End If End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'Limpiar [Link] = "" [Link] = "" [Link]() End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'Para salir se utiliza la funcion If (MsgBox("Esta seguro que desea salir?", [Link], "Advertencia")) = [Link] Then MsgBox("Gracias") Close() Else [Link]() End If End Sub End Class

Public Class Form53 Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'declarar todas las variables Dim vr1#, vr2#, x# 'validar los objetos de entrada If [Link] = "" Then MsgBox("favor digite numero 1") [Link]()

Else If [Link] = "" Then MsgBox("favor digite numero 2") [Link]() 'asignar los valores a las variables de entrada vr1 = [Link] vr2 = [Link] 'proceso x = x = vr1 vr1 = vr2 vr2 = x 'asiganar la respuesta de salida [Link] = x End If End If End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'Para salir se utiliza la funcion If (MsgBox("Esta seguro que desea salir?", [Link], "Advertencia")) = [Link] Then MsgBox("Gracias") Close() End If End Sub End Class Public Class Form56 REM DECLARAR TODAS LAS VARIABLES Dim VALINICIAL, VALFINAL, NUMERO As Double, INTERVALO As String Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] REM VALIDAR LOS OBJETOS DE ENTRADA If [Link] = "" Then MsgBox(" FAVOR DIGITE EL LIMITE INICIAL ") [Link]() Else If [Link] = "" Then MsgBox(" FAVOR DIGITE EL LIMITE FINAL ") [Link]() Else If [Link] = "" Then MsgBox(" FAVOR DIGITE EL NUMERO ") [Link]() Else End If

End If REM ASIGNAR VALORES A LOS OBJETOS DE ENTRADA VALINICIAL = [Link] VALFINAL = [Link] NUMERO = [Link] If VALINICIAL > VALFINAL Then MsgBox(" FAVOR DIGITE UN NUMERO QUE SEA MENOR QUE EL LIMITE SUPERIOR ") [Link]() [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link]() End If REM PROCESO If NUMERO >= VALINICIAL And NUMERO <= VALFINAL Then INTERVALO = " SI ESTA DENTRO DEL INTERVALO " Else INTERVALO = " NO ESTA DENTRO DEL INTERVALO " End If REM DAR RESPUESTA A LOS OBJETOS DE SALIDA [Link] = INTERVALO End If End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link]() End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (MsgBox(" DESEA SALIR DE LA APLICACION? ", [Link] + [Link], " ADVERTENCIA ")) = [Link] Then [Link]() End If End Sub End Class Public Class Form58 Private Sub Calcular_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'REM Declarar todas las variables

Dim horastra, valor, sueldo As Integer 'REM Validar a los objetos de entrada If [Link] = "" Then MsgBox("digite las horas trabajadas ") [Link]() Else If [Link] = "" Then MsgBox("digite el valor de las horas") [Link]() Else End If 'REM Asignar los valores a los objetos de entrada horastra = [Link] valor = [Link] 'REM Proceso sueldo = horastra * valor 'Asignar la respuesta al objeto de salida [Link] = sueldo End If End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'Para salir se utiliza la funcion If (MsgBox("Esta seguro que desea salir?", [Link], "Advertencia")) = [Link] Then MsgBox("Gracias") Close() End If End Sub End Class Public Class Form59 Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'declarar todas las variables Dim metros#, pulgadas#, yardas#, centimetros#, pies# 'validar los objetos de entrada If [Link] = "" Then MsgBox("favor digite los metros") [Link]() 'asignar los valores a las variables de entrada metros = [Link] 'proceso

centimetros = metros * 100 pulgadas = centimetros / 2.5 pies = pulgadas / 12 yardas = pies / 3 'asiganar la respuesta de salida [Link] = centimetros [Link] = pulgadas [Link] = pies [Link] = yardas End If End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'Para salir se utiliza la funcion If (MsgBox("Esta seguro que desea salir?", [Link], "Advertencia")) = [Link] Then MsgBox("Gracias") Close() End If End Sub End Class Public Class Calcula_la_cantidad_de_sutancias_diarias_contaminantes Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] REM Declarar todas las variables Dim cont, tim, caudal, carga As Integer

REM Validar objetos de entrada cont = [Link] tim = [Link] caudal = [Link] REM Proceso carga = caudal * cont * 0.0864 + (tim / 24) REM Asignar respuesta a objeto de salida [Link] = carga End Sub

Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'Para salir se utiliza la funcion If (MsgBox("Esta seguro que desea salir?", [Link], "Advertencia")) = [Link] Then MsgBox("Gracias") Close() End If

End Sub

End Class Public Class Form63 REM DECLARAR TODAS LAS VARIABLES Dim UNIDADES, VALORU As Double, CONTADO, CREDITO, PAGO As Double Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link]() End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] REM VALIDAR LOS OBJETOS DE ENTRADA If [Link] = "" Then MsgBox(" FAVOR DIGITE EL NUMERO DE UNIDADES ") [Link]() Else If [Link] = "" Then MsgBox(" FAVOR DIGITE EL PRECIO POR UNIDAD ") [Link]() Else REM ASIGNAR VALORES A LOS OBJETOS DE ENTRADA UNIDADES = [Link] VALORU = [Link] REM PROCESO PAGO = VALORU * UNIDADES If PAGO = CONTADO Then CONTADO = (UNIDADES * VALORU) * 0.1 Else CREDITO = UNIDADES * VALORU End If REM ASIGNAR RTA A LOS OBJETOS DE SALIDA [Link] = CONTADO [Link] = CREDITO End If End If End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (MsgBox(" DESEA SALIR ? ", [Link] + [Link], " ADVERTENCIA ")) = [Link] Then [Link]() End If End Sub

End Class Public Class Form66 Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] REM declarar todas las variables Dim ndias As Integer Dim clasificar As String 'Proceso If ndias > 5 And ndias < 4 Then clasificar = "advertencia" Else If [Link] > 8000 Then clasificar = "advertencia" Else If [Link] < 5000 Then clasificar = "estudiante preferencial" Else End If End If End If

REM asignar respuesta a objeto de salida [Link] = clasificar End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'Limpiar [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link]() End Sub Private Sub Form66_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]("1") [Link]("2") [Link]("3") [Link]("4") [Link]("300") [Link]("400") [Link]("500") [Link]("200") End Sub End Class

Public Class Calcula_el_valor_a_pagar_si_la_compra_es_mayor_a_500000 Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] REM DECLARAR TODAS LAS VARIABLES Dim VALOR As Double, VALDES As Double

REM VALIDAR LOS OBJETOS DE ENTRADA If [Link] = "" Then MsgBox(" FAVOR DIGITE EL VALOR DE LA COMPRA ") [Link]() Else REM ASIGNAR VALORES A LOS OBJETOS DE ENTRADA VALOR = [Link] REM PROCESO If VALOR >= 50000 Then VALDES = (VALOR * 0.1) Else VALDES = (VALOR * 0.05) End If VALOR = VALOR - VALDES REM ASIGNAR RESPUESTA A LOS OBJETOS DE SALIDA [Link] = VALOR End If End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link] = "" [Link] = "" [Link]() End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (MsgBox(" DESEA SALIR ? ", [Link] + [Link], " ADVERTENCIA ")) = [Link] Then [Link]() End If End Sub

End Class Public Class Form18 Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] Dim a, b, n As Integer n = 0 [Link]() a = InputBox("digite la poblacin de la ciudad a")

b = InputBox("digite la poblacin de la ciudad b") While a < b a = a * 1.7 [Link](" en el ao " & n) End While End Sub

End Class Public Class Contador_de_n_veces Dim v%(), tam%, elemento%, contador% Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] REM pedir el tamao del vector tam = InputBox("digite el tamao del vector") REM REDIMENSIONAR EL VETOR ReDim v(tam) REM llenado del vector For i = 0 To tam - 1 v(i) = InputBox("digite los elementos del vector") Next elemento = InputBox("digite el elemento a buscar") For i = 0 To tam - 1 If v(i) = elemento Then contador = contador + 1 End If Next [Link] = contador End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] For i = 0 To tam - 1 [Link](v(i)) Next End Sub End Class

Public Class Form21 Dim v%(), tam%, poc%, mayor%, menor%, poc2%, poc3% Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] REM pedir el tamao del vector tam = InputBox("digite el tamao del vector") REM redimencionar el vector ReDim v(tam) REM pedir el llenado del vector For i = 0 To tam - 1 v(i) = InputBox("digite el elemento del vector") Next End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

For i = 0 To tam - 1 [Link](v(i)) Next End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] mayor = v(0) For i = 0 To tam - 1 If v(i) > mayor Then mayor = v(i) poc = i + 1 End If Next [Link] = mayor [Link] = poc End Sub Private Sub Button4_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] menor = v(0) For i = 0 To tam - 1 If v(i) < menor Then menor = v(i) poc2 = i + 1 End If Next [Link] = menor [Link] = poc2 End Sub Private Sub Button5_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" End Sub Private Sub Button6_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'ordenamiento del vector [Link](v) For i = 1 To tam [Link](v(i)) Next End Sub Private Sub Button7_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] For b = 0 To tam - 1 For a = 0 To tam - 1 If v(a) > v(a + 1) Then tam = v(a + 1) v(a + 1) = v(a) v(a) = tam End If

Next Next For i = 0 To tam - 1 [Link](v(i)) Next End Sub Private Sub Button8_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] Dim int% = v(1) For i = 0 To tam - 1 If v(i) <> int Then

End If [Link] = poc3 Next End Sub End Class

Public Class Form22 Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] Dim suma, c, i As Integer For i = 1 To 10 [Link](i) If (i Mod 1 = 0) Then i = (i ^ 2) c = c + 1 suma = suma + i

[Link](i) End If Next

[Link] = suma End Sub End Class Public Class Form47 Dim v(1) As Integer, tam% Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] tam = InputBox("digite del vector") ReDim v(tam) For i = 0 To tam - 1 If i Mod 2 Then v(i) = 1

Else v(i) = 0 End If Next End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() For i = 0 To tam - 1 [Link](v(i)) Next End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (MsgBox("desea salir ?", [Link] + [Link], "t lo advierto")) = [Link] Then [Link]() End If End Sub End Class Public Class Form50 Dim v1(1) As Integer, v2(1) As Integer, x As Integer, y(1) As Integer, tam As Integer Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] tam = InputBox(" digite el tamao del vector") ReDim v1(tam) For i = 0 To tam - 1 v1(i) = InputBox("digite el elemento " & i + 1 & " del vector") Next End Sub Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] x = InputBox("digite la pocicion que deseas eliminar") ReDim v2(tam - 1) For i = 0 To tam - 1 If i >= x - 1 Then v2(i) = v1(i + 1) Else v2(i) = v1(i) End If Next End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]()

For i = 0 To tam - 1 [Link](v1(i)) Next End Sub Private Sub Button4_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (MsgBox("desea salir ?", [Link] + [Link], "t lo advierto")) = [Link] Then [Link]() End If End Sub

End Class Public Class Form51 Dim v(1) As Integer, tam% Private Sub Button2_Click_1(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() For i = 0 To tam - 1 [Link](v(i)) Next End Sub Private Sub Button1_Click_1(ByVal sender As [Link], ByVal e As [Link]) tam = InputBox("digite del tamao") ReDim v(tam) For i = 0 To tam - 1 v(i) = Int(Rnd() * 100) Next End Sub Private Sub Button3_Click_1(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (MsgBox("desea salir ?", [Link] + [Link], "t lo advierto")) = [Link] Then

[Link]() End If End Sub End Class

Public Class Form54 Dim v1(1) As Integer, v2(1) As Integer, x(1) As Integer, tam As Integer Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] tam = InputBox(" digite el tamao del vector") ReDim v1(tam) ReDim v2(tam) ReDim x(tam) For i = 0 To tam - 1 v1(i) = InputBox("digite el elemento " & i & " del vector 1")

Next For i = 0 To tam - 1 v2(i) = InputBox("digite el elemento " & i & " del vector 2") Next End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] For i = 0 To tam - 1 x(i) = v1(i) Next For i = 0 To tam - 1 v1(i) = v2(i) Next For i = 0 To tam - 1 v2(i) = x(i) Next End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (MsgBox("desea salir ?", [Link] + [Link], "t lo advierto")) = [Link] Then

[Link]() End If End Sub

End Class

Public Class Form55 Dim tam As Integer, v1(1) As Integer, v2(1) As Integer, m As Integer Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] tam = InputBox(" digite el tamao del vector") ReDim v1(tam), v2(tam) For i = 0 To tam - 1 v1(i) = InputBox("digite el elemento " & i + 1 & " del vector") Next [Link]() For i = 0 To tam - 1 [Link](v1(i)) Next End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] For i = 0 To tam - 1 m = (tam - 1) - i v2(i) = v1(m) Next [Link]() For i = 0 To tam - 1 [Link](v2(i)) Next

End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (MsgBox("desea salir ?", [Link] + [Link], "t lo advierto")) = [Link] Then

[Link]() End If End Sub End Class Public Class Form57 Dim num%, rta%, cad$ Private Sub tabla() [Link]() For i = 1 To 10 rta = num * i cad = num & "x" & i & "=" & rta [Link](cad) Next End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As [Link], ByVal e As [Link]) Select Case [Link] Case 0 num = 1 tabla() Case 1 num = 2 tabla() Case 2 num = 3 Call tabla() Case 3 num = 4 Call tabla() Case 4 num = 5 Call tabla() Case 5 num = 6 Call tabla() Case 6 num = 7 Call tabla() Case 7 num = 8 Call tabla() Case 8

num = 9 Call tabla() Case 9 num = 10 Call tabla() End Select End Sub Private Sub ListBox2_SelectedIndexChanged(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] For i = 1 To 10 [Link](i) Next End Sub Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (MsgBox("desea salir ?", [Link] + [Link], "t lo advierto")) = [Link] Then

[Link]() End If End Sub End Class Public Class Form60 Dim serie As String Dim suma, c As Integer Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] serie = InputBox("digite la serie de numeros") While (serie <> "*") If serie <> "*" Then suma = suma + serie c = c + 1 [Link](serie) End If End While [Link] = suma End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() [Link] = "" End Sub End Class Public Class Form61 Dim pinic, pfin, clasificar As Integer Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

For i = 0 To 20 pinic = InputBox("digite punto inicial") [Link](pinic) pfin = InputBox("digite punto final") [Link](pfin)

If pinic = 0 And pfin = 0 Then End If Next End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() [Link]() End Sub

End Class Public Class Form62 Dim divd, divis, valor, cociente, residuo As Integer Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] 'proceso For i = 0 To 10 Dim divd = InputBox("digite dividendo") [Link](divd) Dim divis = InputBox("digite divisor") [Link](divis) cociente = divd - divis [Link](cociente) residuo = cociente - residuo [Link](residuo) Next End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() [Link]() End Sub

End Class

Public Class Form46 Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] Dim a$ If [Link] = "" Then MsgBox("digite clave") [Link]() Else a = [Link] If a = "123456" Then [Link]() Else MsgBox("clave incorrecta") [Link] = "" [Link]() End If End If End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (MsgBox("desea salir ?", [Link] + [Link], "t lo advierto")) = [Link] Then [Link]() End If End Sub End Class

Public Class Form8 Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] Dim myy, mn, i, n, pmy, pmn, a() As Integer n = InputBox("por favor digite el numero de elementos") ReDim a(0 To n - 1) For i = 0 To n - 1 a(i) = InputBox(" digite el elemento a (" & i & " )") Next myy = a(0) mn = a(0) pmy = 0 pmn = 0 For i = 1 To n - 1 If a(i) < myy Then myy = a(i) pmy = i ElseIf a(i) < mn Then mn = a(i) pmn = i End If

Next MsgBox("el mayor es " & myy & " Y esta en la posicion " & pmy & "el menor es " & mn & "y esta en la posicion " & pmn) End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] Dim a(), b(), c(), i, j, k, m, n, temp As Integer m = InputBox("Digite el nmero de estudiantes que perdieron programacin") n = InputBox("Digite el nmero de estudiantes que perdieron calculo") ReDim a(0 To m - 1) ReDim b(0 To n - 1) ReDim c(0 To n - 1) 'resultado de a y b For i = 0 To m - 1 a(i) = InputBox(" lea el codigo del estudiante a (" & i & " ) programacin") Next For j = 0 To n - 1 b(j) = InputBox(" lea el codigo del estudiante b (" & i & " ) que perdieron calculo") Next k = 0 For i = 0 To m - 1 For j = 0 To n - 1 If a(i) = b(j) Then If a(i) = b(i) Then c(k) = a(i) k = k + 1 End If End If Next Next For i = 0 To m - 2 For j = i + 1 To m - 1 If a(i) > a(i) Then temp = a(j) a(j) = temp End If Next Next 'For i = 0 To k - 1 'MsgBox(" Los estudiantes que perdieron las dos materias son c(i)) ' Next [Link] = m [Link] = 1 For i = 0 To [Link] - 1 For j = 0 To [Link] - 1 prog.set_TextMatrix(i, j, a(i)) Next Next

el codigo" &

For i = 0 To n - 2 'sirve For j = i + 1 To n - 1 'para If b(i) > b(i) Then 'ordenamiento temp = b(j) 'o burbuja b(j) = temp End If Next Next [Link] = m [Link] = 1 For i = 0 To [Link] - 1 For j = 0 To [Link] - 1 prog.set_TextMatrix(i, j, b(i)) Next Next For i = 0 To m - 2 For j = i + 1 To m - 1 If c(i) > c(i) Then temp = c(j) c(j) = temp End If Next Next [Link] = m [Link] = 1 For i = 0 To [Link] - 1 For j = 0 To [Link] - 1 prog.set_TextMatrix(i, j, c(i)) Next Next

End Sub