只会做第1个:
Private Sub Command2_Click()
Dim i%
For i = 100 To 500
x = i \ 100
y = i \ 10 Mod 10
z = i Mod 10
If x + y + z = 5 Then Print i
Next