1到33数字中任意6个数字相加等于95有多少排列方法

Dim a as integer, b as integer, c as integer
Dim d as integer, e as integer, f as integer
For a = 1 To 33
For b = a+1 To 33
For c = b+1 To 33
For d = c+1 To 33
For e = d+1 To 33
For f = e+1 To 33
If a < b And b < c And c < d And d < e And e < f Then Debug.Print a & vbTab & b & vbTab & c & vbTab & d & vbTab & e & vbTab & f
endif
Next f
Next e
Next d
Next c
Next b
Next a

33+32+19+5+4+2=95