задача по формуле

[Step@]

Код программы написал.... не могу вывести переменные tt и n
Условие, блок-схема и сама задача в прикрепленном файле zadacha.zip.... помогите завтра сдавать зачет......
Option Explicit
Sub vsr_29()
Dim k As Byte, t As Byte, m As Byte, tt As Byte, n As Single, c As Single
k = Cells(4, 1)
t = Cells(4, 2)
m = Cells(4, 3)
c = 40 / k
For tt = 40 To 80 Step c
вывести tt
n = ((1440 - tt) / t) * m
вывести n=
Next tt
End Sub

[kuklp]

Вывести куда? Мож так?

Sub vsr_29()
    Dim k As Byte, t As Byte, m As Byte, tt As Byte, n As Single, i&, c As Single
    k = Cells(4, 1)
    t = Cells(4, 2)
    m = Cells(4, 3)
    c = 40 \ k: i = 3
    For tt = 40 To 80 Step c
    i = i + 1
    Cells(i, 4).Value = tt
    n = ((1440 - tt) / t) * m
    Cells(i, 5).Value = n
    Next tt
End Sub