1到33，任意6个数的和为96的组合（6个数不能重复，组合间不考虑顺序问题），用VB编程出来

for a =1 to 28
for b=a+1 to 29
for c=b+1 to 30
for d=c+1 to 31
for e=d+1 to 32
for f=e+1 to 33
if a++c+d+e=96 then print a;b;c;d;e
next:next:next:next:next:next

我劝你迷途知返吧，赌博不是最终出路的！注：这个程序其实是很简单的!

Dim a, b, c, d, e, f As Integer
Private Sub form_click()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
For i = 1 To 33
Randomize
a = CInt(Rnd() * 33 + 1)
b = CInt(Rnd() * 33 + 1)
c = CInt(Rnd() * 33 + 1)
d = CInt(Rnd() * 33 + 1)
e = CInt(Rnd() * 33 + 1)
f = CInt(Rnd() * 33 + 1)
If a + b + c + d + e + f = 96 Then Print a; b; c; d; e; f
Next
End Sub