none
ПОмогите обьяснить что значить ЭТО всё! RRS feed

  • Вопрос

  • Private Function MyFunction(arg As Integer) As Double
    x = 4.4
    MyFunction = 1 - x / arg ^ 2
    End Function

    Private Sub Command1_Click()
    Dim n As Integer
    p = 1
    n = 0
    1:
    n = n + 1
    current_member = MyFunction(n)
    p = p * current_member
    If current_member > 0.0001 Then members = members + ", ": GoTo 1
    Label3.Caption = "P = " + Str(Format(p, "#.0000"))
    End Sub

    РАспишите плиз что значит каждая команда, чтоб я смог это обьяснить и сам понял( плиз. Буду бллагодарен

    • Перемещено Abolmasov Dmitry 20 ноября 2012 г. 8:13 (От:Где задать вопрос?)
    27 октября 2012 г. 12:08

Ответы

  • С одной стороны и рад бы помочь, но с другой - вы хотите что бы вам разобрали по полочкам элементарные вещи из "младших классов" разработки на VB. Если вы сами не научитесь, а вам все будут разжевывать, то так будет всегда.
    Есть масса книг и руководств по VB для начинающих. Прочтите хотя бы VB.Net для чайников Уоллеса Вонга - на многое даст ответы. (книга доступна в интернете на русском)

    Женат на WPF. Тайно встречаюсь с WinRT. Не сложилось с C#!

    • Помечено в качестве ответа Abolmasov Dmitry 26 ноября 2012 г. 6:41
    29 октября 2012 г. 13:42
    Отвечающий