PRIMER TRIMESTRE 

MURO TRABAJOS OCTAVO

Abrir en siguiente enlace 

Búsqueda avanzada con Google.

TRABAJO EN EQUIPO

RESULTADOS QUIZIZZ 802

RESULTADOS QUIZIZZ 801

SEGUNDO TRIMESTRE

ALGORITMO 

ENCUESTA

PENSAMIENTO COMPUTACIONAL

FICHA 1

FICHA 2. 

FICHA 3.

FICHA 4.

FICHA 6.

EVALUACIÓN

TERCER TRIMESTRE

CANVA 

RESULTADOS:

MÉTODOS ANTICONCEPTIVOS

CAMBIO CLIMÁTICO 

'====== Script o Código completo del Ejemplo (Copiarlo y sustituir en el módulo principal) ==========

Public puntos As Integer

Sub Main()
End Sub

Sub Juego(oShp As Shape)

If (Application.SlideShowWindows(1).View.Sl­ide.SlideNumber = "1") Then puntos = 0

If (Application.SlideShowWindows(1).View.Sl­ide.SlideNumber = "1" And oShp.Name = "Cinco") Then MsgBox "¡Muy bien! " & oShp.TextFrame.TextRange.Text & " es la respuesta correcta.", vbInformation + vbOKOnly puntos = puntos + 1

ElseIf (Application.SlideShowWindows(1).View.Sl­ide.SlideNumber = "2" And oShp.Name = "Cuarenta") Then MsgBox "¡Muy bien! " & oShp.TextFrame.TextRange.Text & " es la respuesta correcta.", vbInformation + vbOKOnly puntos = puntos + 1




'Respuestas incorrectas (las demás opciones)
Else MsgBox "Lamentablemente, " & oShp.TextFrame.TextRange.Text & " no es la respuesta correcta."


End If


ActivePresentation.Slides(3).Shapes("Tot­al").TextFrame.TextRange.Text = puntos

Application.SlideShowWindows(1).View.Nex­t

End Sub

'===== Final del Macro=========