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

         

Option Explicit Public Mx As


' Option Explicit Public Mx As Byte Private My As Integer
Public Sub Mother1() 'Объявление статической переменной Static Count As Byte Count = Count + 1 Mx = Mx - 2: Fz = My + 2 Debug.Print "Mother: Статическая переменная Count =", Count 'Вызов процедуры Father другого модуля или заключительной - Finish If Fx < Mx Then Father1 Else Finish End Sub
Public Sub Finish() 'Заключительная печать Debug.Print "Finish: Fx = ", Fx, "Fy =", Fy, "Fz =", Fz Debug.Print "Mx =", Mx, "My =", My, "Mz =", Mz 'Объявления разных типов и печать значений, полученных при объявлении Dim B As Byte, I As Integer, L As Long Dim Sng As Single, D As Double, C As Currency Dim SF As String * 7, SV As String, Dat As Date Dim O As Object, V Debug.Print "B =", B, "I=", I, "L=", L Debug.Print "Sng =", Sng, "D =", D; "C=", C Debug.Print "SF =", SF, "SV =", SV, "Dat=", Dat If O Is Nothing Then Debug.Print "Объект не определен" If V = Empty Then Debug.Print "Variant переменные не инициализированы" End Sub
Пример 3.1.
Закрыть окно




'Option Explicit
Public Mx As Byte
Private My As Integer
Public Sub Mother1()
'Объявление статической переменной
Static Count As Byte
Count = Count + 1
Mx = Mx - 2: Fz = My + 2
Debug.Print "Mother: Статическая переменная Count =", Count
' Вызов процедуры Father другого модуля или заключительной - Finish


If Fx < Mx Then Father1 Else Finish
End Sub
Public Sub Finish()
'Заключительная печать
Debug.Print "Finish: Fx = ", Fx, "Fy =", Fy, "Fz =", Fz
Debug.Print "Mx =", Mx, "My =", My, "Mz =", Mz
'Объявления разных типов и печать значений, полученных при объявлении
Dim B As Byte, I As Integer, L As Long
Dim Sng As Single, D As Double, C As Currency
Dim SF As String * 7, SV As String, Dat As Date
Dim O As Object, V
Debug.Print "B =", B, "I=", I, "L=", L
Debug.Print "Sng =", Sng, "D =", D; "C=", C
Debug.Print "SF =", SF, "SV =", SV, "Dat=", Dat
If O Is Nothing Then Debug.Print "Объект не определен"
If V = Empty Then Debug.Print "Variant переменные не инициализированы"
End Sub

Содержание раздела