如何实现,在1-33之间取6个数为一组,6个数从小到大排列,且不能重复...答:< Dim a,i,lp lp = True a = Array(1,2,3,4,5,6)Do While lp print a If a(5) < 33 Then a(5) = a(5) + 1 Else If a(4) < 32 Then a(4) = a(4) + 1 a(5) = a(4) + 1 Else If a(3) < 31 Then a(3) = a(3) + 1 a(4) = a(3) + 1 Else...