cerchio

Rem calcolo area raggio con chianata call

Function area(raggio As Double) As Double
area = raggio * raggio * 3.14
End Function


Private Sub CommandButton1_Click()
Dim n As Double
Dim area1 As Double
Dim area2 As Double
Dim area3 As Double
n = cifra.Text
area1 = area(n)
area2 = area(10)
area3 = area(100)
Label1.Caption = area1
Label3.Caption = area2
Label4.Caption = area3
End Sub

ritorna