
- •Vba в приложении к Excel
- •Создание программ vb для Excel
- •Задача №1 Добавить на лист личные данные, имя файла, дату и отобразить их на экране
- •1.3. Ответ на экране Задача №2 Выделить зону (Ввести начальную и конечную координаты не через Excel, а через vba)
- •2.3. Ответ Задача №3 Разукрасить выделенную зону (выполняется после задачи №2)
- •3.1. Вводим код цвета для раскраски выд. Зоны
- •4.1. Выбираем конечную строку столбца
- •4.2. Выбираем действие для выделенного участка столбца.
- •4.2. Ответ
- •Задача №5 Ввести 2-х мерный массив, в котором главная диагональ менялась на 0.
- •5.1. Вводим определённый элемент массива
- •5.2. Ответ Задача №6 Есть определённое количество товара и машина, которая должна его перевезти за один раз. (Количество, вес груза и грузоподъёмность машины задаём сами!)
- •Задача №7
- •7.1. Вводим число месяца.
- •7.2. Смотрим предыдущую дату (ответ) Задача №8 Ввести дату цифрами, вывести её на экран словами.
- •8.1. Вводим номер месяца
- •8.2. Выводим ответ на экран Задача №9
- •9.1. Вводим номер выбранного нами параметра
- •9.2. Вводим значение выбранного нами параметра
- •9.3. Одно из 4 окон ответа Задача №10 Даны 3 числа. Найти среднее из них (т.Е. Число, расположенное между min и max).
- •10.1. Введём число а
- •10.2. Выводим на экран ответ Задача №11
- •11.1. Вводим число n
- •11.2. Выводим ответ Задача №12 Вывести факториал заданного числа.
- •12.1. Вводим число а
- •12.2. Выводим ответ (Факториал) Задача № 13
- •13.1. Введём наше число, для которого надо найти пред. И послед. Число Фибоначчи.
- •13.2. Выводим ответ. Задача №14 Дан целочисленный массив размера n. Удалить из массива все одинаковые элементы, оставив их первые вхождения. (Array).
- •14.1. Вводим размерность массива
- •14.2. Вводим элемент массива
- •14.3. Выводим ответ на экран.
8.1. Вводим номер месяца
8.2. Выводим ответ на экран Задача №9
Э
лементы
равнобедренного прямоугольного
треугольника пронумерованы следующим
образом: 1 – катет a; 2 – гипотенуза
3 – высота h, опущенная на гипотенузу (h=c/2); 4 – площадь S=c*h/2.
Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов данного треугольника. (В том же порядке)
Решение
Для решения этой задачи нам понадобится оператор Case и 6 переменных:
n (номер параметра, который будем вводить), a (катет), с (гипотенуза), H (высота треугольника), s (площадь треугольника) и вспомогательная переменная x (через которую мы будем считать). Начинаем вводить данные:
Private Sub CommandButton_Click()
Dim n As Integer
Dim x, a, c, H, s As Double
n = CDbl(InputBox("Введите номер параметра N "))
x = CDbl(InputBox("Введите значение " & n & "-го параметра "))
Далее нам надо выбрать, то над чем мы хотим проводить действие и задать условие – в нашем случае задать формулы:
Select Case n
Case 1
a = x
Case 2
a = x / Sqr(2)
Case 3
a = 2 * x / Sqr(2)
Case 4
a = Sqr(2 * x)
End Select
c = a * Sqr(2)
H = c / 2
s = c * H / 2
Выводим на экран ответ, в той последовательности, которая дана в условии нашей задачи.:
MsgBox ("Значение катета a = " & a)
MsgBox ("Значение гипотенузы c = " & c)
MsgBox ("Значение высоты h = " & H)
MsgBox ("Значение площади S = " & s)
End Sub
Задача решена.
Смотрим
9.1. Вводим номер выбранного нами параметра
9.2. Вводим значение выбранного нами параметра
9.3. Одно из 4 окон ответа Задача №10 Даны 3 числа. Найти среднее из них (т.Е. Число, расположенное между min и max).
Решение.
Для этой задачи нам понадобится 4 переменных, a,b,c – числа, которые мы вводим и число x – как искомое число. Дальше нам надо ввести данные, что мы и делаем с помощью InputBox:
Private Sub CommandButton_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim x As Integer
a = CInt(InputBox("Введите число A "))
b = CInt(InputBox("Введите число B "))
c = CInt(InputBox("Введите число C "))
Далее нам потребуется задать условие, то есть показать, каное число нам надо вывести в ответе. Делаем это через оператор IF.
If (a < b) And (a > c) Or (a > b) And (a < c) Then x = a
If (b < a) And (b > c) Or (b > a) And (b < c) Then x = b
If (c < a) And (c > b) Or (c > a) And (c < b) Then x = c
Дальше нам просто остаётся вывести ответ на экран через MsgBox:
MsgBox ("Число, расположенное между минимальным и максимальным = " & x)
End Sub
Задача решена. Смотрим
10.1. Введём число а
10.2. Выводим на экран ответ Задача №11
Дано вещественное число А и целое число N (>0). Найти А в степени N.
Решение.
В данной задаче нам понадобится 4 переменных : a (Число А), n (Число N), и 2 вспомогательные переменные: f и i (f – переменная над которой будут производится действия, I – количество чисел, которое нам понадобится). Вводим данные:
Private Sub CommandButton1_Click()
Dim f, a, n, i As Integer
a = CInt(InputBox("Введите число A "))
n = CInt(InputBox("Введите число N "))
f = 1
Далее надо использовать оператор For (Для), чтобы ввести наше условие. Итак:
For i = 1 To n
f = f * a
Next i
Переходим к следующему числу i. То начинается повтор.
Остаётся вывести ответ:
MsgBox (a & " в степени " & n & " равно " & f)
End Sub
Задача решена. Смотрим