Проблема с LOG( i ) когда доходит до 100 - VB

Узнай цену своей работы

Формулировка задачи:

Perviy pokazivaet 1--0 dalshe nichevo netu

Решение задачи: «Проблема с LOG( i ) когда доходит до 100»

textual
Листинг программы 
Dim lngIndex As Long
Dim dblDan As Double
 
For lngIndex = 1 To 2147483647
 
    DoEvents
    dblDan = Log(lngIndex)
    Form1.Label1.Caption = dblDan
    Form1.Label2.Caption = lngIndex
    
    If dblDan = Fix(dblDan) Then
        Form1.List1.AddItem CStr(lngIndex) & '--' & CStr(dblDan)
    End If
 
Next lngIndex

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4 из 5
Похожие ответы