杭州交通信息网户外能抓到蜂王吗:数组的循环右移（举例说明，但要用QB语言）
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 19:11:30
我知道，现在很少有人用QB。当时拜托大家
QB和VB都以是BASIC语言为基础的.
CLS
DIM a(10)
FOR i = 1 TO 10
READ a(i)
PRINT a(i);
NEXT i
PRINT
INPUT "qin shu ru yi dong shu wei:"; n 'n是要移动的位数
FOR i = 1 TO n
temp = a(10) '引进一个中间变量,把a(10)的直给temp
FOR j = 9 TO 1 STEP -1
a(j + 1) = a(j) '从后往前依次把各位的前面一位的直给后面的直.
NEXT j
a(1) = temp '然后再把 a(10)的直给a(1)
NEXT i
FOR k = 1 TO 10
PRINT a(k);
NEXT k
DATA 1,2,3,4,5,6,7,8,9,10
END