6 Декабрь 2009

Вычислить и вывести значение функции lg x

Арифметика |  Таги: , , , , ,

Вычислить и вывести значение функции 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

Запись опубликована on 06.12.2009 at 9:00 и размещена в рубрике: Арифметика. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.