用最简单的冒泡排序就可以了，不过你的for循环没有作用

怎么会没用呢？只要输入注数，他就会打印出几注来啊。哦，你说的是排序后啊，
难道不能将N注都排出来吗？

呵呵

dim s(6)
print
print "         SSQXHCX               "
do
randomize timer
Print "please input the ZHU SHU!"
input "n=";n
print
for i = 1 to n
  s(1) = int (10*rnd)+1
  s(2) = int (10*rnd)+1
  s(3) = int (12*rnd)+12
  s(4) = int (12*rnd)+12
  s(5) = int (8*rnd)+25
  s(6) = int (8*rnd)+25
  s(0) = int (15*rnd)+1
    for a=1 to 5                    '排序
       for b=(a+1) to 6
          if s(a) > s(b) then swap s(a),s(b)
    next b,a

  for j=1 to 6
    print s(j),
  next
    print ,s(0)
next i
print "Do you continue? (Y/[N])"
loop while  ucase$(input$(1))= "Y"
end

唉，高手就是高手啊。
基本上排序看懂了，不过你最后，停止循环的那一句有点不太明白

这也能叫做高手?
那是你太小看高手了,
高手们都不像我沽分钓鱼的,
归隐的归隐了.VB的VB去了.

loop while  ucase$(input$(1))= "Y"
  |    |        |     |            
  |    |        |  input$(n%)表示从键盘接收n%个字符,1就是1个ASCII字符喽
  |    |    ucase$(s$) 是将参数s$里的所有字母变成大写字母
  |  当条件成立时继续循环
循环结构围栏

哦原来是这样啊谢谢了
不过没办法给你加分了
我已关注你很长时间了。
在这眼中你就是高手了。。。
高高手。。。。
不过你那一句，跟我的作用一样啊
谢谢了，要是我买双色球中了500万，有你200万

在这里提醒一下,
用input$(n%)的时候,
n%的值别要设置过大了,
否则会误认为停止响应的,
我曾经试过连 Ctrl+Break, Ctrl+Alt+Del 都没有反应而不停的重启,汗颜极了
连这些按键都过滤进去了,很是恐怖.

双色球?五百万?
我经常中啦,要不要传授一下经验给你?

关注我很长时间了?
是不是因为知道我经常中五百万啦?

技术很简单啦,
多吃些火气大的食物,
晚上晚些睡就可以了,
包百分百中头等奖.
开心到你笑到见牙不见眼.

真的啊？？我每晚3点多还在线啊。怎么就不中呢？
对了，你说我还真想起来了，当时我调试时，试着输入好像是1000，结果等了好长时间都没反应。还是强行结束的。而且我还没保存。结果。。。。
极度郁闷。。。
唉！MOZ兄我想问一句啊。不要见笑，我高中都没读完耶。学QB有没有希望啊
不管怎么样，不要太打击我哦