esevba3

vedi esevba3.xls

Private Sub CommandButton1_Click()
'esevba3
'istruzioni scritte in corrispondenza del PULSANTE
'prodotto due interi da inserire in celle (4,5) (5,5)
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