谁有炸群代码卖我一个

谁有炸群代码卖我一个

定义一个全局变量的数组：
dim a(10) as integer

随机产生10个两位的素数，素数各不相同：
Dim a(10), x As Integer
        Dim str As String = ""
        Dim di As Boolean = True
        Dim n As Integer
        Dim sd As 
        For i = 1 To 10
            Do
                Do
                    Randomize()
                    n = Int(Rnd() * 100 + 10)
                Loop Until IsSushu(n)
                If i > 1 Then
                    For x = 1 To i - 1
                        If a(x) = n Then
                            di = False
                        End If
                    Next
                End If
            Loop Until di = True
            a(i) = n
            'str = str & a(i) & " "

        Next

这个真的没有……