Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
VBA в приложении к Excel1.doc
Скачиваний:
2
Добавлен:
01.05.2025
Размер:
715.26 Кб
Скачать

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

Задача решена. Смотрим

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]