VB求一个三位数的排列组合如,给出(输入)的三位数为abc分别得出 abc acb bac bca cab cba怎么写代码.我能用mid方法一个一个的求出来,但老觉得太麻烦,如果求的是8位9位数就太多了`````有没有用for
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/24 11:22:48
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