Option Base 1 Dim a(10) As Integer Private Sub backward(a() As Integer) For i = 1 To 5 tmp = a(i)
a(i)=a(10-i+1)a(10-i+1)=tmpNextiEndSubPrivateSubForm_Click()Fori=1To10a(i)=Int(Rnd*15...
a(i) = a(10 - i + 1)
a(10 - i + 1) = tmp
Next i
End Sub
Private Sub Form_Click()
For i = 1 To 10
a(i) = Int(Rnd * 15)
Next i
backward (a(10))
End Sub 展开
a(10 - i + 1) = tmp
Next i
End Sub
Private Sub Form_Click()
For i = 1 To 10
a(i) = Int(Rnd * 15)
Next i
backward (a(10))
End Sub 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询