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

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

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

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息