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

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

10
DoEvents
i = i + 1
Form1.Label2.Caption = i
dan = Log(i)
Form1.Label1.Caption = dan
If dan = Fix(dan) Then
Form1.List1.AddItem Format(i) + '--' + Format(dan)
Form1.Refresh
End If
GoTo 10
Perviy pokazivaet 1--0 dalshe nichevo netu


textual

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

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 4.000 из 5

Источник