比较菜的问题，但我有难度!!

Question

dim result as integer
dim code(2) as string
dim index_code as integer
code(0)="+"
  code(1)="-"
  code(2)="*"
for index_code=0 to 2
select case code(index_code)
case "+"
    result=3+4
case "-"
    result=3-4
case "*"
    result=3*4
end select
debug.print str（result）
next index_code
不明白为什么要这样，需要判断运算符吗？

Answer 1

dim code(2)as string
应改为 dim code(3) as string

Answer 2

dim str as string
dim code(2)as string
dim index_code as long
　code(0)="+"
  code(1)="-"
  code(2)="*"
for index_code= 0 to 2
select case code(index_code)
       case "+"
            str=cstr$(3+4)
       case "-"
            str=cstr$(3-4)
       case "*"
            str=cstr$(3*4)
end select 
next index_code