ficha de trabalho numero 10 exercicio 3

Private Sub Command1_Click()
Dim aleatorio As Integer
Randomize
Picture1.Cls
num = Val(InputBox("Introduza um numero:", "Introdução de dados"))
aleatorio = Int(Rnd() * 5) + 1
If aleatorio = num Then
Picture1.Print "Ganhou"
ElseIf aleatorio > num Then
Picture1.Print "O numero que introduzio é maior."
ElseIf aleatorio < num Then
Picture1.Print "O numero que introduzio é menor."
End If
End Sub

Private Sub Command2_Click()
If MsgBox("Quer mesmo sair?", vbOKCancel + vbQuestion) Then
End
End If
End Sub