利用随机函数产生60个100～200之间的随机整数，将其中的偶数按由小到大的顺序排列并输出。

我只能说你写的程序到处是错误，所以我没办法一一给你说明哪里出错了。下面是我帮你修改后的程序（可以运行的，没有问题~~），你对比一下你写的，希望你能找出自己哪里出错了。实在有看不懂的地方，可以给我留言。
另外，初学VB建议打好基础啊。你这个程序的很多错误说明你的基础不行……
程序如下：
Private Sub Command1_Click()
Dim s%(1 To 60), i%, j%
Randomize
Cls

Print "排序前"
For i = 1 To 60
s(i) = Int(101 * Rnd + 100)
Print s(i);
If i Mod 10 = 0 Then Print
If s(i) Mod 2 = 0 Then k = k + 1: s(k) = s(i)
Next i

Print "偶数有" & k & "个"
For i = 1 To k
Print s(i);
If i Mod 10 = 0 Then Print
Next i

Print
Print "排序后"
For i = k To 2 Step -1
For j = 1 To i - 1
If s(j) > s(j + 1) Then temp = s(j): s(j) = s(j + 1): s(j + 1) = temp
Next j
Next i

For i = 1 To k
Print s(i);
If i Mod 10 = 0 Then Print
Next i

End Sub
Private Sub Command2_Click()
End
End Sub