Получить таблицу пересчета миль в километры и обратно - VB

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

Получить таблицу пересчета миль в километры и обратно (1 миля = 1,609344 км) для расстояний, не превышающих k км, в следующем виде

Решение задачи: «Получить таблицу пересчета миль в километры и обратно»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Form_Load()
    Dim ml As Double, km As Double, k As Double, e As Double, dig As Long, i As Long, h As Long, sm As String, sk As String, dx As Long
    Me.AutoRedraw = True: Me.Font = "Verdana": Me.FontSize = 10: Me.DrawWidth = 2: Me.FillStyle = vbSolid: Me.Height = Screen.Height / 1.1
    dig = 2     ' Точность (знаков после запятой)
    k = 5       ' Не превышающих 5 км
    e = 10 ^ -dig
    h = Me.TextHeight("0") + 60
    Do While km < k
        If h * (i - 1) > Me.ScaleHeight Then i = 0: dx = dx + 2000
        If i Then
            km = ml * 1.609344
            ml = ml + e
            sm = CStr(Round(ml, dig)): sk = CStr(Round(km, dig))
        Else
            sm = "Мили": sk = "Км"
        End If
        If i And 1 Then Me.FillColor = &HF4F4F4 Else Me.FillColor = &HE4E4E4
        Me.Line (dx, i * h)-Step(1000, h), &HAAAAAA, B
        Me.Line -Step(1000, -h), &HAAAAAA, B: Me.CurrentX = dx + 30: Me.CurrentY = h * i
        Me.Print sm;: Me.CurrentX = dx + 1030: Print sk
        i = i + 1
    Loop
End Sub
                        