Шпоры по информатике3 / Private Sub Command1

Private Sub Command1_Click()

Label1.Caption = "Введите интервал, на которм табулируем функцию"

Text1 = M

Text2 = N

End Sub

Private Sub Command2_Click()

M = Val(Text1)

N = Val(Text2)

e = 2.73

For x = M To N Step 0.1

If x = 0 Then

Label1.Caption = "одно из чисел не возможно вычеслить"

Else: y = Sin(x) / (x * e ^ x)

End If

List1.AddItem Format(y, "0.000")

Next

End Sub

Private Sub Command3_Click()

Label1.Caption = "Введите новый интервал, на которм табулируем функцию"

Text1 = M

Text2 = N

List1.Clear

End Sub