VB题 有一个随机生成的含20个三位数的数组,怎么从中间找出含8的数啊 求详解

假设这个数组是A(1 to 20)：

dim Str as string

Str="含8的数据有："

For i =1 to 20

   For j=1 to len(A(i))

        if val(mid(A(i),j,1))=8 then

               Str=Str & vbcrlf & "A(" & i & ")=" & A(i)

               exit for

        end if

    next j

next i

msgbox Str 

效果如图：

Private Sub Command1_Click()
Randomize
Dim a(20) As Integer
For i = 0 To 19
a(i) = Int(Rnd * 899 + 100)
Print "这是第" & i + 1 & "个数：" & a(i)
Next i
Print "含有8的数为："
For i = 0 To 19
If InStr(1, a(i), "8") <> 0 Then
Print a(i)
End If
Next
End Sub

dim i as integer
for i=0 to ubound(arr)
if instr(cstr(arr(i)),"8") then print arr(i)
next