Option Explicit

Sub Спортлото_6_36()

Dim max As Byte
max =  36 

Dim q As Byte
Dim w As Byte
Dim e As Byte
Dim r As Byte
Dim t As Byte
Dim y As Byte
Dim Количество As Long
Dim s As String
    
    For q =  1  To max -  5 
        For w = q +  1  To max -  4 
            For e = w +  1  To max -  3 
                For r = e +  1  To max -  2 
                    For t = r +  1  To max -  1 
                        For y = t +  1  To max
                            Количество = Количество +  1 
                      Selection.TypeText Text:=Количество & " - " & q & w & e & r & t & y & Chr( 13 )
                            's = s & " " & Количество & " " & i & j & k & Chr(13)
                        Next y
                    Next t
                Next r
            Next e
        Next w
    Next q
    
'MsgBox$ Количество & " " & s
    
End Sub

Sub ww()

Dim MyAppNum As Variant
Dim MyNumber As Integer
MyNumber =  5 
On Error Resume Next
MyAppNum = Shell("c:\windows\calc.exe",  1 )
AppActivate MyAppNum
SendKeys Str(MyNumber) & "!^c%{F4}", True

End Sub

Sub Калькулятор_Windows()

'использовать калькулятор Windows для вычислений в коде VBA
'допустим, требуется вычислить 2*5
Dim MyAppNum As Variant
On Error Resume Next
'функцией Shell запускается исполняемый файл калькулятора calc.exe в каталоге Windows
MyAppNum = Shell("c:\windows\calc.exe",  1 )
'окно калькулятора делается текущим при помощи оператора AppActivate
AppActivate MyAppNum
'виртуальный ввод с клавиатуры
'в окне калькулятора будет “нажата” цифровая клавиша 5
'затем будет введен символ “*”
'затем будет “нажата” цифровая клавиша 2
'в окошке калькулятора появится результат (число 10)
SendKeys "2*5^c%{F4}", True
'символы “^c” соответствуют нажатию [Ctrl]+[c]
'что влечет за собой копирование результата в буфер
'наконец, символы “%{F4}” соответствуют сочетанию [Alt]+[F4]
'благодаря чему окно калькулятора тут же закрывается
'остается лишь использовать хранящийся в буфере результат
'например, вставить его вызовом метода Paste соответствующего объекта

End Sub

Sub Ф_6_из_36()

Dim iss As Byte
iss =  6 

Dim max As Byte
max =  36 

Dim n As Double

Dim factorial_iss As Double
n = iss
factorial_iss = fact(n)
Dim factorial_max As Double
n = max
factorial_max = fact(n)
Dim factorial_max_minus_factorial_is As Double
n = max - iss
factorial_max_minus_factorial_is = fact(n)

MsgBox$ factorial_max / factorial_max_minus_factorial_is / factorial_iss

'нельзя указывать, так как «!» воспринимается как Single ! Вещественный
'MsgBox$ max!/(max-iss)!/iss!

End Sub

Function fact(ByVal n As Integer) As Double

If n =  0  Or n =  1  Then fact =  1  Else fact = n * fact(n -  1 )

End Function