谁有炸群代码卖我一个

谁有炸群代码卖我一个

定义一个全局变量的数组：
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

这个真的没有……

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息