VB idioma 8 seleccione 6 toda la salida de texto combinada

Proporcionarle una referencia para la tasa de ganancias de Shuangseqiu y todas las combinaciones.

dim c siempre que 'Número total de combinaciones

Private Sub cmdCommand1_Click()

Dim Str como cadena

Abra "c：\1.txt" para obtener salida como #1

Para i1 = 1 a 32 - 5

Para i2 = i1 1 a 32 - 4

Para i3 = i2 1 a 32 - 3

Para i4 = i3 1 a 32 -2

Para i5 = i4 1 a 32 - 1

Para i6 = i5 1 a 32

Para i7 = 1 a 16

' DoEvents

'Str = " "

Str = i1 & " i2 & " i3 & i4 & " i5 & i6 & " i7

Imprimir #1, Str

c = c 1

Siguiente paso

Siguiente paso Un paso

Cerrar #1

MsgBox c

Fin Sub