我自己做了一段指法练习的小程序,但是在比较两段文字内容时,要求出输错误字符的个数,不知该怎么做了,
两个控件数组 LabModel(index) 用来存放读取文件的内容,让用户照着录入 Txtinput(index) 用来接收用户输入字符,要求在输入时用Label1来接收错误字符的个数,小弟只能做出比较一行的错误数,当回车换行后却无法累加,还有,能否让输入错误字符对应的 LabModel(index)中相应的字符特殊显示(如变色或变成*号)
谁帮我写一下代码,先谢谢了
两个控件数组 LabModel(index) 用来存放读取文件的内容,让用户照着录入 Txtinput(index) 用来接收用户输入字符,要求在输入时用Label1来接收错误字符的个数,小弟只能做出比较一行的错误数,当回车换行后却无法累加,还有,能否让输入错误字符对应的 LabModel(index)中相应的字符特殊显示(如变色或变成*号)
谁帮我写一下代码,先谢谢了
解决方案 »
- 如何将日期型专程字段类型??怎么将日期类型拆分?比如2008-7-6通过什么函数能将其分开变成3列 年,月,日,然后各自进各自所属列??
- 水晶报表分页,谢谢40分,不够在加
- 关于打包的问题
- 如何在图片框中实现鼠标闪烁的效果,象文本框那样
- 发送鼠标消息到隐藏窗口的问题!
- text控件的datasource属性出现“这个数据源不支持dataformat属性”,在线请求。
- 用data report,浏览一次报表后就有问题了
- 急急急,如何使VB窗口最小化后放在右下角处,时钟处!
- mscomm的comevent产生帧错误和中断错误(1004,1001)的原因是什么?
- 请问怎么得到MO或CD-ROM的盘号?(得到LastDriver能实现吗?)
- 使用临时表时出现数据未添加进来。
- 求一份能用的base64编解码程序,谢谢!!!!!!!
private ErrNum as Integerpublic sub Exec()
for i=0 to txtinput.count-1
if labmodel(i)<>txtinput(i) then
labmodel(i).Forcecolor=rgb(xx,xx,xx)
ErrNum = ErrNum+1
end if
next
end sub