神马品牌网qq三国配置要求:我的程序有一段不会遍了，麻烦问以下
来源：百度文库 编辑：神马品牌网 时间：2024/05/01 22:20:38
VB 程序，我不会编了，麻烦问以下各位，谢谢：
1、每按一次COMMAND1按钮（名称为BNS1）LABLE（名称为OUTPUT1）显示的数字增加一，而且可以按无数次，生成程序后，LABLE记录的数字能够保留，在下次启动的时候，可以继续查看到这个数值。
2、在TextBox中（名称为INPUT1）输入的值为数字，且为8到11位的整数，当不是这个数值时，弹出对话框警告，每次点COMMAND1时，把输入的数字记录到某个文件中，保存。
1、每按一次COMMAND1按钮（名称为BNS1）LABLE（名称为OUTPUT1）显示的数字增加一，而且可以按无数次，生成程序后，LABLE记录的数字能够保留，在下次启动的时候，可以继续查看到这个数值。
2、在TextBox中（名称为INPUT1）输入的值为数字，且为8到11位的整数，当不是这个数值时，弹出对话框警告，每次点COMMAND1时，把输入的数字记录到某个文件中，保存。
1、在点击事件中把LABLE的值取出来，把它强制转换成整型，赋给一个变量，再计算后赋给LABLE的CAPTION，下次启动的时候要看到这个数值，就要用文件存储起来。
2、要文本输入的值为数字，在keyPress事件中检查keyascii这个变量，如果ascii码不在48--57之间就让它等于0；要为8到11位的整数，则在它失去焦点时检查。
代码：1.
dim num as interge
num=cint(output1.caption)+1
output1.caption=num
代码：2.
private input1_keypress(keyascii as interge)
if(keyascii<48 or keyascii>57) then
keyascii=0
end if