On souhaite obtenir la surface d’un
carré de 10 cm. On devra écrire :

Question

On souhaite obtenir la surface d’un
carré de 10 cm. On devra écrire :

Answer

Sub SurfaceCarré(x)

Dim x As
Integer

x = 10

MsgBox
"La surface du carré est de " & côté(x)

End Sub

Public
Function côté(x)

côté
= x * x

End
Function

Answer

Sub SurfaceCarré()

Dim x As
Integer

x = 10

côté(x)
= x*x

MsgBox
"La surface du carré est de " & côté(x)

End Sub

Answer

Sub SurfaceCarré()

Dim x As Integer

x = 10

MsgBox "La surface du carré est de
" & côté(x)

End Sub

Public Function côté(x)

côté = x * x

End Function

Answer

Function côté(x)

Dim x as
integer

x = 10

côté = x *
x

MsgBox La surface du carée est de & côté(x)

End Function

Crowdly