Visual basic = langage de programmation permettant de concevoir rapidement des applications sous Windows.
Opération de lecture
Inputbox (invite[,titre][,défaut])
Invite : message de la boîte
Titre : message dans la barre de titre
Défaut : est la valeur par défaut
Opération d’écriture
Msgbox (invite[,type bouton][,titre])

vbOKonly : OK | vbAbortRetryIgnore : Abandon, répéter et ignorer | vbOKCancel : OK et annuler | vbYesNoCancel : oui, non et annuler | vbYexNo : oui et non | vbCritical : Icône STOP | vbRetryCancel : répéter et annuler | vbQuestion : icône ? |

Procédure = sous-programme qui permet de décomposer une tâche de programmation complexe en une suite de tâche plus simple.
IF : si
ELSE : sinon
ELSEIF : sinon si

Sub ech2v()
Dim aux As Integer
Dim a As Integer
Dim b As Integer a = InputBox("entrez la valeur de a:", "saisie", 0) b = InputBox("entrez la valeur de b:", "saisie", 0) aux = a a = b b = aux msg = MsgBox("lanouvelle valeur de a est : " & a) msg = MsgBox("la nouvelle valeur de b est : " & b)
End Sub

Sub ech3v()
Dim aux As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer a = InputBox("entrez la valeur de a:", "saisie", 0) b = InputBox("entrez la valeur de b:", "saisie", 0) c = InputBox("entrez la valeur de c:", "saisie", 0) aux = a a = b b = c c = aux msg = MsgBox("lanouvelle valeur de a est : " & a) msg = MsgBox("la nouvelle valeur de b est : " & b) msg = MsgBox("la nouvelle valeur de c est : " & c)
End Sub

Sub max2v()
Dim aux As Integer
Dim a As Integer
Dim b As Integer a = InputBox("entrez la valeur de a:", "saisie", 0) b = InputBox("entrez la valeur de b:", "saisie", 0)
If a > b Then max = a
Else
max = b
End If msg = MsgBox("le maximum est :" & max)
End Sub

Sub max3v()
Dim aux As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer a = InputBox("entrez la valeur de a:", "saisie", 0) b = InputBox("entrez la valeur de b:",