Основы программирования на VBA. Регеда В.В - 66 стр.

              TextBox2.Value = ListBox1.List(1)
         ElseIf v = 2 Then
              TextBox1.Value = ListBox1.List(2)
              TextBox2.Value = ListBox1.List(3)
         Else
              TextBox1.Value = ListBox1.List(4)
              TextBox2.Value = ListBox1.List(5)
    End If
End Sub
    7)   Добавить в программный модуль процедуру Private Sub
CommandButton1_Click() для обработки события по нажатию кнопки
«Среднее».
'Процедура вычисления среднего
Private Sub CommandButton1_Click()
    With ListBox1
             Среднее = 0: j = 0
         For i=0 To .ListCount-1
             If .Selected(i) = True Then
                  Среднее=Среднее+.List(i)
                  j=j+1
             End If
         Next i
             Среднее=Среднее/j
             TextBox4.Text=CStr(Среднее)
    End With
End Sub
     Для того чтобы иметь возможность выбирать несколько значений из
списка ListBox, необходимо задать для свойства MultiSelect этого
элемента требуемое значение. Однако это свойство не может задаваться
программно, а устанавливается лишь в окне Properties и имеет три допус-
тимые значения:
     – 0 (выбор только одного элемента);
     – 1 (разрешен выбор нескольких элементов либо щелчком, либо кла-
вишей Пробел);