Question

vb数据统计，数据对比

vb两组数据统计。比较。
五个文本一个按钮
text1手动输入三位数（不是随机的，是手动输入）
text2手动输入三位数（不是随机的，是手动输入）
A组 05 16 27 38 49 （他们最大数和最小数的差是5的数）
B组 00 19 28 37 46 55 （他们的和为10或0的）
提交按钮：首先把text2中的每一个单数跟text1中的每一个单数依次组合，组成新的两位数。
我用数字来举例：比如text1中我输入123，text2中我输入678，首先把text2中的每一个数跟text1中的每一个数组合，这样就是61 62 63 71 72 73 81 82 83.然后要做的是统计这些组合在A组中有几组数据，在B组中有几组数据，然后把在A组中的数据个数输出到text3中，把在B组中的个数输出到text4中。这里在A组中的是61 72 73（跟A组相同就行，位置不限。61跟16是一样的，其他也是一样的道理）共三组数据，那么text3输出结果“3组”或只显示数字3，在B组中的有 73 82共两组，那么text4输出结果为“2组”或只显示数字2。如果在A或B中一组都没有没有那么text3或text4输出结果就是“0组"或只显示数字0）
（再此声明一下，有重复的有算数，也计数）比如我text1输入的是123，text2输入的是668，那么组合就是61 62 63 61 62 63 81 82 83，这里面有相同的A组中的数据61 61 83，这样算三组，那么在text3中输出“3组”或只显示数字3，text4在B组中的数据只有83，那么text4输出结果为“1组”或只显示数字1。同理在B组中存在重复的也是这样统计法。
其次是text5的算法输出问题。
text5是把text3和text4做对比，看他们两组数据个数的多少，然后做出相应的输出。
会出现几种情况。第一种情况是，text3中的个数比text4中的少，那么这种结果出现的话，就把text2中三个数都加上5，组成一个新的三位数，超过10的只保留个位数。换句话说就是把text2差为5的数找出来。
第二种情况是text3中的个数比text4中多，那么text5输出的算法就是用10分别减去text2中的每一个数，组成一个新的三位数。
第三种情况是text3中的个数跟text4中的个数相同，那么text5的结果也是用10分别减去text2中的每一个数，组成一个新的三位数。
第四种就是text3中和text4中都是0，那么text5还是用10分别减去text2中的每一个数，组成一个新的三位数。
这样的代码如何写？

Answer 1

这样的代码到不太难，难在看你的描述头痛。
不过还是基本上看懂了，
不晓得你是为了学习一下，还是想做个啥东西呀。
感觉有点像考试一样。

追问

是的，
我是初学，不会做，其实我也知道一定不难。但我现在不会，如果您会的话麻烦帮个忙，给写个代码

追答

我觉得你的难点是在组合上边是吧。
VB我有一两年没有碰了。而且我也是新手。给你提供一个思路。
比如第一个三位数是123，在变量a中，
a/100得到百位数，就是第一位。
(a-(a/100)*100)/10得到十位数，第二位，
a%10得到个位数，就是第三位数。
然后两个三位数都这样取出来。分别组合就行了呀。
比如第二个数为456，
那第1和4组合为14的方法就是1*10+4=14有了思路，我想就方便了吧。