计算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)
结果
,