Файл: informatika_uchebnik_Makarova.pdf

586

)         – 

.

 19.13.

,

, 

, 

:

[Private | Public] Type <typename>
< elementname1> As <type>
< elementname2> As <type>
...
End Type

 <typename>        – 

;

      < elementname>  – 

.

 Dim 

 Public 

, 

. 

, 

.

 19.14.

Type Student
FullName As String *20
Group As Single
BirthDay As Date
Hight As Integer   ...
End Type
Dim Student_Card (1 To 1000) As Student

 Student 

 Student_Card 

 1000 

, 

: 

, 

, 

, 

, 

.

– 

, 

, 

.

:

587

Const <const> = <

>

 <const>        – 

;

      <

> – 

.

:

 Public:

Public Const Datel=#12.12.96#

:

Const Date2=# 12.12.97#

, 

 – 

.

VBA 

, 

vb.

Excel 5.0 

, 

xl.

 VBA

, 

, 

.

:

<var>= <formula>

 <var>         – 

;

  <formula> – 

.

 "=" 

, 

. 

, 

, 

.

 19.15.

Place="d:\windows\system"
File="GameTree.Exe"
Student_Card( 100).Group= 133

 – 

.

VBA 

, 

. 

 (

) 

 (

. 19.5).

   1 9 . 5 . 

 VBA

588

 (

, 

).

.

 19.16.

Disct=(S – P)/(dt)^2

  S  –   ,  

  dt  

 2, 

; 

 Disct.

 – 

. 

 '. 

. 

, 

. 

,

.

 19.17.

Option Explicit

Sub 

()

 Excel 5.0

Dim  numrows  As  Integer;  numcols  As
Integer
Dim therow As Integer; thecol As
Integer
numrows = Selection.Rows.Count
numcols = Selection.Columns.Count

Randomize

589

For therow = 1 To numrows

For thecol = 1 To numcols
Selection.Cells(therow; thecol).Value =
Rnd

r-Next,

Selection – 
Cells –

 Value –

 "

"

Next thecol
Next therow
End Sub

 VBA 

 (

).

– 

 VBA.

:

Sub <

>

)

..................................

 (

)

..................................
End Sub

Sub -

, 

,

,

. 

Sub

End Sub.

 – 

 VBA.

, 

, 

. 

; 

, 

.  

  «

»  (

.  19.22)  

.

. 19.22.

 <

> 

, 

, 

, 

. 

.

 4 

:

590

 (

), 

, 

;

,  

;

, 

 Excel, 

, 

.);

, 

, 

 VBA.

 (

).

1.

2.

)

,

 (

)

3.

 Excel 5.0) – 

, 

.

, 

.

, 

.

:

:

Option Private Module

,

,

.

,