VB编程 从0，1，2，3，4这四个数中抽出3个数字出来组成三位数，其中可以构成的偶数有多少？

大家帮下吧 忘记``怎么做了

Private Sub Command1_Click()
Dim i, j, c1, c2, c3, n As Integer
c1 = c2 = c3 = 0

For i = 1 To 4 '末尾为0
For j = 1 To 4
If i <> j Then n = i * 100 + j * 10: c1 = c1 + 1: List1.AddItem Str(n)
Next j
Next i

For i = 1 To 4 '末尾为2
For j = 0 To 4
If i <> j And i <> 2 And j <> 2 Then n = i * 100 + j * 10 + 2: c2 = c2 + 1: List1.AddItem Str(n)
Next j
Next i

For i = 1 To 4 '末尾为4
For j = 0 To 4
If i <> j And i <> 4 And j <> 4 Then n = i * 100 + j * 10 + 4: c3 = c3 + 1: List1.AddItem Str(n)
Next j
Next i
Text1.Text = Str(c1 + c2 + c3)
End Sub

102.104.124.134.130.120.210.214.240.234.230.312.310.340.342.324.320.412.410.420.432.430
以上是三位数的偶数
共20个
祝你好运

吧 输入的数 输到一个数组里边；然后for循环判断就行； 声明一个int型的变量 p = 0 进行累加的； arr[i]%2 == 0；的话就事偶数；上边的变量 p++ 就型； 再声明一个int型的变量 r = 0进行奇数累加的； arr[i]%2 == 1；的话就是奇数；上边的变量 r++； r 就事奇数的个数； p就是偶数的个数

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息