Calculer 1+1/2+1/4+1/8+….
Sub itération()
Valeur=1
For num=1 to 10000
Valeur=Valeur+0.5^num
Sheets("Feuil1").Cells(1,1)=Valeur
Next num
End Sub
Le calcul dans une feuille Excel (sans macro) nécessiterait 10 000 cellules !
Ou dans Word :
Sub itération()
ThisDocument.Label21.Caption = 0
valeur = 1
For num = 1 To 10
valeur = valeur + 0.5 ^ num
ThisDocument.Label21.Caption = valeur
MsgBox ("num = " & num & Chr(13) & Chr(13) & "valeur = " & valeur)
Next num
End Sub
De la même façon, on aurait pu calculer pi par :
pi = 4 - 4/3 + 4/5 - 4/7 + 4/9 - ....