Файловый архив студентов. Файловый архив студентов.
1271 вуз, 4663 предмет.
/ Регистрация
FAQ Обратная связь Вопросы и предложения
Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Московский государственный университет приборостроения и информатики
Предмет:
[НЕСОРТИРОВАННОЕ]
Файл:

informatika_uchebnik_Makarova

.pdf
Скачиваний:
20
Добавлен:
09.04.2015
Размер:
19.85 Mб
Скачать
☆

2.

:

Write ; [< >]

.

Print :

– ;

– .

( – ).

19.30.

3.

:

Put [# ; [# ],< >

# - , ,

. ,

Get, Put, Seek.

19.31.

 

 

601

Type Record

 

ID As Integer

 

 

Name As String * 20

 

End Type

 

Dim MyRecord As Record

 

 

 

Open "TESTFILE" For Random As

 

#1 Len = Len(MyRecord)

,

 

 

For RecordNumber = 1 To 5

 

MyRecord.ID = RecordNumber

 

MyRecord.Name = "

 

-" & RecordNumber

 

Put #1, RecordNumber, MyRecord

 

Next RecordNumber

 

Close #1

 

1.

:

Input # ; < >

,

.

19.32.

 

 

Open "FILE" For Input As #1

 

Do While Not EOF(l)

 

Input # 1 ; MyString; MyNumber

 

Debug.Print MyString; MyNumber

 

Loop

 

Close #1

 

Line Input # ; < >

" (Chr(13)) .

19.33.

 

 

Open "TESTFILE" For Input As #1

 

Do While Not EOF(l)

,

Line Input #1, TextLine

 

Debug.Print TextLine

Debug

Loop

 

Close #1

 

2.

:

602

Get Put [# ; [# ],< >

19.34.

( )

:

Seek [#] ;

– (1 - 2 147 483 647) .

, , SEEK

.

19.35.

 

 

Dim MyChar As String

 

 

 

Open "FILE" For Input As #1

,

 

 

MaxSize = LOF(l)

 

 

 

, , ,

.

19.36.

603

,

( ,

, , .).

MsgBox() . 1.

MsgBox (" ")

,

.,

.

19.37.

 

 

Option Explicit

 

 

 

 

 

Sub Msg_Priim()

 

Dim a As Single

 

Randomize

 

 

 

a=rnd

 

 

 

MsgBox "

 

" & Str(a)

 

End Sub

 

( . 19.23).

604

. 19.23.

2.

:

Msg (" "[, < >] [, " "] [, < >, < >])

< >

- – 1024 ;

< >

- ,

 

 

, ;

< >

-

;

< >

-

 

 

 

, ;

< >

-

, .

MsgBox() . 19.7.

MsgBox() ( ), .

 

1 9 . 7 .

 

 

 

 

 

 

 

 

 

 

 

 

 

0

vbOKOnly

OK

 

1

vbOKCancel

OK,

 

2

vbAbortRetryIgnore

, ,

 

3

vbYesNoCancel

, ,

 

4

vbYesNo

,

 

5

vbRetryCancel

,

19.38.

 

 

605

Option Explicit

 

 

 

Sub Msg_Priim()

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Dim Response As Integer

 

 

Dim Msg As String

 

 

 

Dim Title As String

 

 

 

 

Dim Help As String

 

(vbYesNoCancel

+

+

Dim Style As Integer

 

vbDefaultButtonH vbQuestion)

 

Dim Ctxt As Integer

 

 

 

Msg

=

"

 

 

 

?"

 

 

-

Style = 35

 

 

 

 

 

Title = " -

 

 

 

"

 

 

 

 

 

Help = "DEMO.HLP"

 

 

 

Ctxt = 0

 

 

 

 

 

 

Response =

MsgBox(Msg;

 

 

 

Style; Title; Help; Ctxt)

 

 

 

 

End Sub

 

 

 

 

 

 

( . 19.24).

. 19.24.

InputBox()

. :

Input (< > [,< >][.< >] [, ][,Y ][, < >, < >])

< > - , ( );

, Y

- .

19.39.

 

 

 

Option Explicit

 

 

Sub Msg_Inp()

 

 

 

 

 

 

Dim Response As String

 

Dim Message As String

 

Dim Default As String

 

 

Dim Title As String

 

Dim Help As String

 

 

Dim Style As Integer

 

 

Dim Ctxt As Integer

 

 

Message = " ,

 

 

606

"

 

 

Title = " "

 

 

Default = "

 

"

Response

=

 

InputBox(Message;

Title; Default;

 

100; 100)

 

 

 

End Sub

 

 

 

 

 

 

 

( . 19.25).

. 19.25.

.

,

– . ,

( . 19.26) ( ) .

. 19.26.

19.8.

,

. –

.

,

Caption Labels().

607

19.40.

Sheets("< >"). Labels ("< >")

.Caption="c po a "

, , .

EditBoxes(), .

19.41.

Sheets("< >"). ditBoxes("< >"). t="

"

, :

MultyLine = True – ;

InputType - , (xlFormula, xlInteger, xllNumber, xlReference, xlText).

.

, .

– Caption.

, Value ( True,

, False – ). CheckBoxes().

. , ,

;

. OptionButtons().

Value True, , False – .

,

. .

:

ListFillRange – ,

;

List() - ,

.

,

DropDowns().

.

, .

.

,

.

. Value

, ,

ScrollBars(). Min , ,

. LargeChange SmallChange

Value.

,

LargeChange.

. 19.27

.

:

( , , .);

–

, ,

. ;

( , , ),

( , , , , ),

608

;

( , , ),

, ;

(< >, < >, < >, < >).

. 19.27.

« » .

SQL

SQL

),

. . 15),

,

,

.

,

,

(" ") ( . 19.28):

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1

 

2

...

n

 

1

 

 

 

 

 

 

 

 

2

 

 

 

 

 

 

 

 

…

 

 

 

 

 

 

 

 

m

 

 

 

 

 

 

 

 

. 19.28.

 

.

, .

, .

,

.

,

, :

609

1, 2,.... n)

19.42. :

, , , ,...).

( . 19.29).

 

 

 

.

.

 

 

 

 

 

 

 

12.12.80

123245

 

 

 

1.1.80

233244

 

. 19.29.

,

. , , ,

.

( . 19.29).

.

, ,

: – , – .

– ,

( ). ,

.

, ).

.

( ).

19.43. ;

.

:

. ;

]+[ ]+[ ].

, , ,

.

,

. 19.30).

 

,

1

2

2

10

3

1

.

 

. 19.30.

,

– ( );

, . ,

,

.

, ( ) ,

. , ,

610

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]
Помощь Обратная связь Вопросы и предложения Пользовательское соглашение Политика конфиденциальности