APUNTES DE FUNDAMENTOS DE PROGRAMACIÓN.

FUNDAMENTOS DE PROGRAMACION

Problema 1

Nombre del proyecto: Suma.vbp

Nombre del formulario: FrmSuma.frm

Leer dos números enteros e imprimir el resultado de la suma de dichos números.

Si x=5                y =20                el resultado es: 25

Si x=12                y=12                el resultado es: 24

Si x=10                y =2                es resultado es: 12

[pic 1]

Propiedades:

Código:

Private Sub CmdSuma_Click ()

Rem declaración de variables

Dim x as integer

Dim y as integer

Rem lectura de los números

Rem la función val convierte texto a números

x=Val (TxtX.Text)

y=Val (TxtY.Text)

Rem borrar PicResultado

PicResultado.Cls

Rem establecer foco en TxtX

TxtX.SetFocus

Rem hacer el cálculo

PicResultado.Print  x + y

End sub

Private Sub CmdSalir_Click()

End

End sub

Problema 2

Nombre del proyecto: Trabajo.vbp

Nombre del formulario: FrmTrab.frm

Calcular el trabajo realizado por una fuerza en una distancia determinada.

Imprimir el resultado

Si f = 13

Si d = 8

T = f * d

El resultado es 104

[pic 2]

Propiedades:

Código:

Private Sub CmdCalcular_Click ()

Rem declaración de variables

Dim f As Integer

Dim d As Integer

Dim t As Integer

Rem establecer focos en TxtF

TxtF.SetFocus

Rem borrar PicResultado

PicResultado.Cls

Rem leer fuerza (f) y distancia (d)

f = Val (TxtF.Text)

d = Val (TxtD.Text)

t = f * d

Rem calcular el trabajo

PicResultado.Print t

End Sub

Private Sub CmdSalir_Click ()

End

End Sub

Problema 3

Nombre del proyecto: Calificación.vbp

Nombre del formulario: FrmCal.frm

Leer tres calificaciones entre 0 y 100, y calcular e imprimir el promedio como se indica a continuación.

Promedio de calificaciones.

Computación el resultado es:78

[pic 3]

Propiedades:

...