Вычислить сумму и произведение элементов массива - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д