End Sub. Range(A1).Select

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

Sub Макрос1()

Range("A1").Select

ActiveCell = "Курс"

n = InputBox("Введите курс доллара")

Range("B1").Select

ActiveCell = n

Range("C1").Select

ActiveCell = "руб"

Range("A2").Select

ActiveCell = "Доллар"

Range("B2").Select

ActiveCell = "Рубль"

n1 = InputBox("Введите количество долларов")

Range("A3").Select

ActiveCell = n1

Range("B3").Select

ActiveCell.Formula = "=$b$1*a3"

End Sub

1. Написать макрос в результате, которого в тексте находилось бы слово «сформировать», а затем удалялось бы.

Sub primer()

With Selection.Find

.ClearFormatting 'поис без учета форматирования

.Text = "сформировать" 'отыскиваемый текст

.Execute 'выполнение поиска

If.Found = True Then 'если текст найден то удаление текста

Selection.Delete

End If

Selection.Find.Execute Replace:=wdReplaceAll 'применить ко всему тексту

End With

End Sub

1. Создать презентацию в которой есть управляющая кнопка. По нажатию этой кнопки вызывается форма при помощи которой можно учить пользователя производить вычитание чисел от 0 до 9.

Public Sub CommandButton1_Click()

Dim a, b, r, n As Integer

a = Int(10 * Rnd())

b = Int(10 * Rnd())

If a > b Then

Label1.Caption = a

Label3.Caption = b

Else

Label1.Caption = b

Label3.Caption = a

End If

End Sub

Дата добавления: 2015-08-18