Question

VB算法问题，五个数抽取无重复三位数并能被4整除的

就说，有5个数分别是 0，4，5，6，7
抽取一个三位数的数字并能被4整除
这样的数有几个？

要求能运行通过，给出具体算法哦~
一个按钮点击即输出，输出具体的三位数和这样数字的个数！！！

谢谢了……

Answer 1

Private Sub Command1_Click()
Dim A As Integer, B As Integer, C As Integer
Dim M As Integer, N As Integer
Form1.AutoRedraw = True
For A = 0 To 7
If A = 0 Or A > 3 Then
For B = 0 To 7
If (B = 0 Or B > 3) And B <> A Then
For C = 0 To 7
If (C = 0 Or C > 3) And C <> A And C <> B Then
M = 100 * A + 10 * B + C
If M > 100 Then
If M Mod 4 = 0 Then
N = N + 1
Print N; M,
If N Mod 6 = 0 Then Print
End If
End If
End If
Next
End If
Next
End If
Next
Print
Print "共有"; N; "个符合条件的三位数"
End Sub

已经运行过

Answer 2

Private
Sub
Command1_Click()
Dim
A
As
Integer,
B
As
Integer,
C
As
Integer
Dim
M
As
Integer,
N
As
Integer
Form1.AutoRedraw
=
True
For
A
=
0
To
7
If
A
=
0
Or
A
>
3
Then
For
B
=
0
To
7
If
(B
=
0
Or
B
>
3)
And
B
<>
A
Then
For
C
=
0
To
7
If
(C
=
0
Or
C
>
3)
And
C
<>
A
And
C
<>
B
Then
M
=
100
*
A
+
10
*
B
+
C
If
M
>
100
Then
If
M
Mod
4
=
0
Then
N
=
N
+
1
Print
N;
M,
If
N
Mod
6
=
0
Then
Print
End
If
End
If
End
If
Next
End
If
Next
End
If
Next
Print
Print
"共有";
N;
"个符合条件的三位数"
End
Sub
已经运行过