NumberCount

计算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)

结果