Вычислить и вывести значение функции lg x
2009-12-06 07:00 Александр
Вычислить и вывести значение функции lg x.
Вычислить и вывести значение функции lg x, где х=[0,1;1] с шагом 0,1
Private Sub Command1_Click()
Me.List1.Clear
For i = 0.1 To 1 Step 0.1
Me.List1.AddItem (LGX(i))
Next
End Sub
Function LGX(ByVal x As Single) As String
LGX = Log(x) / Log(10)
End Function