当前位置:编程学习 > VB >>

vb 关于字符比较

For it = 1 To MSFlexGrid1.Rows - 1 
s = MSFlexGrid1.TextMatrix(it, 1) 
a="0123456789" 
用当前s加上一行s一直加(字符),直到这些行的s里的数字和a重复8个为止,然后输出a当中没有重复的两个数,如果s本身相加有重复的,重复的可看作一个,如下面第一行的7568和123456字符相加是7568123456,可以看作12345678,如果重复的<>8则不输出,只有重复的=8才输出 
如it, 1列 2列 

7568 
123456 输出0,9 ,往上加到7568行正好重复8个数 
790 2列本行不输出,因为790加到123456行就已经>8了 
4543 2列本行输出1,2,加到往上568行正好是重复8个 
120 2列本行输出6,8,加到往上790行正好重复8个 
567 2列本行不输出 
123 2列本行输出 8,9‘从123行往上加,不是得数是字符,加到4563行,这些行的数,共出现,1235671204563,只有8和9没有和a里的数字那么输出8,9,也可以这么理解如果加起来和a重复的等于8个数,则输出不重复的2个数,必须是等于8才输出,如果重复的<>8则不输出,如567那行,567往上加,加到4563,是5671204543,和a重复7个不输出,但如果加到790,那么5671204543790,和a重复9个也不输出,只有当往上加重复8个时才输出没有重复的那两个数 
这个 MSFlexGrid1.TextMatrix(it, 2)=?该怎么写
补充:VB ,  基础类
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,