Даны 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

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

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

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

11.1. Вводим число N

11.2. Выводим ответ

Задача №12

Дата добавления: 2017-02-01; Просмотров: 167; Нарушение авторских прав?; Мы поможем в написании вашей работы!