APUNTES DE FUNDAMENTOS DE PROGRAMACIÓN.
Enviado por monto2435 • 18 de Enero de 2018 • 1.777 Palabras (8 Páginas) • 470 Visitas
...
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
...