Задание 1

Написать программу, позволяющую пользователю угадать число из интервала от 1 до 100 сгенерированное компьютером. Сосчитать, сколько потребовалось попыток, чтобы пользователь угадал число

Обратите внимание на команду Option Explicit в первой строчке. Для чего она нужна? Вы, наверное, встречались с ситуацией, когда ваша программа считала не правильно. Это часто происходит, если в программе имена одной и тоже переменной записываются по-разному, например, rez и res. Наличие команды Option Explicit позволяет использовать в программе только имена переменных описанных в команде Dim.

Задание 2

Дано целое число. Определить сколько цифр в этом числе.

Чтобы определить количество цифр надо делить нацело данное число на 10 до тех пор, пока результат деления не станет равным 1.

Циклы широко используются при работе с ячейками в Excel.

Задание 3

Получить в первом столбце ряд чисел начиная с 2. Следующее число получается умножением предыдущего на 2. Ряд заканчивается, когда число становится больше 256.

Цикл с выходом по условию используется для того, чтобы найти конец таблицы. В этом случае используется условие пока не достигнута пустая ячейка: Cells(i, 2).Text <> "".

Задание 4

Во втором столбце дан ряд целых чисел. Найти количество четных чисел в этом ряду и вывести в конце соответствующее сообщение.

Задание 5

В седьмом столбце находятся числа и текст.

Удалить из этого столбца все строки, содержащие текст. Просмотр столбца будем продолжать пока не встретиться пустая ячейка. Для того, чтобы определить, является ли содержимое ячейки числом, можно использовать функцию Val, преобразующую текст в число. Если результат этой функции больше 0, значит это число. Также надо исключить и удаления ячейки содержащей 0.

Для удаления ряда надо создать автомакрос, в котором удалить строку.

Этот макрос будет иметь вид:

Rows("15:15").Select

Selection.Delete Shift:=xlUp

Его надо преобразовать для ряда в котором будет находится текст.

Обратите внимание, что переход к следующему ряду выполняется только, когда в ячейке находится число.

Цикл со счетчиком

For счетчик=начальноеЗначение То конечноеЗначение [Step приращение] блокОператоров>

Next [счетчик]

Несколько пояснений к приведенному описанию:

• Необязательные конструкции, как обычно, заключены в квадратные скобки

• приращение — может быть как положительным, так и отрицательным числом. Если использовать отрицательное приращение, то конечное значение должно быть меньше либо равно начальному значению для того, чтобы тело цикла выполнилось хотя бы один раз

• После завершения работы цикла For...Next переменная, которая использовалась в качестве счет­чика, получает значение, обязательно превосходящее конечное значение в том случае, если при­ращение положительно, и строго меньшее конечного значения, если приращение отрицательно

• Если начальное и конечное значения совпадают, тело цикла выполняется лишь один раз