Private Sub Command1_Click() Dim a, b, c As Long For a = 0 To 100 For b = 0 To 100 For c = 0 To 100 If a + b + c = 100 And 4 * a + 3 * b + c / 2 = 100 Then Text1.Text = a Text2.Text = b Text3.Text = c End If Next c '先c Next b Next a 'a End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024