如下：
Sub 宏1()
n = 0
For i = 100 To 999
a = Int(i / 100)
b = Int((i - a * 100) / 10)
c = Int(i - a * 100 - b * 10)
If a = 5 Or b = 5 Or c = 5 Then
n = n + 1
End If
Next
MsgBox "带5 的三位数共有" & n & "位"
End Sub
Private Sub Command1_Click()
For i = 100 To 999
If i Mod 3 = 0 And InStr(i, 5) > 0 Then n = n + 1
Next
Print "能被3整除且至少有一位数字为5的三位数的个数="; n
End Sub
< 上一页 | 1 | 2 | 下一页 > 默认显示|全部显示
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024