先将随机产生的10个不同的整数放入数组a中,再将10个整数按升序排出的vb程序

先将随机产生的10个不同的整数放入数组a中,再将10个整数按升序排出的vb程序

Dim str As String = ""
        Dim a(10), temp As Integer
        For i = 1 To 10
            a(i) = Int(Rnd() * 90 + 10)
            str = str & a(i) & " "
        Next
        str = str & vbCrLf
        For i = 1 To 10
            For j = 1 To 10 - i
                If a(j) > a(j + 1) Then
                    temp = a(j + 1)
                    a(j + 1) = a(j)
                    a(j) = temp
                End If
            Next j
        Next i
        For i = 1 To 10
            str = str & a(i) & " "
        Next
        TextBox6.Text = str运行结果：62616964757a686964616fe78988e69d8331333337386631
73 58 62 36 37 79 11 78 83 73
11 36 37 58 62 73 73 78 79 83

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

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