我是学B语言的。。刚入门，结果就卡死到第一关了，。
同样的语句，vb6.0能实现，vs为什么就不能实现呢。。。而且vs的picturebox根本没有print项咋搞。。
Private Sub Command1_Click()
Dim a(), i%, j%, count%, t%, n%, r1%, r2%
n = InputBox("请输入个数", "n值")
r1 = InputBox("范围上限", "上限")
r2 = InputBox("范围下限", "下限")
ReDim a(1 To n)
For i = 1 To n
Randomize
a(i) = Int(Rnd * (r1 - r2) + r2)
Next i
For i = 1 To n
For j = 1 To n - i
If a(j) > a(j + 1) Then _
t = a(j): a(j) = a(j + 1): a(j + 1) = a(j)
Next j
Next i
Picture1.Cls
Picture1.Print "n=" & n, "r1=" & r1, "r2="; r2
count = 0
For i = 1 To n
Picture1.Print a(i),
count = count + 1
If count Mod 5 = 0 Then Picture1.Print
Next i
End Sub
感激不尽