Engenharia de software

Seu primeiro programa .vbs (Engenharia de software)

Falso Virus

Isso serve pra vc da um susto em seus amigos

MSGBOX "CARREGANDO"
MSGBOX "AINDA ESTA CARREGANDO"
MSGBOX "CALMA"
MSGBOX "TA COM PRESSA?"
MSGBOX "ENTAO ESPERE MAIS UM POUCO"
MSGBOX "QUASE PRONTO"
MSGBOX "MAIS UM POUQINHO"
MSGBOX "CARREGANDO"
MSGBOX "AINDA ESTA CARREGANDO"
MSGBOX "CALMA"
MSGBOX "TA COM PRESSA?"
MSGBOX "ENTAO ESPERE MAIS UM POUCO"
MSGBOX "QUASE PRONTO"
MSGBOX "MAIS UM POUQINHO"
MSGBOX "UM TIQUINHO DE NDA"
MSGBOX "VIRUS INSTALADO COM SUCESSO EM SEU COMPUTADOR"
MSGBOX "KER FAZER ALGUMA COISA...?"
MSGBOX "LIGA PRA POLICIA TALEZ RESOLVA......190!!"
MSGBOX "MELHOR PRA UMA AMBULANCIA QUE ESSA HORA VOCE JA DEVE TA PASSANDO MAL....."
MSGBOX "KKKKKKKKKKKKKKKKKKKKKKKKKKKKKK"
MSGBOX "SEU PC JA ERA......."
MSGBOX "VOU FORMATAR ELE"
MSGBOX " "
MSGBOX "FORMAT HD"
MSGBOX "FORMAT HD"
MSGBOX "FORMAT HD"
MSGBOX " SEU PC VAI EXPLODIR"
MSGBOX "EM....."
MSGBOX "10.."
MSGBOX "9"
MSGBOX "8"
MSGBOX "7"
MSGBOX "6"
MSGBOX "5"
MSGBOX "4"
MSGBOX "3"
MSGBOX "2"
MSGBOX "1"
MSGBOX " "
MSGBOX "BUUM"

salvar como .vbs

_______________*****************___________________***************_____

Calculadora Basica

Dim a,b,c,d,e,f,g,h,i,j,k,l
a=msgbox("Você quer somar?",vbYesNo)
if a =vbYes then
b=inputbox ("Digite o Primeiro Valor")
c=inputbox ("Digite o Segundo Valor")
msgbox b*1+c
else
d=msgbox("Você quer subtrair?",vbyesNo)
if d =vbYes then
e=inputbox ("Digite o Primeiro Valor")
f=inputbox ("Digite o Segundo Valor")
msgbox e-f
else
g=msgbox("Você quer multiplicar?",vbYesNo)
if g =vbYes then
h=inputbox ("Digite o Primeiro Valor")
i=inputbox("Digite o Segundo Valor")
msgbox h*i
else
j=msgbox("Você quer dividir?",vbYesNo)
if j=vbYes then
k=inputbox ("Digite o Primeiro Valor")
l=inputbox("Digite o Segundo Valor")
msgbox k/l
end if
end if
end if
end if

espero que gostem logo postarei mais.