一道VB二级试题求解。

Question

随机产生10个100以内的整数，并用冒泡法按非降次排序。
Private Sub Command1_Click()
Dim a(10) as integer
For i=1 to 10
  a(i) = Rnd
  print a(i)
next i: print
For i = 1 to 10
  For j = 10 to 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
  print a(i);
next i
End Sub
以上代码有什么错误

Answer 1

1 数组从0开始
2 使用随机函数先用RANDOMIZE，否则每次产生值一样。
3 有PRINT 一般先SHOW

Answer 2

Randomize Timer产生真正的随机数
Randomize Timer
Dim i As Integer
i = Rnd() * 100 + 1

Answer 3

Private Sub Command1_Click()
Dim a(1 To 10) As Integer
For i = 1 To 10
  a(i) = Int(Rnd * 100)
  Print a(i)
Next i: PrintFor i = 1 To 10
  For j = i + 1 To 10
    If a(i) >= a(j) Then
      t = a(i): a(i) = a(j): a(j) = t
    End If
  Next j
  Print a(i);
Next i
End Sub