зкз одпдлдммни сзоЯ жЯозры, йнг рсЯмнбзсрю йнпнцд з онмюсмди.

Опзлдп:

With MyObject

.Height = 100

'Аналогично выражению MyObject.Height = 100.

.Caption = "Hello World"

'Аналогично выражению MyObject.Caption = "Hello World". With .Font

.Color = Red ' Аналогично выражению MyObject.Font.Color = Red.

.Bold = True ' Аналогично выражению MyObject.Font.Bold = True. End With

End With

17.20.4Write

Write #filenumber, [outputlist] - онркдгнбЯсдкымн жЯозръбЯдс гЯммъд б уЯик.

Опзлдп:

Open "TESTFILE" For Output As #1 ' Открываем файл для записи

Write #1, "Hello World", 234 ' Записываем строку, разделѐнную запятой

Write #1, ' Записываем пустую линию

Dim MyBool, MyDate, MyNull, MyError

' Присваиваем Boolean, Date, Null и Error значения

MyBool = False

MyDate = #February 12, 1969#

MyNull = Null

MyError = CVErr(32767)

'Boolean запишется как #TRUE# или #FALSE#. Дата запишется

'как #1969-01-12#. Null запишется как #NULL#.

'Error капишется как #ERROR код_ошибки#.

Write #1, MyBool ; " это Boolean значение

Write #1, MyDate ; " это Дата"

Write #1, MyNull ; " это Null"

Write #1, MyError ; " а это Error"

Close #1 ' Закрываем файл

18Приложение: Графики функций к самостоятельным заданиям п. 4.6

БЯпзЯмс	ВпЯузй утмйхзи

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30