private sub command1_click() dim s as string , i as integer , a(1 to 26) as integer , r as string dim b(1 to 26) as string , c(1to100) as integer , j as integer s = text1.text lest1.clear for i = 1 to 26 a(i )=0 next i j=1 for i =1 to len(s) r = mid(s , i , 1) if a (asc(r)-64)=1 then b(j)=r c(j)=i j=j+1 else
________________一___________________ end if next i if j =1 then list1.additem”该字符串符合加密条件” for I= 1 to j-1 ————————二__________________ next i end sub 一处填a(asc(r)-64)=1 二处填list1.additem+b(i)+ “ “+str(c(i))
