Функции, процедуры в Microsoft Visual Studio

[Людмила_И]

как сделать данный программный код с помощью функций или процедур в Microsoft Visual Studio?

Option Explicit On
Option Strict On
Imports System.Math
Public Class л_4
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Close()
        Form1.Show()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim n, k, sh, ch, x, y As Double
        n = CSng(Val(TextBox1.Text))
        k = CSng(Val(TextBox2.Text))
        sh = CSng(Val(TextBox3.Text))
        If (n > k) Then MsgBox("Ошибка:Hачальное значение не должно быть больше конечного")
        If sh > Abs(n - k) Then MsgBox("Ошибка:шаг больше диапозона")

        ch = CInt((k - n) / (sh + 1)) 'число точек таблицы
        TextBox4.Text = ch.ToString()
        For x = n To k
            If x > 1 Then y = Exp(x) Else If x < 0 Then y = 2 * x - 1 Else y = -1
            y = x + sh
            ListBox1.Items.Add(x)
            ListBox2.Items.Add(y)
        Next
    End Sub
End Class

[doober]

Через функцию можно так.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b, h, x As Double
a=-2:b=2:h=0.25
        For x = a To b Step h
            ListBox1.Items.Add(x)
            ListBox2.Items.Add(CalcFunction(x))
        Next
    End Sub

    Private Function CalcFunction(ByVal x As Double)  As Double
        Select Case x
            Case Is > 1
                Return Math.Exp(x)
            Case Is < 0
                Return 2 * x - 1
            Case Else
                Return -1
        End Select
    End Function

[Bugrimov]

Вот тема один в один....
http://www.programmersforum.ru/showt...20#post1302220
Вы же и спрашивали... Такой ответ не подходит ?????

[Mad_Cat]

Такой ответ не подходит ?????

Язык не тот и кнопочек нету

[Bugrimov]

Сообщение от Mad_Cat

Язык не тот и кнопочек нету

Ааааа все понятно.... Просто я видел эту же тему в разделе C++ и рискнул предположить...

[Людмила_И]

спасибо большое очень выручили, как же мне хочется самой научиться программировать и помогать другим ребятам(((((