ПРАВДА НЕ СОВСЕМ УВЕРЕНА ЧТО ЭТО ТО ЧТО ТЕБЕ НУЖНО ПОСМОТРИ МОЖЕТ ПОМОЖЕТ основные возможности редактора Paint. Редактор Paint имеет возможность загрузки, редактирования и записи в файл полноэкранных изображений. Поскольку редактор поддерживает технологию OLE, то полученные рисунки можно скопировать в буфер, оформить их в виде объекта и встраивать в тексты редактора WordPad и иных Windows-приложений. При этом редактор Paint может быть как сервером, так и клиентом при динамическом обмене данными между различными приложениями.<span>Одна из ценных возможностей - отмена результатов последних операций. Она реализуется командой Отменить в позиции Правка Главного меню. Другая весьма ценная команда - возможность детального (с наблюдением каждого пикселя) просмотра рисунков. Для этого используется команда Масштаб в позиции ВидГлавного меню. КомандаПросмотреть рисунок позволяет наблюдать полноэкранное изображение.</span><span>Окно программы Paint. Графический -редактор Paint одновременно может работать только с одним документом, поэтому окно документа является частью окна программы, как показано на рис. 1.</span>Главное меню редактора Paint содержит следующие позиции:<span>· Файл - такие же операции с файлами, как и в редакторе WordPad (задание нового файла, загрузка файла, запись файла с текущим и измененным именем, распечатка файла принтером), дополнены опциями: замостить рабочий стол Windows, в центр рабочего стола Windows.</span><span>· Правка - редактирование файла, работа с буфером обмена, отмена предыдущих действий и повтор результатов отмененного действия</span>· Вид - управление выводом меню инструментов и цветов, панелью атрибутов текста, а также статусной строки, управление масштабом и обзором изображений.<span>· Рисунок - операции с выделенными изображениями (поворот, инверсия, изменение атрибутов, очистка, изменение параметров рисунка).</span><span>· Палитра - установка опций графического редактора (установка и запись палитры цветов).</span><span>· Справка - обращение к справке по графическому редактору.</span>Кроме стандартных элементов (заголовка и горизонтального меню), окно имеет горизонтальную и вертикальную полосы прокрутки, а также четыре специальные области:· рабочее поле;· панель инструментов;· палитру цветов;
<span>· поле дополнительных параметров инструментов</span>.
На 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