Как выводить информацию оператором Print

Будем пробовать, вы тоже пробуйте:

Фрагмент программы	Результат на экране
Print	Печатается пустая строка
Print 1
Print 1;66	1 66
Print 1; -2; 3.14	1 -2 3.14
Print 1, -2,3.14	1 -2 3.14

Ага, значит, оператор распечатывает список элементов, разделенных точками с запятой или запятыми. Причем, если перед элементом стоит точка с запятой, он печатается почти вплотную к предыдущему, а если запятая, то подальше, выравниваясь по столбцам. Проверим фрагмент из трех операторов:

Print 12345, 4, 67824, 240 Print 345, -94, 67, 240456 Print 45, 45678, 67, 0

12345 4 67824 240 345 -94 67 240456 45 45678 67 0

Еще:

Print 45; 45678, 67; 0

45 45678 67 0

Что такое элемент? Мы видели, что это может быть число. А еще что? Выражение. Проверим:

Print 1+2
a = 88: Print a
a = 88: Print a+1
a = 88: Print a+1, а -1	89 87

В последнем операторе - два элемента.

До сих пор мы печатали только числовые переменные и выражения. Но элемент может быть и строкой:

Print "Кошка"	Кошка
Print "Кошка", "Собака"	Кошка Собака

Как видите, строку мы обязаны брать в двойные кавычки.

Print "Кошка"; "Собака"

КошкаСобака

Как видите, если между строками стоит точка с запятой, они печатается вплотную друг к другу. Числа же в этом случае все-таки разделяются пробелами.

Как все же отодвинуть собаку от кошки на пару пробелов? Очень просто - поставьте эти два пробела внутри "собачьих" кавычек перед буквой С:

Print "Кошка"; " Собака"

Кошка Собака

А можно внутри "кошачьих" после буквы а.

Visual Basic не обращает внимания, что написано внутри кавычек, и ничего там не вычисляет. Он просто копирует это на экран, включая пробелы, цифры, знаки арифметических действий и любую ерунду:

Print "№??:?№()*):%*%;*_?::"	№??:?№()*):%*%;*_?::
Print "3+2"	3+2
Print "3+2="; 3+2	3+2=5

Элемент может быть строковой переменной или выражением:

a = "Кошка": Print a	Кошка
a = "Кошка": Print a+а	КошкаКошка

Итак, элемент оператора Print может быть числом, числовой переменной и числовым выражением, а также строкой, строковой переменной и строковым выражением. Есть и другие типы, о них мы пока не говорим.

Вообще, в будущем, объясняя какой-нибудь новый оператор, я часто буду для простоты ограничиваться коротенькими примерами его записи, например, Print 66 или Print "Кошка". Вы должны знать, что почти везде на месте числа может стоять числовая переменная или арифметическое выражение, а на месте строки - строковая переменная или строковое выражение. И вообще, вместо константы данного типа может стоять переменная или выражение этого типа.

Обычно в операторе Print используют вперемешку строковые и числовые данные. Пусть вес поросенка хранится в памяти, в переменной Ves. Тогда распечатать его можно таким оператором:

Print "Вес поросенка ="; Ves; "килограммов"

Вес поросенка = 35 килограммов

Здесь вы видите три элемента, разделенные точками с запятой.

Пусть название месяца года хранится в памяти, в переменной Mes. Пусть вы хотите напечатать, что именно этот месяц у вас отпускной. Распечатать это можно таким оператором:

Print "Месяц "; Mes; " для меня отпускной."

Месяц май для меня отпускной.

Обратили внимание на пробелы внутри кавычек? Если бы их не было, было бы вот что:

Print "Месяц"; Mes; "для меня отпускной."

Месяцмайдля меня отпускной.

Мы привыкли, что каждый следующий оператор Print печатает с новой строки. Если в конце оператора Print поставить запятую или точку с запятой, то следующий оператор Print будет продолжать печатать в той же строке, а если не поставить - то начнет со следующей. Проверим фрагмент из четырех операторов:

Print 1; 66, Print 2; Print 3 Print 4;

1 66 2 3

Проверьте этот пример, запустив его один раз, затем еще раз. Объясните увиденное.

Все, что здесь было сказано, относится и к оператору Debug.Print.

То, что печатать, указывается в самом операторе Print, а вот как печатать и с какого места, зависит от свойств объекта, на котором ведется печать (в нашем случае объект - форма):

Form1.CurrentX= 1000 Form1.CurrentY= 3000 Print 99	Число 99 будет напечатано на 1000 твипов правее и на 3000 твипов ниже левого верхнего угла формы.
Form1.CurrentX = 1000 Print 99 Form1.CurrentX = 1000 Print 44	Числа 99 и 44 будут напечатаны в одном месте. Получится мазня.
Form1.FontSize= 20	Размер шрифта
Form1.FontName= "Arial"	Название (начертание) шрифта
Form1.FontBold= True	Полужирный шрифт(True - назначить, False - отменить)
Form1.FontItalic= True	Курсив(наклонный шрифт)
Form1.ForeColor= vbBlue	Цвет шрифта
Form1.FontUnderline= True	Подчеркнутый шрифт
Form1.FontStrikethru= True	Перечеркнутый шрифт

Если вы установите в окне свойств формы свойство FontTransparent равным False, то через пространство между буквами не будет просвечивать поверхность формы.

У оператора Print есть еще кое-какие возможности, но, пожалуй, хватит.

Дата добавления: 2015-11-16