--------------------------------------Вроде так--------------------------------------
1) Скорее всего "завершить"
2) "ползунок" (Полосы прокрутки)
3) "экспорт"
4) строка "состояния"
5) панель "инструментов"
На Visual Basic
Sub Roma
Dim R As String, N As Long, k As Integer, i As Integer
R = InputBox ("Vvedite Rimskoe chislo")
N = 0 : k = 0
i = 1
Do
k = InStr$(R, i, "M")
If k > 0 Then N = N + 1000
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "CM")
If k > 0 Then N = N - 100
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "D")
If k > 0 Then N = N + 500
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "CD")
If k > 0 Then N = N - 100
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "C")
If k > 0 Then
If (Mid$(R, k+1, 1) <> "D") And (Mid$(R, k+1, 1) <> "M") Then
N = N + 100
End If
End If
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "XC")
If k > 0 Then N = N - 10
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "L")
If k > 0 Then N = N + 50
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "XL")
If k > 0 Then N = N - 10
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "X")
If k > 0 Then
If (Mid$(R, k+1, 1) <> "C") And (Mid$(R, k+1, 1) <> "L") Then
N = N + 10
End If
End If
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "IX")
If k > 0 Then N = N - 1
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "V")
If k > 0 Then N = N + 5
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "IV")
If k > 0 Then N = N - 1
Loop While ((k > 0) And (i <= Len(R)))
i = 1
Do
k = InStr$(R, i, "I")
If k > 0 Then
If (Mid$(R, k+1, 1) <> "X") And (Mid$(R, k+1, 1) <> "V") Then
N = N + 1
End If
End If
Loop While ((k > 0) And (i <= Len(R)))
MsgBox (N)
End Sub
*На столе он перед нами, на него направлен взор,подчиняется программе, носит имя...(Монитор).***Не зверушка, не летаешь, а по коврику скользишьи курсором управляешь. Ты – компьютерная...(Мышь).***Нет, она – не пианино, только клавиш в ней – не счесть! Алфавита там картина, знаки, цифры тоже есть.Очень тонкая натура. Имя ей ... (Клавиатура).***Сохраняет все секреты «ящик» справа, возле ног,и слегка шумит при этом. Что за «зверь?». (Системный блок).***Сетевая паутина оплела весь белый свет, не пройти детишкам мимо. Что же это? (Интернет).
Мой лучший друг-компьютер. Мне с ним все супер-пупер. А остальное все да фени. Катись все к ене-бене… Не нужно мне застолье, Пусть все дела в постое. С утра залезу в интернет, А всем домашним скажу”нет”. Друзья по интернету- От вас я жду ответа, Веселого привета И дельного совета. Вновь вы скучать мне не даете И стрелы злобы не метнете. Меня вы чем-нибудь займете, До глубины души проймете. Без вас теперь уж грустно мне. Вы снитесь даже мне во сне. Я с вами снова весела- Сама я свет и доброта!
Мой компьютер, милый,Я тебя убила –Ацетоном залила,Ногти красила,И дрогнула рука!Я тебе испортила ушки,Эти маленькие дырочки,Которыми ты слушаешь,Я вела себя по-свински,Но ты же знаешь,Ты – мой самый близкийМилый человечек,Ну шевельни свои железкиИ загрузись, прости!
26+26 вроде так...........................