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:

...