Google浏览器不知道出什么问题没法访问相册了,直接上文字吧
private sub command1_click()
dim a as integer, c as integer, w as integer, i as integer
dim s as string, k as string
c=0
for m = I to 100
k=""
i=2*m
do while i>0
a=i mod
i=i\2
k=str(a)+k
loop
'___________
'上面一条线是叫我们填的空,我填了n=1,正确答案w=0……
for n = 1 to Len(k)
s= mid(k,n,1)
if s="1"then w=w+1
next n
if w= 4 then
c=c+1
list1.additem k
end if
next m
text1.text=str(c)
end sub