pro29

gestione di FUNCTION con Pascal VBA VISUAL BASIC

PASCAL

program pro29;
uses crt;
var b :integer;
    a :real;

function potenza(x:real;n:integer):real;
begin
 if n=0 then potenza:=1
  else
   potenza:=x*potenza(x,n-1)
    end;

begin
clrscr;
a:=10;
b:=5;
writeln(potenza(a,b):6:2);
writeln(potenza(5,6):6:2) ;
writeln('potenza=',(potenza(a,4)):6:2);
readln;
end.

RUN e visualizza
100000.00
15625.00
potenza=10000.00

VBA per excel
Option Explicit

Private Sub CommandButton1_Click()
Dim a As Integer
Dim b As Integer
Dim x As Integer
Dim y As Integer
a = 5
b = 6
Cells(2, 2) = esegue(a, b)
x = Cells(1, 4)
y = Cells(1, 5)
Cells(4, 2) = esegue(x, y)
End Sub


Public Function esegue(a As Integer, b As Integer)
Dim somma As Integer
somma = a + b
esegue = somma
End Function

creare PULSANTE per istruzioni:inserire valori in D1,E1 e cliccare per risultati

VISUAL BASIC

Option Explicit

Private Sub CommandButton1_Click()
Dim a As Integer
Dim b As Integer
Dim x As Integer
Dim y As Integer
a = 5
b = 6
label1.caption = esegue(a, b)
x = label2.caption
y = label3.caption
label4.caption = esegue(x, y)
End Sub


Public Function esegue(a As Integer, b As Integer)
Dim somma As Integer
somma = a + b
esegue = somma
End Function

creare PULSANTE per istruzioni e 4 label per inserire e visualizzare dati

inizio