Прога написана в VBA,но не мной! просто расскажите что здесь за оператори.

[maxi71]

UserForm1(CODE)
DefDbl A-Z
Private i
Private s
Private Sub cmdNext_Click()
    Dim epsilon, x
    epsilon = 0.001
    x = 0.91
    i = i + 1
    s = s + f(i, x)
    lblRez.Caption = "i =" + Str(i) + " s = " + FormatNumber(s, 3) + " ni = " + FormatNumber(f(i, x), 3)
    cmdNext.Enabled = Abs(f(i, x)) > 0.001
End Sub
Private Function f(n As Double, x As Double)
    f = (-1) ^ n * ((2 * n ^ 2 + 1) / fc(2 * n)) * x ^ (2 * n)
End Function
Private Function fc(n As Double)
    Dim r, rez
    rez = 1
    For r = 2 To n
        rez = rez * r
    Next
    fc = rez
End Function

[InfStudent]

Операторы присвоения и объявления переменых есть, функции и объявление и вызов))Конкретней проблему опиши

[InfStudent]

А она случайно не написана Excel входе записи макроса)))

[maxi71]

да Excel. мне просто надо знать название операторов и что они здесь делают. нас учили просто саб, енд саб, фанкшн, енд фанкшн, иф, степ и т.д. а сдесь не пойму что за DefDbl A-Z?   lblRez.Caption = "i =" + Str(i) + " s = " + FormatNumber(s, 3) + " ni = " + FormatNumber(f(i, x), 3)
    cmdNext.Enabled = Abs(f(i, x)) > 0.001?Dim r, rez?rez = rez * r?    fc = rez?

[InfStudent]

Первый за что отвечает сказать не могу.Второе это значит вот что есть графический элемент Label и обращаются к свойству этого компонента под названием caption и присваивает ему значение строковое   lblRez.Caption = "i =" + Str(i) + " s = " + FormatNumber(s, 3) + " ni = " + FormatNumber(f(i, x), 3). + это значит склейку строк. Str(i) это вызов функции преобразования цифровой переменной в строку. FormatNumber(s,3) это просто формат строкового представления задается, возможно 3 означает количество знаков после точки. Дальше боюсь ошибится, я ж VB практически не знаю)