[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
happlyboy

Rank: 2

帖子
6 
积分
198 
技术
0  
捐助
0  
注册时间
2009-6-2 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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

Rank: 4

帖子
16 
积分
317 
技术
0  
捐助
0  
注册时间
2009-12-7 
2楼
发表于 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)
复制代码

TOP

happlyboy

Rank: 2

帖子
6 
积分
198 
技术
0  
捐助
0  
注册时间
2009-6-2 
3楼
发表于 2009-12-18 17:22 | 只看该作者

标题：回复2楼

2楼的，谢谢你啦！

TOP

zqz0012005

Rank: 8Rank: 8

帖子
1069 
积分
12123 
技术
38  
捐助
0  
注册时间
2008-5-10 
4楼
发表于 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
复制代码
命令行参考：hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心，别人才愿意奉献热心！
把查看手册形成条件反射！

TOP

返回列表