Найти минимальный элемент ListBox - Visual Basic .NET

  1. Всем здравствуйте! На форме есть 2 листбокса, в одном из них фамилии, в другом отметки, нужно найти минимальную отметку и вписать в листбох3,4 фамилию и отметку этого человека. Заранее спасибо)vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 Public Class Form1     Dim i, n, m, x, k As Integer     Dim s, sr As Single     Dim a(n) As String     Dim b(n), max(n) As Integer       Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load         Dim i As Integer         n = ListBox1.Items.Count         ReDim a(n), b(n), max(n)         For i = 0 To n - 1             a(i) = ListBox1.Items(i)             b(i) = ListBox2.Items(i)         Next i     End Sub       Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click         ListBox1.Items.Add(TextBox1.Text)       End Sub       Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click         ListBox2.Items.Add(TextBox2.Text)     End Sub     Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click         Dim i As Integer         x = b(0)         For j = 1 To n - 1             If b(j) > x Then x = b(j)         Next         k = 0         For j = 0 To n - 1             If b(j) = x Then                 max(k) = j                 k = k + 1             End If         Next         For i = 0 To k - 1             ListBox3.Items.Add(ListBox1.Items(max(i)))             ListBox4.Items.Add(ListBox2.Items(max(i)))         Next     End Sub       Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click         Dim i As Integer         s = 0 : sr = 0         For i = 0 To n             s = s + b(i)         Next         sr = s / n         TextBox3.Text = sr     End Sub End Class


textual

Код:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    addList2()
    Dim lst(ListBox2.Items.Count - 1) As String
    ListBox2.Items.CopyTo(lst, 0)
    Dim v As String = lst.Min
    Dim ind As Integer = Array.IndexOf(lst, v)
    MsgBox(ListBox1.Items(ind) & "  " & v)
End Sub


Похожие ответы
  1. Нужна помощь по решению задачи Найти и вывести на экран все положительные элементы массива А(а1,а2,...аn). Одновременно вывести на экран их порядковые номера. Заранее спасибо

  1. Доброго времени суток! Прошу помощи с задачей про массивы: Даны массивы А(5) и В(5), состоящие из положительных элементов. Найти сумму среднего геометрического значения элементов массива А и среднего арифметического значения элементов массива В.

  1. Добрый день. Есть дерево TreeView c чекбоксами. Есть вспомогательный CheckedListBox Необходимо при включении/отключении первого чекбокса в листе - включить/отключить только узловые элементы дерева TreeView При вкл/откл второго чекбокса в листе - вкл/откл только дочерние элементы первого уровня (Без включения корневой ветки) При активизации третьего чекбокса - дочерние элементы второго уровня и т.д. Получилось только выделение узловых элементов. vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34     Private Sub CheckedListBox1_ItemCheck(sender As Object, e As ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck         Select Case e.NewValue             Case CheckState.Checked                 If e.Index = 0 Then                     For Each trview In TreeView1.Nodes                         trview.Checked = True                     Next                 End If '---------------- В данном месте программы должны включаться дочерние элементы -----------------                   If e.Index = 1 Then                     For Each trview In TreeView1.Nodes 'Данная строчка кода не правильная, не могу понять, как достучаться до дочерних элементов                         node.Expand()                         node.Checked = True                     Next                 End If '------------------------------------------------------------------------------------------------------------------                           Case CheckState.Unchecked                             If e.Index = 0 Then                     For Each trview In TreeView1.Nodes                         trview.Checked = False                     Next                 End If '---------------- В данном месте программы должны выключаться дочерние элементы -----------------                 If e.Index = 1 Then                     For Each trview In TreeView1.Nodes 'Данная строчка кода не правильная, не могу понять, как достучаться до дочерних элементов                         trview.Checked = False                     Next                 End If '------------------------------------------------------------------------------------------------------------------           End Select       End SubДерево заполняется динамически. Спасибо

  1. Всем доброго дня! Я понимаю, что данная тема заезжена и что я не первый такой умник, но поверьте мне это последнее что я пробую в решении моей проблемы, я перечитал уже все и перепробовал тоже, так что не сердитесь. Дело в том, что мне необходимо управлять веб элементом, который не имеет ID, так они выглядятHTML51 HTML51 HTML51 я перепробовал все что смог найти на просторах сети, но добраться до этих элементов так и не удалось. Быть может решение перед носом, но как то ни как(( Прошу помочь, заранее благодарю.

  1. Научите пожалуйста как через модуль можно организовать подсветку выбранного текстбокса. Понятно что нужно использовать получение фокуса vb.net1  txtbox.BackColor = Color.red. Но не хочется прописывать это событие для каждого текстбокса по отдельности.

  1. Надо составить программу которая определяет сумму положительных и произведение отрицательных элементов одномерного массива входящих в интервалы (-10; 10), (-∞ ;-100) и (100; +∞) циклической структуры For (цикл с параметром). Помогите, пожалуйста.

  1. Уважаемые присутствующие ! Если кто может, подскажите, в каком направлении нужно двигаться в решении такой задачки : Обычное Windows-приложение с обычным меню. Каким образом эффективнее всего будет обеспечить динамическую активацию/деактивацию (Enable/Disable) элементов меню в зависимости от того доступны или недоступны в данный момент конкретные функции в приложении??? Это по типу как в Word, когда какая-либо команда в данный момент недоступна для выполнения, то и кнопка этой команды неактивна (например, кнопка вставки из буфера обмена при отсутствии в буфере обмена данных будет недоступна/неактивна). Такое переключение состояния элементов меню из неактивного в активное и наоборот должно быть динамически связанным и работать (по моему скромному убеждению) на основе событий по ходу исполнения основной логики приложения. То есть однажды привязав каждую кнопку меню как-либо к чему-либо (как и к чему??) дальнейшая активация и деактивация меню происходит автоматически. Куда и в каком направлении двигаться ?? Буду очень призначетелен за подсказ и опыт. Пасиб))

  1. К примеру есть массивvb.net1  Dim d As Integer() = {1, 2, 3, 4, 5, 6, 7, 8, 9}Как мне "положить" в него ещё одно число? к Примеру 3, между 6 и 7? Чтобы вышло {1, 2, 3, 4, 5, 6, 3, 7, 8, 9} А так же как его оттуда удалить потом? Просто до этого пользовался конструкциями типа list(of) Но в данный момент нужен именно массив

  1. Доброго дня товарищи, извиняюсь за не очень правильный и информативный заголовок, но вот как его вернее сформировать - не знаю. Допустим есть у меня несколько элементов на форме типа Label. Как всем известно они идут Label1, Label2... итд Чтобы не прописывать каждому классическое Label1.Text = "Что-то", можно ли сделать заполнение циклом? Что-то в духеvb.net1 2 3 for i=1 to 10 label(i).text = "что-то" nextСпасибо

  1. Имя текстового окна редактирования, являющегося составной частью элемента управления Combobox = "childEdit". А как узнать имя составной части любого другого штатного контрола, например NumericUpDown? (Нужно это для получения хэндла составной части контрола)