Change de monnaie

Ce programme permet d'entrer une somme en francs suisses, et d'obtenir le résultat en argent étranger.

Pseudo-code

AFFICHE "Entrez la somme en francs suisses : "
ACCEPTE CHF
AFFICHE "Entrez le nom de la monnaie étrangère : "
ACCEPTE NomArgent
AFFICHE "Pour un franc suisse, combien obtenez vous de " NomArgent " ?"
ACCEPTE TauxChange
Resultat = CHF * TauxChange
AFFICHE "Pour " CHF "francs suisses, vous obtenez " Resultat " " NomArgent

Visual Basic

Change de 100 CHF en lires, avec un taux de 300

Sub ChangeMonnaie()
  MsgBox "Pour 100 CHF, vous aurez " & 100 * 300 & " lires"
End Sub

Change en lires, avec un taux de 300

Sub ChangeMonnaieV2()
  Dim CHF As Integer
  CHF = Val(InputBox("Combien de francs suisses changez vous ?"))
  MsgBox "Pour " & CHF & " francs suisses, vous aurez " & CHF * 300 & " lires"
End Sub

Change en lires, valeur variable

Sub ChangeMonnaieV3()
  Dim CHF As Integer
  CHF = Val(InputBox("Combien de francs suisses changez vous ?"))
  ValeurChange = Val(InputBox("Pour 1 CHF, combien obtenez-vous de lires"))
  MsgBox "Pour " & CHF & " francs suisses, vous aurez " & CHF * ValeurChange & " lires"
End Sub

Change en monnaie variable, valeur variable, change variable

Sub ChangeMonnaieV4()
  Dim CHF As Integer
  Dim MonnaieEtrangere As String
  Dim ValeurChange As Currency
  
  CHF = Val(InputBox("Combien de francs suisses changez vous ?"))
  MonnaieEtrangere = InputBox("Quel est le nom de la monnaie étrangère ?")
  ValeurChange = Val(InputBox("Pour 1 CHF, combien obtenez-vous de " & MonnaieEtrangere & " ?"))
  
  MsgBox "Pour " & CHF & " francs suisses, vous aurez " & CHF * ValeurChange & " " & MonnaieEtrangere
End Sub

Exercice : Il faudrait que d'un montant en francs suisses, on aie la correspondance en plusieurs autes monnaies : une ou deux autres, ou même mieux : Un nombre indéterminé de monnaies