Ejercicios tipo examén Visual Basic 6.0
Buenos días a continuación les colocaré dos ejercicios parte de desarrollo que se podría utilizar en cualquier evaluación de Visual Basic 6.0.
1.- Realiza un programa en Visualbasic, teniendo como datos de entrada los 2 números que tenga cómo resultado lo siguiente:
A) Suma de 3 números. (Commandbutton = Sumar) (1
pto)
B) Determine cual es el menor de los 3 números
y exprésalo en una respuesta (Label) (Commandbutton = Numero menor) (2 Ptos)
Private
Sub cmdcalcular_Click0
If Val (txt1.Text)<Val (txt2.Text) Then
lblnumeromenor.caption = txt1.text
End
If
If Val
(txt2.text)<Val (txt3.text) then
lblnumeromenor.caption = txt2.text
End
if
If Val (txt3.text)<Val (txt1.text) then
lblnumeromenor.caption = txt3.text
End if
End Sub
Nota: También puedes utilizar If Anidados (Recomendado)
C) Calcula el 50% del número menor y exprésalo
en un Label. Multiplica por 0.5 (Commandbutton = 50% menor) (3 Ptos)
Private Sub cmdcalcular_Click0
If Val (txt1.Text)<Val (txt2.Text) Then
lblnumeromenor.caption = txt1.text * 0.5
End If
If Val (txt2.text)<Val (txt3.text) then
lblnumeromenor.caption = txt2.text * 0.5
End if
If Val (txt3.text)<Val (txt1.text) then
lblnumeromenor.caption = txt3.text * 0.5
End if
End Sub
D) Colocar los nombres y caption correctos de
los objetos. (0,5 Ptos)
E) Colocar una imagen de Fondo con el tamaño
del Formulario, ejecutar maximizado. (0,5 Ptos)
F) Botones “Salir”, “Borrar totales” y “Borrar
Números de entrada”. (0,5 Ptos)
G) Cambiar la fuente y Fondo de los
Commandbutton. (0,5 Ptos)
H) Cambiar el color de los Label Fuente Tahoma
16 ptos cursiva estilo de fondo. Los resultados en Comic Sans Ms 18 ptos. (0,5
Ptos)
I)
Cambiar el color de los Textbox con Fuente Verdana 16 ptos negrita. (0,5
Ptos)
J) Organizar
y administrar el diseño del Formulario de acuerdo a la calidad visual. Ejm:
centrar los objetos etc…
2.- Realiza un programa en Visualbasic, teniendo como datos de entrada los 2 números que tenga cómo resultado lo siguiente:
A) Suma de 2 números (2 Ptos)
B) Determine cuál es el mayor de los 2 números
y exprésalo en una respuesta utilizando un Label. (3 Ptos)
Private Sub cmdcalcular_Click0
If Val(txtvalor1.Text)>Val(txtvalor2.Text) Then
lblnumeromayor.caption= txtvalor1.text
Else:
lblnumeromayor.caption= txtvalor2.text
End If
End Sub
C) Colocar los nombres y caption correctos de
los objetos. (0,5 Ptos)
D) Colocar una imagen de Fondo con el tamaño
del Formulario, dejar sólo el Botón de Cerrar y ejecutar maximizado. (0,5 Ptos)
E) Botones “Salir”, “Borrar Información” y “Borrar
Números”. (2 Ptos)
F) Cambiar la fuente y Fondo de los
Commandbutton. (0,5 Ptos)
G) Cambiar el color de los Label Fuente Tahoma
16 ptos cursiva estilo de fondo. Los resultados en Comic Sans Ms 18 ptos. (0,5
Ptos)
H) Cambiar el color de los Textbox con Fuente
Verdana 16 ptos negrita. (0,5 Ptos)
I) Organizar y
administrar el diseño del Formulario de acuerdo a la calidad visual. Ejm:
centrar los objetos otros… (0,5 Ptos)
No hay comentarios:
Publicar un comentario