1.- Cree un nuevo
proyecto llamado “OPERACIONES”
2.- Le agregue 3 formularios
3.- A form1 cambie nombre y caption a “INICIO” a form2 cambie nombre y caption a “SUMA” a
form3 cambie nombre y caption a “RESTA”
4.- Al formulario “INICIO” le cambie el color de la letra en
la opción Forecolor y en la opción picture elegí una imagen para el fondo del
formulario después agregue 6 comandos y un cuadro de texto
5.-A comand1 le cambie caption a “CLIC AQUÍ” y Font a “curlz
MT tamaño 11” en la ventana de código escribí lo siguiente:
Private sub
comand1_clic()
Print “ “
Print “ “
Print “operaciones básicas”
Print “suma y resta “
End Sub
6.- A comand2 le cambie caption a “LEE ESTO” y Font a “curlz
MT tamaño 11” en la ventana de código escribí lo siguiente:
Private sub comand2_click()
Msgbox “AUI” & vbCrLf & “SOLO ENCONTRARAS” &
vbCrLf & “SUMAS Y RESTAS”, vbCritical,”LEE ESTO”
End sub
7.- A comand3 le cambie caption a “CLIC CUADRO” y Font a
“curlz MT tamaño 11” en la ventana de código escribí lo siguiente:
Private sub comand3_click()
Text1.text=
“BIENVENIDO”
End Sub
8.- A comand4 le cambie caption a “SUMA” y Font a “curlz MT
tamaño 11” en la ventana de código escribí lo siguiente:
Private sub comand4_click()
Suma.show
End Sub
9.- A comand5 le cambie caption a “RESTA” y Font a “curlz MT
tamaño 11” en la ventana de código escribí lo siguiente:
Private sub comand5_click()
RESTA.show
End Sub
10.- A comand6 le cambie caption a “CERRAR” y Font a “curlz
MT tamaño 11” en la ventana de código escribí lo siguiente:
Private sub comand6_click()
End
End Sub
11.- Al formulario “SUMA” le cambie el color de la letra en
la opción Forecolor y en la opción picture elegí una imagen para el fondo del
formulario y después le agregue 6 comandos y un cuadro de texto y en la ventana
de código en el menú desplegable elegí la opción “general y escribí lo
siguiente:
Dim A As
Integer, B As Integer, C As Integer
12.- A
comand1 le cambie caption a “CLIC” y Font a “curlz MT tamaño 11” en la ventana
de código escribí lo siguiente:
Private sub comand1_click()
Print “”
Print “”
Print “SUMA”
Print “”
Print “RESULTADO”
End Sub
13.- A comand2 le cambie caption a “RESULTADO” y Font a
“curlz MT tamaño 11” en la ventana de código escribí lo siguiente:
Private sub
comand2_click()
A=5
B=5
C= A+B
Text= C
End Sub
14.- A comand3 le cambie caption a “LEE ESTO” y Font a
“curlz MT tamaño 11” en la ventana de código escribí lo siguiente:
Private sub comand3_click()
Msgbox “NO TE” & vbCrLf & “DISTRAIGAS” ,
vbExclamation, “LEE ESTO”
End Sub
15.- A comand4 le cambie caption a “RESTA” y Font a “curlz
MT tamaño 11” en la ventana de código escribí lo siguiente:
Private sub comand4_click()
RESTA.show
End Sub
16.- A comand5 le cambie caption a “INICIO” y Font a “curlz
MT tamaño 11” en la ventana de código escribí lo siguiente:
Private sub comand5_click()
INICIO.show
End sub
17.- A comand6 le cambie caption a “CERRAR” y Font a “curlz
MT tamaño 11” en la ventana de código escribí lo siguiente:
Private sub comand6_click()
End
End Sub
18.- Al formulario “RESTA” le cambie el color de la letra en
la opción Forecolor y en la opción picture elegí una imagen para el fondo del
formulario y después le agregue 6 comandos
y un cuadro de texto y en la ventana de código en el menú desplegable elegí la opción
“general” y escribí lo siguiente:
Dim A As
Integer, B As Integer, C As Integer
19.- A comand1 le cambie caption a “CLIC AQUI” y Font a
“curlz MT tamaño 11” en la ventana de código escribí lo siguiente:
Private sub comand1_click()
Print “”
Print “”
Print
“RESTA”
Print “5 –
3”
Print
”RESULTADO”
End Sub
20.- A comand2 le cambie caption a “RESULTADO” y Font a
“curlz MT tamaño 11” en la ventana de código escribí lo siguiente:
Private sub comand2_click()
A=5
B=3
C= A-B
Text1= C
End Sub
21.- A comand3 le cambie caption a “LEE ESTO” y Font a
“curlz MT tamaño 11” en la ventana de código escribí lo siguiente:
Private sub comand3_click()
Msgbox “SI” & vbCrLf & “ENTENDISTE”, vbQuestion, “LEE
ESTO”
End Sub
22.- A comand4 le cambie caption a “SUMA” y Font a “curlz MT
tamaño 11” en la ventana de código escribí lo siguiente:
Private sub comand4_click()
SUMA.show
End Sub
23.- A comand5 le cambie caption a “INICIO” y Font a “curlz
MT tamaño 11” en la ventana de código escribí lo siguiente:
Private sub comand5_click()
INICIO.show
End Sub
24.- A comand6 le cambie caption a “CERRAR” y Font a “curlz
MT tamaño 11” en la ventana de código escribí lo siguiente:
Private sub comand6_click()
End
End sub
25.- Al correr el programa las ventanas aparecen asi:
