问VB题求三位数的奇数中,所有各位数字之和是12的倍数的数的个数.PrivateSubCommand1Click()Dima,b,c,i,nAsIntegerFori=101To999Step2a=Int(i/100)b=Int(i/10)-a*10c=iMod100Ifa+b+cMod12=0Thenn=

Question

问VB题
求三位数的奇数中,所有各位数字之和是12的倍数的数的个数.
Private Sub Command1_Click()
Dim a,b,c,i,n As Integer
For i = 101 To 999 Step 2
a = Int(i / 100)
b = Int(i / 10) - a * 10
c = i Mod 100
If a + b + c Mod 12 = 0 Then
n = n + 1
End If
Next i
Print n
End Sub
结果输出却总是0

Answer 1

括号 ,mod优先于+号
If a + b + c Mod 12 = 0 Then
n = n + 1
End If
改成
If (a + b + c) Mod 12 = 0 Then n=n+1