设有一数组A,长度是N,内部的数据是0到N-1之间的所有数字

Option Explicit
Private Sub Form_Click()
Dim a() As Integer,b() As Integer,n%,i%,j%,temp%
n = InputBox("请输入A数组的长度","输入数字",0)
ReDim a(n - 1) As Integer,b(n - 1) As Integer
b(0) = 0
For i = 0 To n - 1 '随机生成A数组
a(i) = Int(Rnd() * 100)
Next i
For i = 1 To n - 1 '生成 B数组
temp = 0
For j = 0 To i - 1
If a(j) < a(i) Then temp = temp + 1
Next j
b(i) = temp
Next i
For i = 0 To n - 1 '输出A、B数组
Print a(i);
Next i
Print
For i = 0 To n - 1
Print b(i);
Next i
End Su