用VB写代码产生10个100-200的随机数,保存在数组中,从小到大排序,输出排序前后的数据

Question

用VB写代码产生10个100-200的随机数,保存在数组中,从小到大排序,输出排序前后的数据

Answer 1

Private Sub Form_Click()
    Dim a%(9), i%, j%, t%
    Randomize
    For i = 0 To UBound(a)
        a(i) = Int(Rnd * 101) + 100
    Next
    For i = 0 To UBound(a) - 1
        For j = 0 To UBound(a) - i - 1
            If a(j) > a(j + 1) Then
                t = a(j): a(j) = a(j + 1): a(j + 1) = t
            End If
    Next j, i
    Me.Cls
    For i = 0 To UBound(a)
        Print a(i);
    Next
End Sub

Answer 2

Private Sub Command1_Click()
Dim arr(10) As Integer
For i = 0 To 9
arr(i) = Rnd * 100 + 100
Next
For i = 0 To 9
For j = 0 To 9
If arr(j) > arr(j + 1) Then
t = arr(j + 1): arr(j + 1) = arr(j): arr(j) = t
End If
Next j
Next i
For i = 0 To 9
Print arr(i)
Next i

End Sub

追问

输出的第一个数是0 啊

追答 Private Sub Command1_Click()
Dim arr(10) As Integer
For i = 0 To 10
arr(i) = Rnd * 100 + 101
Next
For i = 0 To 9
For j = 0 To 9
If arr(j) > arr(j + 1) Then
t = arr(j + 1): arr(j + 1) = arr(j): arr(j) = t
End If
Next j
Next i
For i = 0 To 9
Print arr(i)
Next i
  
End Sub