vb考试题1

来源：百度知道 编辑：UC知道 时间：2024/09/21 07:01:29
有1、2、3、4个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？

Private Sub Command1_Click()
Dim n As Integer
n = 0
For i = 1 To 4
For j = 1 To 4
For k = 1 To 4
If i <> j And j <> k And i <> k Then
n = n + 1
Print n & " " & i & j & k
End If
Next k
Next j
Next i
End Sub

结果
1 123
2 124
3 132
4 134
5 142
6 143
7 213
8 214
9 231
10 234
11 241
12 243
13 312
14 314
15 321
16 324
17 341
18 342
19 412
20 413
21 421
22 423
23 431
24 432