制作收费工具的必须.版本2.子程序充vip.局部变量到期时间,文本型.局部变量卡xx,文本型.局部变量ka1,文本型,,"0".局部变量ka11,整数型.局部变量月到期,文本型.判断开始(编辑框7.内容＝“”)信息框(“帐号不能为空”,0,)按钮4.禁止＝假.判断(编辑框8.内容＝“”)信息框(“充值卡号不能为空”,0,)按钮4.禁止＝假.判断(编辑框9.内容＝“”)信息框(“密码不能为空”,0,)按钮4.禁止＝假.默认.如果(飘零判断查询(“卡类”,“卡号”