vb do loop 急急急急!!!!!!!!!!!!!11

Private Sub Command1_Click()
'假设你已经有那个字符串的数组了,为s()

Dim i%, j%
i = LBound(s)
Do
j = j + (Len(s(i)) - Len(Replace(s(i), "a", "")))
i = i + 1
Loop Until i > UBound(s)
Print j
End Sub

抄点妮可的,别骂我:
Private Sub Command1_Click()
'假设你已经有那个字符串的数组了,为s()
Dim i%, j% , x%
i = LBound(s)
do
x=instr(s(i),a,1)
if x>0 then
print "含字母"a"的字符串有:";s(i);
j=j+1
end if
i=i+1
loop while i<= UBound(s)
print "含字母”a”的字符串的个数为:";j
没有上VB试过,难免有错误,请大家指正.
还是花了三十多分钟,能不能多给两分,十五分也...