用VB制作一个做这样一个程序：系统产生十位随机数，显示这十个随机数中第二大的那个数

Option Explicit

Dim Ar(10) As Integer

Private Sub Command1_Click()
Call clear '清空TEXT
Call a '生成十个随机两位数
Call b '进行排序，并列出第二大的数
End Sub

Private Sub b()
Dim i As Integer, j As Integer
Dim t As Integer
For i = 10 To 1 Step -1
For j = 1 To i - 1
If Ar(j) < Ar(i) Then
t = Ar(j)
Ar(j) = Ar(i)
Ar(i) = t
End If
Next j
Next i
For i = 1 To 10
Text2.Text = Text2.Text & " " & Ar(i)
Next i
Text3.Text = Ar(2)
End Sub

Private Sub a()
Dim N As Integer
Randomize
For N = 1 To 10
Ar(N) = Int(Rnd() * (99 - 10 + 1) + 10)
Next

For N = 1 To 10
Text1.Text = Text1.Text &