请问这个怎么解决比较好?

Question

一个有点商脑精问题,请大家帮忙想一下1.总共有球20个,8个是红球,12个是黑球,此时的红黑球比例是4:62.接下来抽掉一个黑球后,剩下8个红球,和11个黑球,此时比例是 4.2:5.8 想自动计算出当下一次红黑球比例形成4:6的比例时,红球还须被抽掉几个?列2.  剩下8个红球黑11个黑球,下一次要形成4:6的比例,只有可能是6个红球,10个黑球       这个用代码想让它自动计算出来，请提示.谢谢.      另注:抽什么球,是随机行为,直到20个球被抽完为止.

Answer 1

不好意思,写错了.
只有可能是6个红球,9个黑球？
4:6
纠正...谢谢jhone99兄
 

Answer 2

Private Sub CommandButton1_Click()
  Dim x, y, z As Integer
  
  For x = 10 To 1
           For y = 1 To 100
                z = Int(x + y)
                If z * 0.4 = Int(x) Then
                   Range("C1") = Int(x)
                   GoTo out
                End If
           Next y
  Next x
  
out:
End Sub可这样写又不对.....请指示...