esercitazione didattica dimostrativa del prodottodi monomio per polinomio con Excel e con VBA su Excelper codici e attivazione vedi linkdescrizione per copiare e incollare codice VBA da inserirenel foglio di Excel,
http://digilander.libero.it/francescovise/vbacodice/vbaspiegafoto.htmhttp://digilander.libero.it/francescovise/vbacodice/spiega1.htmhttp://digilander.libero.it/francescovise/vbacodice/prove.htmhttp://digilander.libero.it/saggin2009/recente/prodotto1.htmhttp://digilander.libero.it/saggin2009/recente/prodotto1.xlshttp://digilander.libero.it/saggin2009/recente/monomio.xlshttp://digilander.libero.it/saggin2009/recente/prodotto2.htmhttp://digilander.libero.it/saggin2009/recente/prodotto2.xlscodice per prodotto1Private Sub CommandButton1_Click() Rem prodotto di monomio per polinomio Rem valori prefissati a scopo didattico dimostrativo Cells(13, 1) = "prodotto tra monomio e trinomio" Cells(14, 1) = "prodotto del monomio moltiplicatore per monomi trinomio" m1 = "5 a * b" m2 = "6 a^2 * b" m3 = "7 a * b^2" cm1 = Val(m1) cm2 = Val(m2) cm3 = Val(m3) sm1 = "a * b" sm2 = "a^2 * b" sm3 = "a * b^2" p = "10 * a" sp = "a" cp = Val(p) p1 = cp * cm1 p2 = cp * cm2 p3 = cp * cm3 sp1 = " a^2 * b" sp2 = " a^3 * b" sp3 = " a^2 * b^2" Cells(1, 1) = "monomi da moltiplicare" Cells(2, 1) = m1 Cells(3, 1) = m2 Cells(4, 1) = m3 Cells(6, 1) = p Cells(5, 1) = "monomio moltiplicatore" Cells(7, 1) = "risultato prodotto tra monomi" Cells(8, 1) = p1 & sp1 Cells(9, 1) = p2 & sp2 Cells(10, 1) = p3 & sp3 End Sub Private Sub CommandButton2_Click() For riga = 1 To 12 Cells(riga, 1) = "" Next riga End Sub Private Sub CommandButton3_Click() Rem prodotto di monomio per polinomio Rem valori prefissati a scopo didattico dimostrativo m1 = "-5 a * b" m2 = "6 a^2 * b" m3 = "7 a * b^2" cm1 = Val(m1) cm2 = Val(m2) cm3 = Val(m3) sm1 = "a * b" sm2 = "a^2 * b" sm3 = "a * b^2" p = "-10 * a * c" sp = "a" cp = Val(p) p1 = cp * cm1 p2 = cp * cm2 p3 = cp * cm3 sp1 = " a^2 * b * c" sp2 = " a^3 * b * c" sp3 = " a^2 * b^2 * c" Cells(1, 1) = "monomi da moltiplicare" Cells(2, 1) = m1 Cells(3, 1) = m2 Cells(4, 1) = m3 Cells(6, 1) = p Cells(5, 1) = "monomio moltiplicatore" Cells(7, 1) = "risultato prodotto tra monomi" Cells(8, 1) = p1 & sp1 Cells(9, 1) = p2 & sp2 Cells(10, 1) = p3 & sp3 End Sub codice per prodotto2Private Sub CommandButton1_Click() Cells(1, 1) = "inserire coefficienti dei monomi del polinomio e del monomio moltiplicatore" Cells(2, 1) = "inserire sigla comune ai monomi simili" m1 = TextBox1 m2 = TextBox2 m3 = TextBox3 mp = TextBox4 sx = TextBox5 spx = sx & "^2" cm1 = Val(m1) cm2 = Val(m2) cm3 = Val(m3) cmp = Val(mp) p1 = cmp * cm1 p2 = cmp * cm2 p3 = cmp * cm3 Cells(11, 1) = m1 & sx Cells(12, 1) = m2 & sx Cells(13, 1) = m3 & sx Cells(14, 1) = mp & sx Cells(11, 3) = p1 & spx Cells(12, 3) = p2 & spx Cells(13, 3) = p3 & spx Cells(1.6) = sm1 End Sub Private Sub CommandButton2_Click() TextBox1 = "" TextBox2 = "" TextBox3 = "" TextBox4 = "" TextBox5 = "" For riga = 11 To 14 For colonna = 1 To 4 Cells(riga, colonna) = "" Next colonna Next riga End Sub