msgbox 与 inputbox 的输出输入

happlyboy

由于数组有点大，这里用n来代替下~_~
dim A(n)
A(0)=54
A(1)=43
A(2)=87
A(3)=67
.
.
.
A(n)
现有inputbox,如果输入A(3),则希望Msgbox输出数值67.如果输入A(1),则希望输出数值43
请教高手这该怎样实现（vbs）
小弟我先谢谢大家啦！^_^

Undead

1. dim A(3)
   
2. A(0)=54
   
3. A(1)=43
   
4. A(2)=87
   
5. A(3)=67
   
6. 
   
7. StrString = inputbox("输入：", "输入框")
   
8. i = Mid(strString, 3, 1)
   
9. Msgbox A(i)

复制代码

happlyboy

2楼的，谢谢你啦！

zqz0012005

1. dim A(3)
   
2. A(0)=54
   
3. A(1)=43
   
4. A(2)=87
   
5. A(3)=67
   
6. 
   
7. strArrayItem = inputbox("输入：", "输入框")
   
8. execute "Msgbox " & strArrayItem

复制代码