Question

编写程序 统计100到1000之间有多少个数其各位数字之和是5

C语言

Answer 1

Private Sub Command1_Click()

For s = 100 To 1000

Sum = 0

For i = 1 To Len(s)

k = Val(Mid(s, i, 1))

Sum = Sum + k

Next i

If Sum = 5 Then Print s

Next s

End Sub