Задание 1
Даны два целых числа, если одно из них четное, а другое нечетное, вывести сумму этих чисел на экран.
Решением задания будет программа имеющая вид:
Sub Chisla()
Dim A As Long
A = InputBox("Введите исходную строку", "Ввод данных")
......
Задание 2
Даны три целых числа, одно из которых отлично от двух других, равных между собой. Определить порядковый номер числа, отличного от остальных и вывести на экран порядковый номер и само число в одной строке.
Решением задания будет программа имеющая вид:
Sub Nomer_Chisla()
Dim A As Long
A = InputBox("Введите число №1", " Ввод данных ")
............
Задание 3
На экран выводится окно (используется функция MsgBox), в котором содержится вопрос: нажмите кнопку ОК, если нужно посчитать площадь фигуры, кнопку No, если нужно посчитать периметр, и кнопку Cancel, если ничего не нужно считать.
Решением задания будет программа имеющая вид:
Sub Pryamougolnik()
Dim A As Single, B As Single
.............
Задание 4
По заданной прямоугольной матрице получает новую, являющуюся результатом поворота исходной матрицы на 90 градусов;
Решением задания будет программа имеющая вид:
Function f(mas() As Byte, RowCount As Integer, ColumnCount As Integer)
Dim i As Integer, j As Integer
.................
Задание 5
При заданных пяти вариантах допустимой ошибки e заданным численным методом вычислить приближенное значение корня функционального уравнения вида f (x) = 0, если известно, что это уравнение имеет единственный корень на отрезке [a, b].
В проекте должно быть предусмотрено:
- проверка корректности введенных значений исходных данных (выполнение условия a < b, выполнение условия e > 0),
- перехват и обработка ошибки времени выполнения, когда строку введенных символов невозможно интерпретировать как число.
Решением задания будет программа имеющая вид:
Sub Koren_yravneniya()
Dim xn As Double, xs As Double, e As Double, a As Integer, b As Integer
On Error GoTo 1
......
Задание 6
Дана строка, содержащая английский текст. Найти количество слов, начинающихся с буквы b.
Решением задания будет программа имеющая вид:
Sub Text()
Dim s As String, i As Integer, n As Integer, a
Источник: RW-1700005578 | 