Основы офисного программирования и язык VBA


Пример 14.2


Public Sub WritingWithPrint()

Dim MyBool As Boolean, MyDate As Date

Dim MyNull As Variant, MyFloat As Double, MyErr As Variant

Print #1, "Первая строка файла" ' запись текстовой строки.

'Первая строка файла

Print #1, "Зона 1"; Tab; "Зона 2" ' запись в двух позициях табуляции.

'Зона 1 Зона 2

Print #1, "Зона 1", "Зона 2" ' запятая разделяет как табуляции.

'Зона 1 Зона 2

Print #1, "Привет,"; "старик!" '; склеивает выражения.

'Привет,старик!

Print #1, "Привет,"; "старик!" ' пробел действует аналогично.

'Привет,старик!

Print #1, Spc(5); "5 пробелов " ' вставка 5 пробелов слева.

' 5 пробелов

Print #1, Tab(20); "Старик,"; Tab(10); "привет!" ' печать в соответствующих столбцах.

' Старик

' привет!

Print #1, "one"; " "; "two" 'разделение пробелом

'one two

MyBool = False ' булева переменная

Print #1, MyBool

'False

MyDate = #6/14/1999# ' значение даты

Print #1, MyDate ' печать в кратком формате

'14.06.99

MyNull = Null ' нулевое значение

Print #1, MyNull

'Null

MyFloat = 3.1416 'вещественное значение

' использование функции Format:

Print #1, MyFloat, Format(MyFloat, "#.00"), Format(MyFloat, "00.000")

'3,1416 3,14 03,142

On Error Resume Next

Err.Raise 6

MyErr = Err

Print #1, MyErr

MyErr = CVErr(2000)

Print #1, MyErr

End Sub




Начало  Назад  Вперед



Книжный магазин