The code of love

Sub amor ()
Dim sentimento as variant
Dim razao as boolean
Sentimento = inputbox “quanto vale o seu amor? ”
Razao = inputbox “o que é liberdade para você? ”
If sentimento > 0 then
Msgbox “you have a problem”
Else
Razao
End if
End sub

Anúncios

Publicado em 19 de agosto de 2013, em Sem categoria e marcado como , , . Adicione o link aos favoritos. Deixe um comentário.

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: