三区联考试卷.docVIP

一：填空 二：选择 三：程序填空，根据要求,在题目空白处填上相应语句（30）每空2分 1．以下程序的功能是找出所有能被3整除且至少有一位数是5的两位数，并将这些数写入到一个文件中。 OPEN out.dat FOR OUTPUT AS #1 k = 10 DO a2 = INT(k / 10) a1 = k - a2 * 10 IF k MOD 3 = 0 AND (a1 = 5 OR a2 = 5) THEN WRITE #1, k END IF k = k + 1 LOOP WHILE k = 90 CLOSE 2．以下程序用随机函数产生N个二位正整数，然后用冒泡法按从小到大排序 CLS RANDOMIZE TIMER n = 10 DIM a(n) AS INTEGER PRINT “before sorting” FOR i = 1 TO n a(i) = INT(RND * 90) + 10 PRINT a(i)； NEXT i PRINT FOR i = 1 TO n - 1 FOR j = n TO I STEP -1 IF a(j) a(j - 1) THEN SWAP a(j), a(j - 1) NEXT j NEXT i PRINT “after sorting” FOR i = 1 TO n PRINT a(i)； NEXT i 3．以下程序功能是从键盘上输入一个整数，判断是否为素数。 DECLARE FUNCTION prime% (N%) INPUT m% IF prime%(m%) THEN PRINT m%; is a prime ELSE PRINT m%; isnt a prime END IF END FUNCTION prime% (N%) I = 2 FLAG = -1 WHILE I = INT(SQR(N%)) AND FLAG IF N% MOD I = 0 THEN FLAG = 0 ELSE I = I + 1 END IF I = I + 1 IF FLAG THEN prime% = -1 ELSE prime% = 0 END IF END FUNCTION 4.以下程序用递归的方法计算N! DECLARE FUNCTION fact! (m%) INPUT n=; n% PRINT n%; !=; fact(n%) FUNCTION fact (m%) IF m% = 2 THEN fact = m% * fact(m% - 1) ELSE fact = 1 END IF END FUNCTION 5．以下程序是将读入的一行字符中的小写字母全部转换成对应大写字母后的第二个字母（X、Y、Z……后依次是A、B、C……） 注意大小写 CLS LINE INPUT A$ N = LEN(A$) FOR i = 1 TO N c$ = MID$(A$, i, 1) IF c$ = a AND c$ = x THEN c$ = CHR$(ASC(c$) - 32 + 2) ELSEIF c$ = y THEN c$ = A ELSEIF c$ = z THEN c$ = B END IF PRINT c$; NEXT i END 四：写出下列程序的运行结果（每题5分，共20分） 1．DIM a(3, 3) FOR i = 1 TO 3 FOR j = 1 TO 3 READ a(i, j) IF i j AND i + j 4 THEN s = s + a(i, j) NEXT j NEXT i PRINT s=; s DATA 11,22,33,44,55,66,77,88,99 运行结果： S=220 2． FOR m = 1 TO 3 a = 1: b = a FOR j = 1 TO 2 a = -a: c = a FOR k = 1 TO 2 a = a + 3 NEXT k NEXT j NEXT m PRINT a, b, c, m END 运行结果：1 1 -5 4 3． DECLARE SUB jc (p!, i!) INPUT m,n=; m, n CALL jc(a, m) PRINT a CALL jc(b, n) PRINT b CALL jc(c, m + n) PRINT c END SUB jc (p,