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

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

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

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

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

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

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


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

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

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