用vbAfor循环语句如何写

Question

用vbAfor循环语句如何写：有四个数字:1,2,3,4,能组成多少个互不相同且无重复数字的三位数?各是多少?这个程序

Answer 1

示例代码如下

Sub getnumbers()
num = 0
result = ""
For i = 1 To 4
  For j = 1 To 4
    If i <> j Then
      For k = 1 To 4
        If j <> k And i <> k Then
          result = result & vbNewLine & i & j & k
          num = num + 1
        End If
      Next
    End If
  Next
Next
result = Trim(result)
MsgBox "ÊýÁ¿£º" & num & vbNewLine & result

End Sub