Question

在0123456789这十个自然数中任取三个不同的数字，组成的三位数中是3的倍数的有几个？要简单过程

在0123456789这十个自然数中任取三个不同的数字，组成的三位数中是3的倍数的有几个？要简单过程

Answer 1

'
'回答；
'用Excel VBA编写简单程序：
'通过三层嵌套循环分别取出单个的数字，
'当这三个数互不相等时，将它们重新组合成新的三位数
'将这三位对3进行整除取余，当余数为0时即为所求
'
'具体操作如下：
'打开excel,按“Alt+F11”进入VBE编辑环境，输入以下代码，
'然后点击工具栏中的运行子过程按钮
'组成的三位数将分别填入当前工作表的A列中
'结果显示有228个符合条件的数

Sub 求能够被3整除的三位数()
Dim i As Integer, j As Integer, r As Integer
Dim c As Integer
Dim s As Long
s = 1
For i = 1 To 9
For j = 0 To 9
For r = 0 To 9
'当所取三个数都互不相等的情况下
If i <> j And i <> r And j <> r Then
'将三个数进行组合成一个新的三位数并赋值给变量c
c = Val(CStr(i) & CStr(j) & CStr(r))
'当新的三位为3的倍数时
If c Mod 3 = 0 Then
'在A列单元格中填入这个新的三位数
Range("a" & s) = c
s = s + 1
End If
End If
Next r
Next j
Next i
MsgBox "任取三个数组成的三位数中是3的倍数的有" & s - 1 & "个"
End Sub

Answer 2

mei