將I標註為整數
Dim j為整數
將k標註為整數
將n表示為整數
n = 0
對於i = 0到9
對於j = 0到9
對於k = 0到9
如果(I * 100+j * 10+k)+(k * 100+j * 10+I)= 1534那麽
打印I，j，k
n = n + 1
如果…就會結束
下壹個k
下壹個j
接下來我
印刷