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 |