Private Sub Form_Load()For i = 1 To 9For j = 0 To 9For k = 0 To 9If i + j + k = 10 ThenIf 100 * i + 10 * j + k < 1000 And 100 * i + 10 * j + k > 99 ThenMsgBox 100 * i + 10 * j + kEnd IfEnd IfNext kNex...