pro2

moltiplica due numeri interi inseriti con READ


TURBO PASCAL listato del programma scritto con Turbo pascal

program somma2;
(* richiede due numeri interi con READ *)
uses crt;
var a,b,prodotto:integer;
begin
clrscr;
write('scrivi intero a = ');readln(a);
write('scrivi intero b = ');readln(b);
prodotto:=a*b;
writeln('prodotto dei numeri=',prodotto);
readln;
end.
RUN ,inserire due numeri,VISUALIZZARE
scrivi intero a = 5
scrivi intero b = 6
prodotto dei numeri=30

VBA per EXCEL
creare PULSANTE e inserirvi le istruzioni
MOLTIPLICA
Option Explicit
istruzioni scritte in corrispondenza del PULSANTE MOLTIPLICA
Private Sub CommandButton1_Click()
'prodotto due interi da inserire
Dim a, b, prodotto As Integer
Cells(4, 3) = "scrivi intero a="
Cells(5, 3) = "scrivi intero b="
Cells(6, 3) = "prodotto="
a = Cells(4, 5)
b = Cells(5, 5)
prodotto = a * b
Cells(6, 5) = prodotto
End Sub
scrivere solo i due numeri in E4,E5 e cliccare su PULSANTE
  A B C D E
1          
2          
3          
4     intero a=   5
5     intero b=   6
6     prodotto =   30

EXCEL senza istruzioni,eccetto la formula per il prodotto

scrivi due interi in celle E4,E5 e formula per prodotto in E6,e diciture in C4,C5,C6

  A B C D E
1          
2          
3          
4     intero a=   5
5     intero b=   6
6     prodotto =   =E4*E5

 


VISUAL BASIC istruzioni associate al PULSANTE ATTIVA(+ 2 Textbox e 1 label)

creare un PULSANTE,2 caselle Textbox e 1 casella Label:inserire numeri in Textbox

Option Explicit

Private Sub CommandButton1_Click()
'prodotto due interi da inserire
Dim a, b, prodotto As Integer
a = TextBox1
b = TextBox2
prodotto = a * b
Label4.Caption = prodotto
End Sub
textbox1.....a da inserire
textbox2.....b da inserire
label14.......prodotto
ATTIVA per prodotto

inizio