推荐回答
Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer For a = 0 To 30 For b = 0 To 30 For c = 0 To 30 If a + b + c = 30 And 3 * a + 2 * b + c = 50 Then Print a, b, c End If Next c Next b Next a End Sub
宝宝知道提示您：回答为网友贡献，仅供参考。