三年级计算题4A加9B加6C等于100，求ABC

183776928qqcom

三年级计算题4A加9B加6C等于100，求ABC

183776928qqcom

苏州小学三年级就出这种题，还好不是要写出全部结果。 只要写两个结果。

skyzxh

好像不可能，即便ABC都等于0，也大大超100了

雪狼

看是需要获得全部结果还是 只要1个结果就可以，根据要求设置循环方法

xyxcc177

1. Sub test()
   
2. Dim max_A, max_B, max_C As Integer
   
3. Dim a, b, c As Integer
   
4. max_A = Int(100 / 4): max_B = Int(100 / 9): max_C = Int(100 / 6)
   
5. For a = 0 To max_A
   
6.    For b = 0 To max_B
   
7.       For c = max_C To 0 Step -1
   
8.       If 4 * a + 9 * b + c * 6 = 100 Then
   
9.       MsgBox "A=" & a & ",B=" & b & ",C=" & c
   
10.       End If
    
11.      Next
    
12.     Next
    
13. Next
    
14. 
    
15. End Sub
    

复制代码