QBASIC语言编程 题目如下

Question

1.输出100以内的素数。
提示：
INPUT N
X = INT (SQR (N))
FOR I=2 TO X
R=N MOD I
IF R=0 THEN F=1:EXIT FOR
NEXT I
IF F=1 THEN PRINT "NO" ELSE PRINT "YES"
END
按照上面判断素数的程序，编一下第一题。
2.求M和N的最大公约数。
如果你有书，注意只许用循环语句前的所有语句。因为我后面的还没有学会呢！

Answer 1

CLS
INPUT M,N
DO
R= M MOD N
M=N
N=R
LOOP UNTIL R=0
PRINT ,;
END
这是do循环。可以吗？不行的话我给你重编一下

Answer 2

cls
dim m as long,n as long
input m,n
if n<m then
swap m,n
end if
for i=m to 1 step -1
if m mod i=0 and n mod i=0 then
print i
exit for
end if
next i
end
以上为程序源代码，SWAP 为交换数值的函数，因为要最大的所以要从较小数到着循环，EXIT FOR 为退出循环体的意思，MOD 为求余数的意思,如果不懂的话就这样：
T=M
M=N
N=T