用vbAfor循环语句如何写

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

示例代码如下

img

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

img

您好，我是有问必答小助手，您的问题已经有小伙伴帮您解答，感谢您对有问必答的支持与关注！
PS：问答VIP年卡 【限时加赠：IT技术图书免费领】，了解详情>>> https://vip.csdn.net/askvip?utm_source=1146287632