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