OPERACION-MENSAJE

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: