作业帮 > 数学 > 作业

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

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:数学作业 时间:2024/04/30 13:41:29
求数据为三位正整数 并且它的其各个数字之和等于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