funzione logaritmica
ricerca campo
esistenza con ciclo for next
controllo valori non accettabili ( y > 0 )con IF
creazione grafica , modificata con paint
Private Sub CommandButton1_Click()
Rem campo logaritmica
riga = 1
Cells(25, 1) = "x^2-3*x+1"
For x = -10 To 10
y = x ^ 2 - 3 * x + 1
If y > 0 Then
logaritmica = Log(y) /
Log(10)
Cells(riga, 1) = x
Cells(riga, 2) = y
Cells(riga, 3) = logaritmica
Else
Cells(riga, 1) = x
Cells(riga, 2) = y
Cells(riga, 3) = " non valido"
End If
riga = riga + 1
Next x
End Sub
vedi logaritmica.xls