Вычисление среднего арифметического нечетных чисел в одномерном массиве - 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

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


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

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

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