VB代码，计算机随机产生10个1—100的奇数，并由大到小输出

Private Sub Form_Load()
Me.Show
Dim a(10) As Integer
Print "随机产生的10个1-100的奇数："
Randomize
For i = 1 To 10
a(i) = Int(100 * Rnd + 1)
If a(i) Mod 2 = 0 Then a(i) = a(i) + 1
Print a(i);
Next
Print
Print "从大到小排列："
For i = 1 To 9
For i1 = i To 10
If a(i) < a(i1) Then k = a(i): a(i) = a(i1): a(i1) = k
Next
Print a(i);
Next
Print a(i)
End Sub

Private Sub Form_Click()
    Dim i, j, t, arr(1 To 10)
    For i = 1 To 10
        Randomize
        arr(i) = 2 * (Int(Rnd * 50) + 1) - 1
    Next
    Print Join(arr)
    For i = 1 To 9
        For j = i + 1 To 10
            If Val(arr(i)) < Val(arr(j)) Then
                t = arr(i): arr(i) = arr(j): arr(j) = t
            End If
        Next
    Next
    Print Join(arr)
End Sub

Rnd（）十个数不能被2整除的
在for 排序下