Introducción a la Programación

UNIVERSIDAD AUTÓNOMA DE NUEVO LEON

ESCUELA INDUSTRIAL Y PREPARATORIA TÉCNICA

“ÁLVARO OBREGÓN”

Unidad de Aprendizaje:

Introducción a la Programación

Actividad:

Programas 35,36,37 y 38

Nombre del Maestro:

Hector F. Berrones

Nombre del Alumno:

Mario Alan Yerena Nuncio

Matricula:

1723746

Grupo: Aula:

2L3 132

Monterrey, Nuevo Leon , 13 de Mayo del 2015

Programa 35:

Desarrollar una tabla de multiplicar con operaciones del 11 al 20

Interfaz :

PROPIEDADES:

Form 1 Nombre:

Texto: Form 1

Programa 35

Label Nombre:

Texto: Lbltabla

Tabla deseada:

TextBox 1 Nombre:

Texto: txtTabla

TextBox 2 Nombre:

Texto: txtResultado

Boton 1 Nombre:

Texto: btnCalcular

CALCULAR

Boton 2 Nombre:

Texto: btnLimpiar

LIMPIAR

CODIGO:

Public Class Form1

Dim tabla As Integer

Dim multiplicacion As Integer

Private Sub btnCalcular_Click(sender As Object, e As EventArgs) Handles btnCalcular.Click

Dim i = 0

tabla = Val(txtTabla.Text)

For i = 11 To 20

multiplicacion = i * tabla

txtResultado.Text = txtResultado.Text & tabla & "*" & i & "=" & multiplicacion & vbCrLf

Next i

End Sub

Private Sub btnLimpiar_Click(sender As Object, e As EventArgs) Handles btnLimpiar.Click

txtResultado.Text = ""

txtTabla.Text = ""

End Sub

End Class

Programa 36

Realizar una seria del 1 al 200 de 3 en 3.

PROPIEDADES:

Form 1 Nombre:

Texto: Form 1

Programa 36

Label Nombre:

Texto: Lbldespliega

Serie del 1 al 200 de 3 en 3

TextBox Nombre:

Texto txtResultado

Boton Nombre:

Texto: btnCalcular

Despliegar Numeros

Codigo:

Public Class Form1

Dim suma As Integer

Dim numero As Integer

Private Sub btnCalcular_Click(sender As Object, e As EventArgs) Handles btnCalcular.Click

Dim i = 0

For i = 1 To 200

numero = numero + 1

suma = numero * 3

txtResultado.Text = txtResultado.Text & i & "-" & suma & vbCrLf

Next i

End Sub

End Class

Programa 37

Realizar un programa para desplegar el cuadrado de los números del 1 al 10

Interfaz:

PROPIEDADES:

From 1 Nombre:

Texto: Form 1

Programa 37

TextBox Nombre:

Texto: txtResultado

Botton 1 Nombre:

Texto: Btncalcular

Calcular

Codigo:

Public Class Form1

Private Sub btnCalcular_Click(sender As Object, e As EventArgs) Handles btnCalcular.Click

Dim num, cuadrado As Integer

Do While num < 10

num = num + 1

cuadrado = num * num

txtResultado.Text = txtResultado.Text

...