Вычислить сумму и произведение элементов массива - VB
Формулировка задачи:
Не особо разбираюсь в Visual Basic.. прошу помощи) пожалуйста, буду очень благодарна :*
Решение задачи: «Вычислить сумму и произведение элементов массива»
textual
Листинг программы
- Option Explicit
- '
- ' © JoraVoenyjHaker
- '
- Public Function Summ#(Optional Srednee#)
- Const rm = ";"
- Dim C$, j$(), f&
- C = "0,1; 13; 2,5; -6; -20; 5; 4"
- j = Split(C, rm)
- For f = 0 To UBound(j)
- Summ = Summ + Val(j(f))
- Next
- Srednee = Summ / f
- End Function
- Private Sub Form_Load()
- Dim i#
- MsgBox "Сумма элементов=" & Summ(i) & vbNewLine & _
- "Среднее арифметическое =" & i
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
