我这个小程序问题在哪？

Question

Private Sub Form_click()For a = 1 To 4
    For b = 1 To 4
        For c = 1 To 4
            For d = 1 To 4
            n = a * 1000 + b * 100 + c * 10 + d
Print n
            
Next d
        Next c
    Next b
Next a
End Sub

Answer 1

你用print n当然只能打印出一个数n了

Answer 2

Option Explicit
Dim a As Integer, b As Integer, c As Integer, d As Integer, n As IntegerPrivate Sub Form_click()For a = 1 To 4
    For b = 1 To 4
        For c = 1 To 4
            For d = 1 To 4
            n = a * 1000 + b * 100 + c * 10 + d
            Print n  '//在这打印
            Next d
        Next c
    Next b
Next a
End Sub

Answer 3

你的” Print n  “没有循环啊。

Answer 4

Dim a As Integer, b As Integer, c As Integer, d As Integer, p As StringPrivate Sub Form_click()
For a = 1 To 4
    For b = 1 To 4
        For c = 1 To 4
            For d = 1 To 4
            p = a * 1000 + b * 100 + c * 10 + d
            DoEvents
            If InStr(1, p, "1") > 0 And InStr(1, p, "2") > 0 And InStr(1, p, "3") > 0 And InStr(1, p, "4") > 0 Then Print p
            Next d
        Next c
    Next b
Next a
End Sub

Answer 5

Dim a As Integer, b As Integer, c As Integer, d As Integer, p As StringPrivate Sub Form_click()
For a = 1 To 4
    For b = 1 To 4
        For c = 1 To 4
            For d = 1 To 4
            p = a * 1000 + b * 100 + c * 10 + d
              DoEvents
              If InStr(1, p, "1") > 0 And InStr(1, p, "2") > 0 And _
                 InStr(1, p, "3") > 0 And InStr(1, p, "4") > 0 Then
                Print p
              End If
            Next d
        Next c
    Next b
Next a
End Sub