作业帮VB求一个三位数的排列组合如,给出（输入）的三位数为abc分别得出 abc acb bac bca cab cba怎么写代码.我能用mid方法一个一个的求出来,但老觉得太麻烦,如果求的是8位9位数就太多了`````有没有用for
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/03 00:15:45
VB求一个三位数的排列组合如,给出（输入）的三位数为abc分别得出 abc acb bac bca cab cba怎么写代码.我能用mid方法一个一个的求出来,但老觉得太麻烦,如果求的是8位9位数就太多了`````有没有用for
VB求一个三位数的排列组合
如,给出（输入）的三位数为abc
分别得出 abc acb bac bca cab cba
怎么写代码.
我能用mid方法一个一个的求出来,但老觉得太麻烦,如果求的是8位9位数就太多了`````有没有用for循环的方法求出呢?
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 Sub