Задача: Дан динамический массив В(n), заполненный случайными числами с помощью генератора случайных чисел (элементы массива вывести в ячейки рабочего листа). Найти сумму и количество тех элементов массива, которые делятся на 5 и на 8 одновременно. Полученные значения вывести в одно окно сообщения. Код: Public Sub prog() Dim i As Integer Dim sum As Integer Dim
Глупая задача… Дан динамический массив А(n), заполненный случайными числами с помощью генератора случайных чисел (элементы массива вывести в ячейки рабочего листа). Найти сумму и количество элементов массива, остаток от деления которых на 2 равен 3. Полученные значения вывести в одно окно сообщения. Ни одно число не будет подходить под условие задачи, но решение есть. Public
Задача: В клетке В2 сделайте сообщение о том, какое число записано в клетку А2 – положительное, отрицательное или ноль. Для ее решения используется простая лесенка If Else If: Исходный код: Sub Button1_Click() If (Cells(2, 1).Value > 0) Then Cells(2, 2).Value = «Больше нуля» Else If (Cells(2, 1).Value < 0) Then Cells(2, 2).Value = «Меньше нуля»
В банке открыт счет. Банк ежегодно начисляет фиксированный процент от вклада. Соответственно увеличивается сумма вклада. Составить программу, которая рассчитывает величину вклада и выводит эту величину для каждого года, пока величина вклада не увеличится вдвое. Для решения этой задачи предусмотреть клетки для ввода первоначальной величины вклада, учетной ставки процента от вклада, года помещения вклада в банк,
Может возникнуть задача, когда нужно получить строку до первого пробела. Например, чтобы получить одно слово из ячейки Excel. Сделать это можно несколькими путями.
Сделать элементы главной диагонали матрицы одним цветом, выше — другим, ниже третьим. Public Sub glav_diag() Dim i As Integer Dim j As Integer n = InputBox(«n=») For i = 1 To n For j = 1 To n If i = j Then Cells(i, j).Interior.Color = vbGreen End If If i < j Then Cells(i,
Внезапно появились лабораторные :) Задачка такая: Создать матрицу размера n x n, заполнить случайными числами от (-20 до 30). Сформировать одномерный массив от 1 до n, каждый элемент которого равен произведению положительных четных элементов данного столбца. Решаем так (естественно все делаем в Excel): [code lang=»vb»] Public Sub glav_diag() Dim i As Integer ‘ Индекс строки
Условие: Написать макрос для Word, который запрашивает слово и выделяет его каким-либо образом в тексте. Алгоритм: пробежаться по всем словам в тексте, и если слово совпадает с заданным- применить к нему некоторые изменения.
Вот такое дали: Копировать клетки столбца D, начиная с клетки D5, с Листа 2 на Лист 1 до тех пор, пока сумма копируемых значений не станет больше 100. Решить на VBA, в Excel соответственно. Задача показалась ну сильно простой, однако, на ее решение ушло значительное время.