Undead

dim A(3)
A(0)=54
A(1)=43
A(2)=87
A(3)=67

StrString = inputbox("输入：", "输入框")
i = Mid(strString, 3, 1)
Msgbox A(i)
复制代码