Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

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


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


В избранное