VBA Excel простое задание, но я не могу понять, пожалуйста!

Узнай цену своей работы

Формулировка задачи:

нам в универе начли преподавать ВБ, но ничего не обьясняют. В итоге, нам дают задание, а как его решать никто не собирается пояснять. У меня небыло проблем с информатикой никогда, если обьяснить что к чему, поэтому прошу, помогите кто может. задание1: вычислить количество нулевых элементов массива А13(10). Вывести исходную матрицу и полученое количество. задание 2: в заданой матрице А(3,7) найти среднее арифметическое значение. вывести исходную матрицу и найти среднее арифметическое матрицы p.s. я даже не понимаю что за цифры в скобочках(((((((((((((

Решение задачи: «VBA Excel простое задание, но я не могу понять, пожалуйста!»

textual
Листинг программы
  1. Public Sub кристина9()
  2.     Dim a13(10)
  3.     Dim a As Integer, b As Integer
  4.     For a = 0 To 10
  5.         a13(a) = CInt(Rnd * 2) - CInt(Rnd * 2)
  6.         If a13(a) = 0 Then b = b + 1
  7.     Next
  8.     MsgBox (Join(a13, " | "))
  9.     MsgBox ("В массиве А13(10) найдено " & b & " нулевых элементов")
  10. End Sub
  11.  
  12. Sub кристина10()
  13.     Dim a(3, 7) ' объявили массив 4х8
  14.    Dim b As Integer, c As Integer, d As Single, mes As String ' объявили переменные
  15.    '(b и c -целые, d - дробное с плавающей точкой и mes - текстовая строка)
  16.    ' с апострофа (') в коде начинается комментарий, служит для пояснений и не влияет на код
  17.    For b = 0 To 3  ' цикл for... next производит некое действие с определенным числом повторений (0 to 3 - это четыре повторения)
  18.        For c = 0 To 7 ' то же самое, но повторений 8
  19.            a(b, c) = CInt(Rnd * 20)
  20. ' увеличивая значения итераторов b и c мы доберемся до каждого элемента матрицы a и зададим ему случайное значение
  21.            d = d + a(b, c) ' и это значение сразу суммируем в переменную d
  22.            mes = mes & " | " & Format(a(b, c), "00") ' занесем в строковую переменную очередную часть строки - элемент матрицы и разделитель для наглядности "|"
  23.        Next
  24.         mes = mes & vbCrLf
  25.     Next
  26.     'теперь в переменной d у нас сумма всех элементов матрицы, делим её на количество и сохраняем в той же переменной:
  27.    d = d / 32
  28.     ' выводим на экран сообщение с матрицей и средним арифметическим:
  29.    MsgBox mes & vbCrLf & d & " - Среднее арифметическое"
  30. End Sub

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


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

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

10   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы