标题: 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楼 的帖子
- 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)
复制代码
作者: happlyboy 时间: 2009-12-18 17:22 标题: 标题:回复2楼
2楼的,谢谢你啦!
作者: zqz0012005 时间: 2009-12-18 18:48
- dim A(3)
- A(0)=54
- A(1)=43
- A(2)=87
- A(3)=67
-
- strArrayItem = inputbox("输入:", "输入框")
- execute "Msgbox " & strArrayItem
复制代码
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |