Question

VFP6.0设计表单的题，如图，在线等

求大神告诉我怎么做出来的。主要是text和command的控件里面的口令应该怎么写？

Answer 1

text中无需输入代码
统计命令按钮中的代码如下:(假如第一个text名字叫text1,第二个叫text2)

lcstr=lower(thisform.text1.value) &&因为不分大小写,就全转换成小写
thisform.text2.value=occurs('and',lcstr) &&occurs函数就是用来计算一个字符在另一个字符中出现的次数

退出的按钮代码:
thisform.release

追问

好的我懂了！谢谢您！估计之后可能还得有问您的方便留个联系方式么？百度私信一下可以不？

追答

lcstr是个变量,存储text1的值. 当然你也可以直接这样写,第一行不要

thisform.text2.value=occurs('and',lower(thisform.text1.value))