急!!!用VBScript编程：在浏览器中输出1---999中能被3整除，且至少有一位数字是5的所有整数的个数!

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