Board logo

标题: msgbox 与 inputbox 的输出输入 [打印本页]
作者: happlyboy    时间: 2009-12-18 10:49     标题: msgbox 与 inputbox 的输出输入

由于数组有点大，这里用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    时间: 2009-12-18 14:29     标题: 回复 1楼 的帖子

  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    时间: 2009-12-18 17:22     标题: 标题：回复2楼

2楼的，谢谢你啦！
作者: zqz0012005    时间: 2009-12-18 18:48

  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
复制代码




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2