Вычислить сумму и произведение элементов массива - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы