Операции над элементами списка

@yuran1174 · Регистрация: 06.03.2015

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

Написать программу, которая будет при запуске приложения выдавать форму «Операции над элементами списка» с заполнением по умолчанию как на рисунке. Программа должна по кнопке Вычислить, выполнить операцию, выбранную пользователем в разделе Операция, и вывести результат вычисления в поле Результат. Операция совершается над всеми элементами,указанными в форме.
Книга1231.rar

@Vlad999 · 24.06.2015, 10:38

если над всем списком то вариант

Visual Basic

Dim a()
For i = 1 To ListBox1.ListCount
ReDim Preserve a(1 To i)
a(i) = Val(ListBox1.List(i - 1))
Next
If OptionButton1.Value Then
m = WorksheetFunction.Sum(a)
  ElseIf OptionButton2.Value Then
  m = WorksheetFunction.Product(a)
      ElseIf OptionButton3.Value Then
      m = WorksheetFunction.Sum(a) / ListBox1.ListCount
 End If
 TextBox1.Text = m

если счет согласно мультивыбора, который у вас не включен, то код будет другой

Добавлено через 11 минут
по мультивыбору

Visual Basic

Private Sub CommandButton1_Click()
Dim a()
For i = 1 To ListBox1.ListCount
If ListBox1.Selected(i - 1) Then
 ii = ii + 1
 ReDim Preserve a(1 To ii)
 a(ii) = Val(ListBox1.List(i - 1))
End If
Next
If OptionButton1.Value Then
m = WorksheetFunction.Sum(a)
  ElseIf OptionButton2.Value Then
  m = WorksheetFunction.Product(a)
      ElseIf OptionButton3.Value Then
      m = WorksheetFunction.Sum(a) / UBound(a)
 End If
 TextBox1.Text = m
End Sub

@yuran1174 3 / 3 / 2 Регистрация: 06.03.2015 Сообщений: 107
		1
	Операции над элементами списка 23.06.2015, 21:29. Показов 982. Ответов 1 Метки нет (Все метки) Написать программу, которая будет при запуске приложения выдавать форму «Операции над элементами списка» с заполнением по умолчанию как на рисунке. Программа должна по кнопке Вычислить, выполнить операцию, выбранную пользователем в разделе Операция, и вывести результат вычисления в поле Результат. Операция совершается над всеми элементами,указанными в форме. Книга1231.rar 0

	24.06.2015, 10:38