Questions Bank | Page 134512

On souhaite obtenir la surface d’un

carré de 10 cm. On devra écrire :

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

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

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

Function côté(x)

Dim x as

integer

x = 10

côté = x *

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

End Function

View this question

Crowdly