VBNet - Форум - вывод значений массива от i до y

Вопрос: вывод значений массива от i до y Добавлено: 09.11.11 17:43

Автор вопроса: w01f14 | Web-сайт: zlodeev.com | ICQ: 868541

Подскажите как правильно вывести значения массива от min(пользовательское поле ввода) до max(пользовательское поле ввода)

  Dim min As String
    Dim max As String
    Dim ar_mass() As String
    Dim ar_count() As String
    Dim i As String
    Dim n As String

    Private Sub b_count_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_count.Click
        ar_mass = Split(tb_mass.Text, ",")
        i = 0
        min = tb_min.Text
        max = tb_max.Text


For Each i As String In ar_mass
            i = i + 1
            If ar_mass(i) >= min And ar_mass(i) <= max Then
                l_count.Text = l_count.Text + ar_mass(i) + ","

            End If
        Next

    End Sub

Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: w01f14 ICQ: 868541 Вопросов: 1 Ответов: 1	Web-сайт: zlodeev.com Профиль \| \| #1	Добавлено: 10.11.11 08:36
	Dim min As Integer Dim max As Integer Dim ar_mass() As String Dim ar_count() As String Dim i As String Dim n As String Private Sub b_count_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_count.Click l_count.Text = "" ar_mass = Split(tb_mass.Text, ",") i = 0 min = tb_min.Text max = tb_max.Text For Each ar_mass(i) In ar_mass If ar_mass(i) < min Or ar_mass(i) > max Then Else l_count.Text = l_count.Text + ar_mass(i) + "," End If i = i + 1 Next End Sub End Class Вот так корректно работает Ответить

Номер ответа: 2 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #2	Добавлено: 12.11.11 02:10
	For Each value In items.Where(Function(i) i >= min And i <= max) Console.WriteLine(value) Next Ответить

Номер ответа: 3 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #3	Добавлено: 13.11.11 18:20
	когда ты уже перейдешь на C# артем Ответить

Номер ответа: 4 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #4	Добавлено: 14.11.11 09:57
	let minValue = 10 let maxValue = 20 let sourceData = [\|1; 3; 5; 7; 9; 13; 14; 17; 20; 23; 25\|] let filterData data = sourceData \|> Seq.filter (fun i -> i >= minValue && i <= maxValue) let filteredData = filterData(sourceData) вин? Ответить

Номер ответа: 5 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #5	Добавлено: 14.11.11 19:41
	че это за язык Ответить

Номер ответа: 6 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #6	Добавлено: 14.11.11 19:54
	Это F# бладж, а не х## собачий Ответить

Страница: 1 |