1~~ 看点书都会~~2~~~Dim a As IntegerFor a = 1 To 100 b = b + 1 / aNext aPrint b3~~~
Private Sub Form_Click()Dim a(10) As IntegerDim kk(10) As IntegerFor i = 1 To 10a(i) = Int(Rnd() * 10)kk(i) = a(i)Next iFor j = 1 To 5b = a(j)a(j) = a(11 - j)a(11 - j) = bNext jFor k = 1 To 10Print "排序前"; kk(k); "排序后"; a(k)Next kEnd Sub 本人不是高人~前一个月前还不会VB