这个问题能用qbasic程序写出代码来吗？

Question

题目是：输入n，m (n≤9)的值，输出第m大的数。数列从第0个开始。
例如：输入3，1
有123 132 213 231 312 321 数列，第0个为123，第1个为132故输出：132

我找到了用fp写出的代码

program ex2_4(input,output);
const maxn=9;
type arraytype=array [0..maxn] of integer;
var i,j,n,temp:integer;
k,total:longint;
a:arraytype;
begin
write('Input n:'); readln(n);
for i:=1 to n do a[i]:=i;
total:=1;
for i:=1 to n do total:=total*i;{计算全排列数n!}
for k:=1 to total do
begin
for i:=1 to n do write(a[i]); write(' ');
if k mod 10=0 then writeln;
i:=n-1;
while (i>0) and (a[i]>a[i+1]) do i:=i-1;
j:=n;
while a[j]<a[i] do j:=j-1;
temp:=a[i]; a[i]:=a[j]; a[j]:=temp;
i:=i+1; j:=n;
楼下辛苦了。其中m,n是任意输入的。

Answer 1

程序如下：
input n,m
dim a(n)
for i=1 to n
a(i)=i
next i
ss=0
DO WHILE a(0) = 0
if ss=m then
for i=1 to n
? a(i);
next i
exit do
endif
j=n
DO WHILE a(j - 1) >= a(j)
j = j - 1
LOOP
k = n
DO WHILE a(j - 1) >= a(k)
k = k - 1
LOOP
SWAP a(j - 1), a(k)
FOR p = j TO n-1
FOR q = p + 1 TO n
IF a(p) > a(q) THEN SWAP a(p), a(q)
NEXT q
NEXT p
ss=ss+1
LOOP

Answer 2

CLS
INPUT M,N
FOR I = 1 TO 3
FOR J =1 TO 3
FOR G = 1 TO 3
IF I <> J AND I <> G AND J <> G THEN
Q = I *100
S = J*10
W = Q + S +G
T ＝ T ＋1
IF T ＝ M THEN PRINT W ：EXIT FOR
Q ＝ 0
S ＝ 0
W ＝ 0
NEXT G，J，I
END
不知道对不对……偶也是新手