请教高手:方程解的个数

这个运算时间复杂度好大 计算机只能编码无法计算出来 这个通解太多了 估计都在上万个
vb代码
Private Sub Command1_Click()
Dim x, y, z, u, v, t, sum As Integer
sum = 0
For x = 0 To 100
For y = 0 To 50
For z = 0 To 20
For u = 0 To 10
For v = 0 To 5
For t = 0 To 2
If x + 2 * y + 5 * z + 10 * u + 20 * v + 50 * t = 100 Then sum = sum + 1
Next t
Next v
Next u
Next z
Next y
Next x
End Sub
请教数学算法～～

4562

x y z u v t 计数
* * * * * * * * * * * * * * * * * * * * * *
0 0 0 0 0 2 1
0 0 0 0 5 0 2
0 0 0 1 2 1 3
0 0 0 2 4 0 4
0 0 0 3 1 1 5
0 0 0 4 3 0 6
0 0 0 5 0 1 7
0 0 0 6 2 0 8
0 0 0 8 1 0 9
0 0 0 10 0 0 10
0 0 2 0 2 1 11
0 0 2 1 4 0 12
0 0 2 2 1 1 13
0 0 2 3 3 0 14
0 0 2 4 0 1 15
0 0 2 5 2 0 16
0 0 2 7 1 0 17
0 0 2 9 0 0 18
0 0 4 0 4