Question

编程计算分段函数1.求100-500之间各位数字之和等于5的所有整数.X2+1 X

Answer 1

只会做第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