VB输出由1,2,3,组成的三位数字,并统计他们有多少种组合(注:三位数字不可以重复）

来源：学生作业帮编辑：拍题作业网作业帮分类：数学作业时间：2024/05/04 05:09:41

给你比较简单的一种算法：
n=0
For i = 1 To 3
For j = 1 To 3
For k = 1 To 3
If i j And j k And k i Then
Print i & j & k
n=n+1
Next k
Next j
Next i
print "总组合数" & n
输出结果：
123
132
213
231
312
321
总组合数6

这种算法逻辑比较简单,可是效率不是最高,不知道你是不是要求一种效率最高的解法?
希望能对你有所帮助.

VB输出由1,2,3,组成的三位数字,并统计他们有多少种组合(注:三位数字不可以重复）由数字1 2 3 4 5 6组成无重复数字的三位奇数有多少个. 由数字0,1,2,3,4可以组成多少个三位整数?（各位上的数字允许重复）由数字1、2、3、4、5、6、7、8可组成多少个三位数?多少个三位偶数?多少个没有重复数字的三位偶数?多... 由数字0、1、2、3、4可以组成多少个没有重复数字的三位偶数? 由0,1,2,3,4,5这六个数字可以组成多少个没有重复数字的三位数三位偶数三位奇数由0、1、2、3这四个数字，可组成无重复数字的三位偶数有______个．由数字1、2、3、4可以组成______个没有重复数字的三位数字． 0,1,2,3,4能组成多少不重复的三位数字,偶数有多少个? 数学题：用0,1,2,3,4能组成多少不重复的三位数字,偶数有多少个? 用数字0、1、3、4可以组成多少个没有重复数字的三位奇数? 由数字1,2,3,4,5,6,7,8可以组成多少个百位是8的没有重复数字的三位偶数