想问问大佬们vb这个题该怎么做

Question

大佬们看看这个题8⃣️

Answer 1

Sub 随机()
Dim I As Integer
Dim BW, SW, GW, J As Integer
Dim S As String
  Dim a(1 To 100) As Integer
    For I = 1 To 100
        a(I) = Int(Rnd * 899 + 100)
        GW = a(I) Mod 10
        SW = (a(I) Mod 100 - GW) / 10
        BW = (a(I) - SW * 10 - GW) / 100
        
        If GW Mod 2 = 0 And SW Mod 2 = 0 And BW Mod 2 = 0 Then
        J = J + 1
        S = S & a(I) & ";    "
            If J Mod 10 = 0 Then
            S = S & a(I) & ";    " & Chr(13)
            End If
        End If
    Next
   MsgBox SEnd Sub

Answer 2

Sub 随机()
Dim a
Dim b
Dim t
Dim ia = ""
t = 1
i = 1For t = 1 To 10    For i = 1 To 10
    
        b = Int(Rnd() * 899 + 100)
        
        If Int(b / 100) Mod 2 = 0 And Int((b - Int(b / 100) * 100) / 10) Mod 2 = 0 And Int((b - Int(b / 10) * 10)) Mod 2 = 0 Then        a = b & "," & a
        
        End If    Next
    
    Debug.Print t & "组内容:" & a
    
    a = ""
   
NextEnd Sub仅供参考