vb6中如何进行简单自动的加法运算（VB6一行代码统计数字出现次数）

计算n1到n2，步长y的所有整数中，数字x（0≤x≤9）出现的次数。比如从2到22里面查找2，数字2、12、20、21、22都有2，共出现了6次。

Public Declare Function NumberCount Lib "VB6Plus.dll" (ByVal lngNumber As Long, ByVal lngStart As Long, ByVal lngEnd As Long, Optional ByVal lngStep As Long = 1) As Long

lngNumber：查找的数字，整形lngStart：开始数字，整形lngEnd：结束数字，整形lngStep：步长，默认1

Total = NumberCoun(2, 2, 22)

结果

计算 100到200之间的奇数，3出现的次数

'lngStart填101，奇数是从101开始

'lngStep步长填2，计算101、103...的所有奇数

Total = NumberCount(3, 101, 200, 2)

结果