pro1

somma di due numeri interi con diversi linguaggi

TURBO-PASCAL

program sintax1;
(*somma di due numeri assegnati *)
uses crt;
var  a,b,somma:integer;
begin
clrscr;
 a:=10;
 b:=20;
 somma:=a+b;
 writeln('a=' ,a);
 writeln('b=',b);
 writeln('somma=',somma);
 readln;
end.

run e visualizza risultato
a=10
b=20
somma=30

VBA per EXCEL foglio con righe(1......6) e colonne(A,B...1,2)

creare PULSANTE e assegnare le istruzioni

Option Explicit
Private Sub CommandButton1_Click()
'somma due interi assegnati
Dim a, b, somma As Integer
Cells(3, 1) = "a="
Cells(4, 1) = "b="
Cells(5, 1) = "somma="
Cells(3, 2) = 10
Cells(4, 2) = 20
somma = Cells(3, 2) + Cells(4, 2)
Cells(5, 2) = somma
End Sub

cliccare su PULSANTE per ottenere visualizzazione su foglio

EXCEL

scrivere due numeri interi nelle celle B3,B4 del foglio e formula per somma in B5

VISUAL BASIC istruzioni assegnate al pulsante ATTIVA(+ 3 etichette)

creare PULSANTE e inserirvi le istruzioni,creare 3 etichette(label)

Option Explicit

Private Sub CommandButton1_Click()
'somma due numeri assegnati
Dim a, b, somma As Integer
a = 10
b = 20
Label5.Caption = a
Label6.Caption = b
somma = a + b

Label7.Caption = somma

End Sub

cliccare su PULSANTE per ottenere visualizzazione dati

inizio