我想用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

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

求高手帮忙～