VB6 用1~9组成9位数(1~9数字不重复),列出所有这类9位数的算法

Private Sub Command1_Click()
Dim i1 As Integer
Dim i2 As Integer
Dim i3 As Integer
Dim i4 As Integer
Dim i5 As Integer
Dim i6 As Integer
Dim i7 As Integer
Dim i8 As Integer
Dim i9 As Integer

Dim count As Long

For i1 = 1 To 9
For i2 = 1 To 9
If i2 <> i1 Then
For i3 = 1 To 9
If i3 <> i1 And i3 <> i2 Then
For i4 = 1 To 9
If i4 <> i1 And i4 <> i2 And i4 <> i3 Then
For i5 = 1 To 9
If i5 <> i1 And i5 <> i2 And i5 <> i3 And i5 <> i4 Then
For i6 = 1 To 9
If i6 <> i1 And i6 <> i2 And i6 <> i3 And i6 <> i4 And i6 <> i5 Then
For i7 = 1 To 9
If i7 <> i1 And i7 <> i2 And i7 <> i3 And i7 <> i4 And i7 <> i5 And i7 <> i6 Then
For i8 = 1 To 9
If i8 <> i1 And i8 <> i