Ошибка работы программы

@avatar1870 · Регистрация: 28.09.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте. Помогите, пожалуйста, справиться с ошибкой

@Казанский · 18.04.2015, 18:08

Уберите пробелы в названиях листов (или переименуйте листы)

Visual Basic

Sub lab8()
    n = Worksheets("Лист1").Cells(1, 2).Value
    Math.Randomize
    ft = Hn(n)
    Dim Ne As Double
    Ne = Worksheets("Лист1").Cells(1, 4).Value
    For k = 1 To 10
        fe = Max(Ne)
        Worksheets("Лист2").Cells(k + 1, 1).Value = k
        Worksheets("Лист2").Cells(k + 1, 2).Value = ft
        Worksheets("Лист2").Cells(k + 1, 3).Value = fe
        Worksheets("Лист2").Cells(k + 1, 4).Value = Math.Abs(fe - ft)
    Next
End Sub

Что эта программа делает вообще?

	18.04.2015, 18:08