Как выбрать из массива первый элемент, который больше некоторого заданного

@KnyazWill · Регистрация: 18.03.2013

Студворк — интернет-сервис помощи студентам

У меня есть одномерный массив, нужно из этого массива выбрать первый элемент, который больше некоторого числа заданного заранее.
У меня выводит максимальный элемент массива (5), хотя нужно вывести тройку, не могу понять что нужно еще добавить, помогите.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Imports System
Imports System.IO
Public Class Form1
    Public B(4) As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Заполнение текстового массива из  файла
        Dim sr As StreamReader
        sr = New StreamReader("q.txt")
        For I = 0 To 4
            B(I) = sr.ReadLine()
            ListBox1.Items.Add(B(I))
        Next I
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim f, g As Integer
        f = 2 ' Число с которым сравниваем элементы массива
        For I = 0 To 4
            If f < B(I) Then
                f = B(I)
            End If
            TextBox1.Text = f
        Next
    End Sub
End Class

@ovva · 08.11.2015, 15:40

Можно так

VB.NET
1
2
3
4
Dim B() As Integer = {1, 4, 6, 23, 45, 4, 3}
Dim f As Integer = 5
Dim ff = From t In B Where t > f Take 1
MsgBox(ff(0).ToString)

PS. Обратите внимание B это массив строк, а f это число (Integer).

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

Как выбрать из массива первый элемент, который больше некоторого заданного

Решение