Вычисление среднего арифметического нечетных чисел в одномерном массиве - VB
Формулировка задачи:
Всем доброго дня!
просьба помочь студенту разобраться с азами програмирования.
задача в следующем: есть код на вычисление ср. арифметического нечетых чисел в одномерном массиве
sum расчитывается по модулю
при запуске выдает ошибку, отмеченную комментарием. где косяк?
Решение задачи: «Вычисление среднего арифметического нечетных чисел в одномерном массиве»
textual
Листинг программы
Dim a() As Single Dim i As Integer, m As Integer Dim SR As Single 'нет объявления m = InputBox(" введите количества чисел ") ReDim a(1 To m) For i = 1 To m a(i) = InputBox("введите число ") List1.List(i - 1) = a(i) Next i SR = sum(a, m)' не согласовано - 'a' объявлено как Single, в функции (а не sub надо) Integer Text1.Text = SR Public Function sum(a() As Single, n As Integer) As Single Dim i As Integer For i = 1 To n a(i) = a(i) * 2 Next i sum = 666' в данном случае получишь 666 на возврат - в Text1.Text End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д