Question

vb 一个三位正整数能被3整除,且十位数等于五,求所有满足上述条件的正整数和

Answer 1

Private Sub Command1_Click()

For i = 100 To 999

If i Mod 3 = 0 And i 10 Mod 10 = 5 Then

Print i;

n = n + 1

If n Mod 5 = 0 Then Print

s = s + i

End If

Next

Print s

End Su