中国DOS联盟

我现在在编写一个dos下面自动分区的小软件,
其中碰到一个这样的问题,
我的程序中有这样的语句
cls
input "请输入要分区的数量:",size

我的问题是,当屏幕提示"请输入要分区的数量"的时候,如果我敲入的不是规定的数字,而是字母,或者直接敲回车,那么请问我要怎样设置我的错误处理或者事件陷阱呢?
在这个地方,如果不设置错误处理或者事件陷阱的话,那么如果输入的字符类型和
input所希望的不一致的话,qb会提示"redo from start"
我希望用自己的错误处理来替代qb的出错提示,请问,我该怎么样设置呢?

难道各位都不用qb？？？？？

好久没用过QB了，应该是在文件开头用 ON ERROR GOTO xxx 吧，你查看一下QB的帮助，里面有示范的。

用INKEY函数，即时判断第一个字符，是否所需类型和数量，在循环中做应该不难。

dim Size as string
print "请输入要分区的数量"
Size=input$(1)
select case Size
case "1"
'.......
case "2"
'......
csae else
print "No分区数量"
end select