Question

求数据为三位正整数 并且它的其各个数字之和等于10 用VB怎麼做

Answer 1

Private Sub Form_Load()

For i = 1 To 9

For j = 0 To 9

For k = 0 To 9

If i + j + k = 10 Then

If 100 * i + 10 * j + k < 1000 And 100 * i + 10 * j + k > 99 Then

MsgBox 100 * i + 10 * j + k

End If

End If

Next k

Next j

Next i

End Su