binomio

prodotto di due binomi di primo grado, con Excel vedi binomio.xls

prodotto di due binomi con VBA su Excel binomiox.xls

copiare codice VBA in foglio Excel (creare due pulsanti, aprire pulsante 1 e incollare codice):salvare foglio
vedi descrizione per copiare e incollare codice VBA da inserire
nel foglio di Excel,
http://digilander.libero.it/francescovise/vbacodice/vbaspiegafoto.htm
http://digilander.libero.it/francescovise/vbacodice/spiega1.htm

Private Sub CommandButton1_Click()
Rem prodotto due binomi primo grado
Cells(1, 1) = "a1"
Cells(2, 1) = "b1"
Cells(3, 1) = "a2"
Cells(4, 1) = "b2"
Cells(5, 1) = "m"
Cells(6, 1) = "n"
Cells(7, 1) = "p"
a1 = Cells(1, 2)
b1 = Cells(2, 2)
a2 = Cells(3, 2)
b2 = Cells(4, 2)
m = Cells(1, 2) * Cells(3, 2)
n = Cells(1, 2) * Cells(4, 2) + Cells(2, 2) * Cells(3, 2)
p = Cells(2, 2) * Cells(4, 2)
Cells(5, 2) = m
Cells(6, 2) = n
Cells(7, 2) = p
Rem stampare segno + se coefficiente positivo
Rem se negativo viene stampato automaticamnte
If Cells(6, 2) > 0 Then
sn = "+"
Else
sn = ""
End If
If Cells(7, 2) > 0 Then
sp = "+"
Else
sp = ""
End If
Cells(8, 4) = sn
Cells(8, 5) = sp
Cells(10, 1) = "prodotto di due binomi di primo grado"
Cells(11, 1) = " (a1x + b1) * (a2x + b2) = mx^2 +nx + p "
Cells(14, 1) = "inserire i coefficienti nelle celle indicate"
Cells(15, 1) = "risultato trinomio 2° "
Cells(16, 1) = Cells(5, 2) & " x^2 " & Cells(8, 4) & Cells(6, 2) & " x " & Cells(8, 5) & Cells(7, 2)
End Sub

Private Sub CommandButton2_Click()
For riga = 1 To 17
For colonna = 1 To 7
Cells(riga, colonna) = ""
Next colonna
Next riga
End Sub