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