错误代码424 要求对象,当程序错误时,错误的那行显示为黄色,看一下对象的名称是否和窗体上加载的控件名称一致,比如=Trim(TxtSname.Text),可能窗体上的控件名称是Txtname而不是TxtSname,或窗体上控件名称是CmdDelete而不是CmdDel等。
建议将CInt(Trim(TxtSage.Text))修改为CInt(val(Trim(TxtSage.Text))),如果TxtSage.Text不是数值,你的程序又要错误了。另外.Text可以省略,Text是TextBox的默认属性。
你将倒数第五行(下面的内容)
Loop While (c = "." Or "," Or "?" Or "!")
改成下面的样子应该就解决了:
Loop While (c = "." Or c = "," Or c = "?" Or c = "!")