VB编程:一个三位整数,它的百位数字、十位数字以及个位数相加等于17.求满足上述条件的三位正整数的和.

Private Sub Form_Click()
Sum = 0
For i = 100 To 999
s = Trim(Str(i))
If Val(Left(s,1)) + Val(Right(s,1)) + Val(Mid(s,2,1)) = 17 Then
Sum = i + Sum
End If
Next
Print Sum
End Su