Qbasic编程题怎么做?(产生10个字母并按字母顺序输出)

cls
dim(a$(10))
for i=1 to 10
a$(i)=chr(rand*26+64)
next i
for i=1 to 9
for j=i+1 to 10
if a(i)>a(j) then swap(a(i),a(j))
next j
next i
for i=1 to 10
writeln(a(i));
end..
我是小学学basic，中学学pascal，可能有一些pascal的成分在里面，毕竟2年没碰basic了，你修改一下，主要思想不变。