VB求一个三位数的排列组合

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/05 09:54:52

VB求一个三位数的排列组合
如,给出（输入）的三位数为abc
分别得出 abc acb bac bca cab cba
怎么写代码.
我能用mid方法一个一个的求出来,但老觉得太麻烦,如果求的是8位9位数就太多了`````有没有用for循环的方法求出呢?

Private Sub Form_Click()
Dim a(3), i, j, k, x As Integer
x = Val(InputBox("x="))
If x < 100 Or x > 1000 Then Exit Sub
a(1) = x \ 100 '取百位上的数字
a(2) = x \ 10 Mod 10 '取十位上的数字
a(3) = x Mod 10 '取个位上的数字
Cls
For i = 1 To 3
For j = 1 To 3
For k = 1 To 3
If a(i) a(j) And a(j) a(k) And a(k) a(i) Then
Print a(i) & a(j) & a(k) & " ";
End If
Next
Next
Next
Print
End Su

VB求一个三位数的排列组合 VB有一个三位数abc和a 的积为一个四位正整数baac,编程求这一个三位数 1.输入一个三位整数,将数字位置重新排列,组成一个尽可大的三位数.求vb算法一个三位数 abc a>b>c 这样的三位数有几个用VB语言写求一个排列组合的题,让我明白什么是排列组合 4.6.7三个数有一个数出现了两次求所有排列组合!三位数排列 VB计算问题：一个三位数依次加上123 456.求算法求给解释一下vb的一个式子编写VB程序,求满足三位数中的各个数位之和大于13的数的个数. 急求所有百位数大于十位数,十位数大于个位数的三位数的个数 vb 语句从0,1,2,3,4,5,6中选出3个不同的数构成三位数,求所有的三位数之和.用排列组合,求解释. vb 加法计算一个三位数加4位数怎么表达