杭州交通信息网ps2机战:一个简单的vbs编程问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 21:01:19
某工厂要从1开始做字牌，一直做到2006，编程计算其中“0”要做多少块？
计算这个问题其实很简单,统计以下其中有多少个0就可以了
<%
'/* code
dim x,y,z,i,j
x= 0
for i=1 to 2006
z = Cstr(i)
j= len(z)
for y = 1 to j
if InStr(y,z,"0",1) <> 0 then
x= x+1
y = CINT(InStr(y,z,"0",1))
end if
next
next
response.Write(x)
%>