求助！！！这道题怎么做，在线等 贼着急(#泪)1.某密钥的加

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))

我写的时候有换行 为什么发出来换行没了

有大佬帮帮我吗 高中信息技术题

dd有大佬能帮帮忙吗

dd

dd