rmSetl“表单”菜单—创建表单集,然后在该表单集中 添加一个新表单 Form2“表单”—添加新表单,并设置 Form2 的有关属性,使其在初始 运行时隐藏。Visible .F. 3. 为了使文本框 Textl 输入的字符数不少于 4, 可通过其 Valid 事件进行检验。 编写其 Valid 事件代码,要求:当 Textl 中字符数小于 4 时返回.F.(表示验证不通过,焦点不会离开) 双击 text1,选 valid 事件, if len(thisformset. Form1 .text1.value)<4 注: 有表单集所以要打 form return .F. endif 4.修改“登录”按钮的 Click 事件代码,实现如 下功能:如果文本框 Textl 中输入的用户名为 “admin” ,且 Text2 中输入的密码为“123456” , 则显示 Form2 表单,同时关闭 Forml 表单。 双击登录 选 Click 事件
thisformset.form2.visible=.T. thisformset. Form1.release
五、程序改错。 回文数是指正读和反读