vb利用随机函数产生10个两位数素数,存到数组a中,要求数组元素互不相同,最后按升序排序输出

Question

如题所述

Answer 1

Dim a(10), x As Integer
        Dim str As String = ""
        Dim di As Boolean = True
        Dim n As Integer
        For i = 1 To 10
            Do
                Do
                    n = Int(Rnd() * 1000 + 10)
                Loop Until IsSushu(n)
                If i > 1 Then
                    For x = 1 To i - 1
                        If a(x) = n Then
                            MsgBox(str & " æœ€æ–° " & n)
                            di = False
                        End If
                    Next
                End If
            Loop Until di = True
            a(i) = n
            str = str & a(i) & " "
            Randomize(10)
        Next

        For i = 1 To 10
            For j = 1 To 10 - i
                If a(j) > a(j + 1) Then
                    x = a(j + 1)
                    a(j + 1) = a(j)
                    a(j) = x
                End If
            Next j
        Next i

        For i = 1 To 10
            str = str & a(i) & " "
        Next

        TextBox6.Text = str