Private Sub Form_click()Dim temp As Integer, a(100) As Integer, x As IntegerRandomize Timer '这里最好初始化RND,否则每次生成都是同样的数For i = 1 To 100a(i) = Int(Rnd * 900 + 100)Next iFor i = 1 To 99k = iFor j = i + 1 To 100If a(j) < a(k) Then k = jNext jtemp = a(i): a(i) = a(k): a(k) = tempNext iFor i = 1 To 100Print a(i);: If i Mod 5 = 0 Then PrintIf a(i) Mod 3 = 0 Then '你原来的IF语句放在FOR语句外了,因此i是上回的值:101,所以超出了标界Form1.ForeColor = vbRedElseForm1.ForeColor = vbBlackEnd IfNext iEnd Sub