Операции над элементами списка - VBA (49090)

Формулировка задачи:

Доброго времени суток...мне дали такое задание на подобие калькулятора, в листбоксе находятся определенные числа, во фрейме три optionbutton с подписями "сумма" , "произведение", "среднее". Суть заключается в том, что в листбоксе пользователь выбирает некоторые числа, а из фрейма операцию которая будет проделана с этими числами и результат выводится в текстбоксе...Я долго возился с программой и порядочно запутался, кто нибудь распутайте меня))) Буду очень благодарен))) P.S. скинуть свой файл не могу ибо здесь не читаются docm файлы поэтому текст моей программы ниже Используются ListBox, Frame(внутри него три OptionButton), два CommandButton, TextBox, Label(просто надпись над текстбоксом, необязательно)

Private Sub CommandButton1_Click()
Dim i As Integer
Dim n As Integer
Dim Сумма As Double
Dim Произведение As Double
Dim Среднее As Double
Dim Результат As Double
' При выборе первого переключателя
If OptionButton1.Value = True Then
Сумма = 0
With ListBox1
For i = 0 To ListBox1.ListCount
If ListBox1.Selected(i) = True Then
Сумма = Сумма + ListBox1.List(i)
End If
Next i
End With
Результат = Сумма
End If
' При выборе второго переключателя
If OptionButton2.Value = True Then
Произведение = 1
With ListBox1
For i = 0 To ListBox1.ListCount
If ListBox1.Selected(i) = True Then
Произведение = Произведение * ListBox1.List(i)
End If
Next i
End With
Результат = Произведение
End If
' При выборе третьего переключателя
If OptionButton3.Value = True Then
Среднее = 0
n = 0
With ListBox1
For i = 0 To ListBox1.ListCount
If ListBox1.Selected(i) = True Then
n = n + 1
 
Среднее = Среднее + ListBox1.List(i)
End If
Next i
End With
Результат = Среднее / n
End If
' Вывод результата
TextBox1.Text = CStr(Format(Результат, "Fixed"))
End Sub
 
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub
 
Private Sub UserForm_Initialize()
With ListBoxl
ListBox.List = Array(1, 3, 4, 5, 6, 7, 8, 10)
Listlndex = 0 'Начальный индекс массива
MultiSelect = fmMultiSelectMulti
End With
 
TextBox1.Enabled = False
CommandButton2.Cancel = True
UserForm1.Caption = "Операции над элементами списка"
UserForm1.Show
End Sub

Решение задачи: «Операции над элементами списка»

textual
                            Листинг программы 
                        

                            Dim Сумма As Double
Dim Произведение As Double
Dim Среднее As Double
Dim Результат As Double
 
Сумма = 0
Произведение = 1
For i = 0 To ListBox1.ListCount - 1
Сумма = Сумма + CInt(ListBox1.List(i))
Произведение = Произведение * CInt(ListBox1.List(i))
Next i
Среднее = Round(Сумма / i, 2)
If OptionButton1.Value Then Результат = Сумма
If OptionButton2.Value Then Результат = Произведение
If OptionButton3.Value Then Результат = Произведение
TextBox1.Text = CStr(Результат)
                        