- UID
- 1
- 帖子
- 11122
- 积分
- 7224
- 紫菀
- 102 朵
- 花瓣
- 9777 片
- 花蕊
- 1613 朵
- 野草莓
- 301 个
- 蒲公英
- 491 朵
- 社区等级
- 200 级
- 在线时间
- 5246 小时
- 注册时间
- 2006-7-9
- 蜗居何地
- 浙江台州
- 登录状态
-
当前离线
|
楼主
发表于 2007-8-30 18:24
| 只看该作者
Rem main
VBSCall g=InputBox("请选择翻页:第一页(1)、第二页(2) ")
If asc(g)<49 or asc(g)>50
MessageBox 您必须输入一个大于零小于2的整数值","请选择频道页;第一页(1)、第二页(2)
Goto main
EndIf
按键对数字是忽略的,不知是BUG还是其他原因,你可以转换成ASCII码进行比较。 |
|