高手们，进来看看，能不能把这些代码给简化了？(就是看起来少些，简洁些)
事实上不止这些数据，好多好多，Result有十几结果，也不止a,b,c这几个变量，
大概有a,b,c,d,e…………z,y,z 20几个变量
根据Result的不同结果，a,b,c……x,y,z赋予不同的值！
注意哦：赋予a,b,c……z,y,z的值是没规律的(下面的代码我只是为了表达简单)
If Result = 0 Then
a = 1
b = 2
c = 3
ElseIf Result = 1 Then
a = 11
b = 22
c = 33
ElseIf Result = 2 Then
a = 111
b = 222
c = 333
End If
如果用这样的方式，代码好长啊··真不顺眼，有方法简洁些么？
[解决办法]
定义2维数组
dim xx as long,key1(1 to 19,0 to 29) as long
'注：因为你说 “Result十几个结果”所以19满足要求
'另因为你说 “20几个变量” 所以这里是29
'首先初始化所有key1中的值 其中key1(x,0)为Result表示值，其他就是代表A,B,C,D..X,Y,Z的值
然后循环判断
for xx=1 to 19
if key1(xx,0)=result then exit for
'找到满足等于result值的一排数组key1(xx,1)~key1(xx,29)
next
'打印得到的a,b,c..x,y,z
for yy= 1 to xx
debug.print key1(xx,yy)
next
