vb程序设四位数的各位数字平方和等于100

Private Sub Command1_Click()
Dim I As Integer
For I = 1000 To 9999
If (I Mod 10) ^ 2 + (I \ 10 Mod 10) ^ 2 + (I \ 100 Mod 10) ^ 2 + (I \ 1000) ^ 2 = 100 Then Print I
Next
End Su