Option ExplicitDim a(1 To 11) As IntegerDim p1, p2Dim i, jPrivate Sub Command1_Click()
If Val(Trim(Text4.Text)) > 0 And Val(Trim(Text4.Text)) < 11 Then
p1 = a(Val(Trim(Text4.Text)))
a(Val(Trim(Text4.Text))) = Val(Trim(Text3.Text))
For i = Val(Trim(Text4.Text)) + 1 To 11
p2 = a(i)
a(i) = p1
p1 = p2
Next i
For i = 1 To 11
Text2.Text = Text2.Text & " " & a(i)
Next i
Text2.Refresh
End IfEnd SubPrivate Sub form_load()
For i = 1 To 10
a(i) = Int(100 * Rnd) + 1
Text1.Text = Text1.Text & a(i) & " "
Next iEnd Sub那样的话,那你可以再加一个按钮先把a(i)、p1、p2和4个text清空然后调用一下form_loadcall form_load不就行了么