Dim cnt As Integer '计数器Dim i As Integer ' 循环变量cnt = 0 ' 计数器置0For i = 3 To 999 Step 3 '从3循环，步长为3，循环变量都为3的倍数If InStr(i, "5") > 0 Then '判断是否包含5cnt = cnt + 1 '计数器+1End If Next
