50金币求VBA实现枚举算法

我想用VBA做个枚举的算法，三个变量a,b,c 步长0.1，约束是a+b+c=1.a,b,c属于[0,1]

思路是这样的

      

代码：

Sub meiju()

Set a = Range("i1:i100")                     '选择输出区间

Set b = Range("j1:j100")

Set c = Range("k1:k100")

a = 0                                       '定义初始值

b = 0

c = 1 - a - b

If c = 0 Then                              '程序主体

a = a + 0.1

ElseIf a = 1 Then

End

Else

For i = 1 To n

a(i) = a

b(i) = b + 0.1

c(i) = 1 - a(i) - b(i)

Next i

End If

End Sub

做完之后显示不出结果，测试通过，能不能帮我看下有什么问题，谢谢。我想要的效果是这样的

求高手帮忙～

Sub a()
Dim a, b, c
a = 0
b = 0
d = 0
For a = 0 To 1 step[0.1]
    For b = 0 To 1 step[0.1]
        c = 1 - a - b
        d = d + 1
        Cells(d, 1) = a
        Cells(d, 2) = b
        Cells(d, 3) = c
        If c <0.09 Then
        Exit For
        Else
        End If
    Next
Next
End Sub

这个，有点看不懂

附件和你要求的输出一致