Essays.club - Ensayos gratis, notas de cursos, notas de libros, tareas, monografías y trabajos de investigación
Buscar

APUNTES DE FUNDAMENTOS DE PROGRAMACIÓN.

Enviado por   •  18 de Enero de 2018  •  1.777 Palabras (8 Páginas)  •  397 Visitas

Página 1 de 8

...

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.

Materia

Cal 1

Cal 2

Cal 3

Computación

67

89

78

Computación el resultado es:78

[pic 3]

Propiedades:

Objeto

Propiedad

Valor

Form1

Nombre

FrmCal

Caption

Promedios

Label1

Nombre

LblM

Alignment

1-Right Justify

Caption

Materia

Label2

Nombre

LblC1

Alignment

1-Right Justify

Caption

Calificación 1:

Label3

Nombre

LblC2

Alignment

1-Right Justify

Caption

Calificación 2:

Label4

Nombre

LblC3

Alignment

1-Right Justify

Caption

Calificación 3:

Label5

Nombre

LblL

Alignment

1-Right Justify

Caption

Promedio

Text1

Nombre

TxtM

Text

TabIndex

0

Text2

Nombre

TxtC1

Text

TabIndex

1

Text3

Nombre

TxtC2

Text

TabIndex

2

Text4

Nombre

TxtC3

Text

TabIndex

3

Picture1

Nombre

PicResultado

Command1

Nombre

CmdPromediar

Caption

Promediar

TabIndex

4

Command2

Nombre

CmdSalir

Caption

Salir

TabIndex

5

Código:

Private Sub CmdPromediar_Click ()

Rem declaración de variables

Dim c1 As Integer

Dim

...

Descargar como  txt (16.3 Kb)   pdf (87.8 Kb)   docx (32.2 Kb)  
Leer 7 páginas más »
Disponible sólo en Essays.club