这个帖子的初衷就是想对照学习一下vb6，因为当时刚下载，对vb6一点也不会（最早接触是2010年前后的事，后来一直也没有顾着），我学习编程的动力就是对素数问题感兴趣，所以每每解决问题时也比较兴奋，这使我能想到好的解决问题的流程，更容易构造框架。比较两种编程语言可以看出，基本的构件从整体说是一样的，只有侧重点，具体语句多少有点差别。

编程的兴趣来源于对有关素数问题数据的需求，如果没有对数据的渴望，怕是到现在我也不知道编程是个什么东东。

没有人打扰这里的宁静.
    本人由于时间原因也没有能力使其活跃，当时间充裕时一定来这里和大家分享编程乐趣。

很多时候，人气是大伙捧起来的，最重要的原因是你的有自己的独到见解。

在vfp版块，有新人连续发了四五个帖子。微信小程序，还没来得及发表回复，就已经被删除了。在本版块有一个帖子，发表后，声明自己已经解决，我正好看到，想试着用一下版主的权限，管理那个帖子，几次都是乱码，出现了不可操作界面，不知道是咋回事？是以版主的身份进去的，可是，那个菜单的功能都不能用。为何？

即便，每天都来这里看一看，如果不发帖，也留不下，任何记录。
本帖主要目的：就是通过vb6与vfp的编程对比（对同一个问题而言）来学习，熟练vb6的。

解决问题是一种艺术，能提出好的问题那才显示出艺术的才华。

单位元矩阵算法：
模5矩阵    0.2    0.4    0.6    0.8
0.2    0.4    0.6    0.8    1
0.4    0.6    0.8    1    1.2
0.6    0.8    1    1.2    1.4
0.8    1    1.2    1.4    1.6
5的剩余类    统计2
0.4    1
0.6    2
0.8    3
1    4
1.2    3
1.4    2
1.6    1
合计    16
周期    0    1    2    3    4    5    6    7    8    9
0    0    1    2    3    4    5    6    7    8    9
1    1    2    3    4    5    6    7    8    9    10
2    2    3    4    5    6    7    8    9    10    11
3    3    4    5    6    7    8    9    10    11    12
4    4    5    6    7    8    9    10    11    12    13
5    5    6    7    8    9    10    11    12    13    14
6    6    7    8    9    10    11    12    13    14    15
7    7    8    9    10    11    12    13    14    15    16
8    8    9    10    11    12    13    14    15    16    17
9    9    10    11    12    13    14    15    16    17    18
周期    统计
0    1
1    2
2    3
3    4
4    5
5    6
6    7
7    8
8    9
9    10
10    9
11    8
12    7
13    6
14    5
15    4
16    3
17    2
18    1
合计    100
这种算法，是耦合的实际应用，为什么，把一个算法要发在这里，一个非常重要的客观原因就是，算法来源于，解决实际问题，我的合成方法论是解决线性不定方程的满足条件的正整数解组数。

这个版块的排列顺序与VFP那个版块排列不一样，那个版块每一期排列在一起，即往期的主题，回帖后不显示在当前页面。

周期/分值    6    7    8    9    10    11    12
0    6    7    8    9    10    11    12
6    12    13    14    15    16    17    18
12    18    19    20    21    22    23    24
18    24    25    26    27    28    29    30
24    30    31    32    33    34    35    36
30    36    37    38    39    40    41    42
36    42    43    44    45    46    47    48
42    48    49    50    51    52    53    54
48    54    55    56    57    58    59    60
54    60    61    62    63    64    65    66
60    66    67    68    69    70    71    72
66    72    73    74    75    76    77    78
72    78    79    80    81    82    83    84
78    84    85    86    87    88    89    90
84    90    91    92    93    94    95    96
90    96    97    98    99    100    101    102
96    102    103    104    105    106    107    108
102    108    109    110    111    112    113    114
108    114    115    116    117    118    119    120
114    120    121    122    123    124    125    126
120    126    127    128    129    130    131    132
126    132    133    134    135    136    137    138
132    138    139    140    141    142    143    144
138    144    145    146    147    148    149    150
144    150    151    152    153    154    155    156
150    156    157    158    159    160    161    162
156    162    163    164    165    166    167    168
162    168    169    170    171    172    173    174
168    174    175    176    177    178    179    180
174    180    181    182    183    184    185    186
180    186    187    188    189    190    191    192
186    192    193    194    195    196    197    198
192    198    199    200    201    202    203    204
198    204    205    206    207    208    209    210
204    210    211    212    213    214    215    216
210    216    217    218    219    220    221    222
216    222    223    224    225    226    227    228
222    228    229    230    231    232    233    234
228    234    235    236    237    238    239    240
234    240    241    242    243    244    245    246
240    246    247    248    249    250    251    252
246    252    253    254    255    256    257    258
252    258    259    260    261    262    263    264

统计6    1    6    21    56    126
1    1    6    21    56    126
6    6    36    126    336    756
21    21    126    441    1176    2646
56    56    336    1176    3136    7056
126    126    756    2646    7056    15876
252    252    1512    5292    14112    31752
462    462    2772    9702    25872    58212
792    792    4752    16632    44352    99792
1281    1281    7686    26901    71736    161406
1966    1966    11796    41286    110096    247716
2877    2877    17262    60417    161112    362502
4032    4032    24192    84672    225792    508032
5432    5432    32592    114072    304192    684432
7056    7056    42336    148176    395136    889056
8856    8856    53136    185976    495936    1115856
10752    10752    64512    225792    602112    1354752
12642    12642    75852    265482    707952    1592892
14412    14412    86472    302652    807072    1815912
15946    15946    95676    334866    892976    2009196
17136    17136    102816    359856    959616    2159136
17892    17892    107352    375732    1001952    2254392
18152    18152    108912    381192    1016512    2287152
17892    17892    107352    375732    1001952    2254392
17136    17136    102816    359856    959616    2159136
15946    15946    95676    334866    892976    2009196
14412    14412    86472    302652    807072    1815912
12642    12642    75852    265482    707952    1592892
10752    10752    64512    225792    602112    1354752
8856    8856    53136    185976    495936    1115856
7056    7056    42336    148176    395136    889056
5432    5432    32592    114072    304192    684432
4032    4032    24192    84672    225792    508032
2877    2877    17262    60417    161112    362502
1966    1966    11796    41286    110096    247716
1281    1281    7686    26901    71736    161406
792    792    4752    16632    44352    99792
462    462    2772    9702    25872    58212
252    252    1512    5292    14112    31752
126    126    756    2646    7056    15876
56    56    336    1176    3136    7056
21    21    126    441    1176    2646
6    6    36    126    336    756
1    1    6    21    56    126

合成值    统计6
6    1
7    6
8    21
9    56
10    126
11    246
12    432
13    702
14    1077
15    1582
16    2262
17    3162
18    4328
19    5808
20    7653
21    9898
22    12633
23    15948
24    19934
25    24684
26    30309
27    36834
28    44409
29    53184
30    63310
31    74934
32    88284
33    103334
34    120309
35    139434
36    160936
37    185010
38    212100
39    242060
40    275205
41    311850
42    352317
43    396816
44    446166
45    499996
46    558726
47    622776
48    692588
这是耦合矩阵算法，在不定方程中，如果限制未知数不能取某数的倍数，则可以分别计算单位矩阵和周期矩阵，最后单位矩阵与周期矩阵耦合，就可以获得最终结果，在Excel中用函数SUMIF(B$368:Z$410,BC368,AC$368:BA$410)

如何转化成vb6语言？