求能被3整除且至少有一位数字为5的三位数的个数，vb程序

2025-04-07 13:38:34

推荐回答（3个）

回答1：

如下：

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

回答2：

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

回答3：

< 上一页 | 1 | 2 | 下一页 > 默认显示|全部显示

求能被3整除且至少有一位数字为5的三位数的个数 ，vb程序

求能被3整除且至少有一位数字为5的三位数的个数，vb程序