随机生成15个100以内的正整数,显示在一个文本框中再将所有对称位置的两个数据对调后显示在另一个文本框中

需要添加一个按钮控件，两个文本框控件。
Private Sub Command1_Click()
Randomize
Dim x(15)
For i = 1 To 15
x(i) = Int(Rnd(Now()) * 100)
Text1.Text = Text1.Text + Str(x(i)) + ","
Next i
For i = 15 To 1 Step -1
Text2.Text = Text2.Text + Str(x(i)) + ","
Next i
End Sub
经上机调试通过

Private Sub Form_Click()
Randomize
Dim a(1 To 15)
For i = 1 To 15
a(i) = Int(Rnd * 100)
Text1 = Text1 & a(i) & ","
Next
For i = 1 To 15
Text2 = Text2 & a(16 - i) & ","
Next
End Sub