<span>1. </span><span>Private Sub CommandButton1_Click() </span><span>
<span>Dim n, s As Single </span>
<span>n = Val(TextBox1.Text) </span>
<span>If (n < 500) Then s = n </span>
<span>If ((n >= 500) And (n <= 1000)) Then s = n
* 0.95 </span>
<span>If ((n > 1000) And (n <= 10000)) Then s =
n * 0.93 </span>
<span>If (n > 10000) Then s = n * 0.91 </span>
<span>MsgBox (s) </span>
<span>End Sub</span></span>
Вот решение - все на скриншотах.
<em><u>Изначально s = 60</u></em>
<em><u>Цикл будет работать 6 раз</u></em>
Первый проход цикла: k = 5, тогда s = 60 - 5 = 55
Второй проход цикла: k = 6 (т.к один проход уже сделан, и значение переменной k увеличилось на 1), тогда s = 55 - 6 = 49
Третий проход цикла: k = 7, тогда s = 49 - 7 = 42
Четвертый проход цикла: k = 8, тогда s = 42 - 8 = 34
Пятый проход цикла: k = 9, тогда s = 34 - 9 = 25
Шестой проход цикла: k = 10, тогда s = 25 - 10 = 15
Окончательный ответ: значение переменной s после выполнения цикла = 15
Ну из таблицы же ясно. в пятом действии мы из задуманного числа + некую сумму вычитаем задуманное число. т.е на этом этапе от нашего числа перестает что либо зависеть. это равнозначно тому что: загадайте число, отнимите от него задуманное число - у вас получилось 0. ну или загадайте число , прибавте 1, отнимите загаданное число. получилось 1.
Вариант 1
Вставка, фигуры, текст. Вставляем текст. Активируем фигуру. Переходим в Формат, жмём Направление текста. Вуаля.
Вариант 2
Создаём таблицу 1×1 . Пишем текст. Активируем эту таблицу. Переходи в Макет, жмём Направление текста. Вуаля. Потом ещё можно в Главной убрать все границы у таблицы, чтобы было прямо один в один как страница.
Вариант 3
Если задача просто распечатать текст по-другому, то можно сделать Разметка, Ориентация, Альбомная.