PETITE CALCULETTE SOUS VBSCRIPT

dim n1,n2,fin,tour,result,choix,n5
fin=false
tour=0
do while not fin
if tour=0 then
Msgbox"Bonjour et d'abord bienvenue !",vbinformation,"Bonjour"
end if
if tour=>1 then
msgbox"Rebonjour !!! ",,"Rebonjour"
end if
choix=inputbox("Merci de choisir le type de calcule que vous desirez :   1) Addition     2) soustraction        3) multiplication     4) Quitter","Bonjour :")

'{
  if choix=1 then 
  n1=inputbox("Entrez le premier nombre :","Premier nombre")
  n2=inputbox("Merci d'entrez le deuxieme nombre : "," Deuxieme nombre")
  n1=ccur(n1)
  n2=ccur(n2)
  result=n1+n2
  Msgbox"Le resultat de l'addtion est : "&result
  tour=tour+1
  end if

'}

'{ 
  if choix=2 then 
  n1=inputbox("Entrez le premier nombre :","Premier nombre")
  n2=inputbox("Merci d'entrez le deuxieme nombre : "," Deuxieme nombre")
  n1=ccur(n1)
  n2=ccur(n2)
  result=n1-n2
  Msgbox"Le resultat de la soustraction est : "&result
  tour=tour+1
  end if
'}
  
'{
  if choix=3 then 
  n1=inputbox("Entrez le premier nombre :","Premier nombre")
  n2=inputbox("Merci d'entrez le deuxieme nombre : "," Deuxieme nombre")
  n1=ccur(n1)
  n2=ccur(n2)
  result=n1*n2
  msgbox"Le resultat de la multiplication est : "&result
  tour=tour+1
  end if
'}

'{
 if choix=4 then
  choixmsg=msgbox("Souhaitez vous quittez l'application ??",VByesnocancel,"Souhaitez vous partir ??")                                             
  end if
  if choixmsg=vbyes then
  wscript.quit
  end if

'}

loop

Télécharger le zip