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

导读NumberCount计算n1到n2，步长y的所有整数中，数字x（0≤x≤9）出现的次数。比如从2到22里面查找2，数字2、12、20、21、22都有2，共....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)

结果