三区联考试卷.doc

一：填空二：选择三：程序填空，根据要求,在题目空白处填上相应语句（30）每空2分1以下程序的功能是找出所有能被3整除且至少有一位数是5的两位数，并将这些数写入到一个文件中。OPEN out.dat FOR OUTPUT AS #1k = 10DO a2 = INT(k / 10) a1 = k - a2 * 10IF k MOD 3 = 0 AND (a1 = 5 OR a2 = 5) THEN WRITE #1, kEND IF k = k + 1LOOP WHILE k = 90CLOSE2以下程序用随机函数产生N个二位正整数，然后用冒泡法按从小到大排序CLSRANDOMIZE TIMERn = 10DIM a(n) AS INTEGERPRINT “before sorting”FOR i = 1 TO na(i) = INT(RND * 90) + 10PRINT a(i)；NEXT iPRINTFOR i = 1 TO n - 1FOR j = n TO I STEP -1IF a(j) a(j - 1) THEN SWAP a(j), a(j - 1)NEXT jNEXT iPRINT “after sorting”FOR i = 1 TO nPRINT a(i)；NEXT i3以下程序功能是从键盘上输入一个整数，判断是否为素数。DECLARE FUNCTION prime% (N%)INPUT m%IF prime%(m%) THEN PRINT m%; is a primeELSE PRINT m%; isnt a primeEND IFENDFUNCTION prime% (N%)I = 2FLAG = -1WHILE I = 2 THEN fact = m% * fact(m% - 1)ELSE fact = 1END IFEND FUNCTION5以下程序是将读入的一行字符中的小写字母全部转换成对应大写字母后的第二个字母（X、Y、Z后依次是A、B、C）注意大小写CLSLINE INPUT A$N = LEN(A$)FOR i = 1 TO Nc$ = 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 IFPRINT c$;NEXT iEND四：写出下列程序的运行结果（每题5分，共20分）1DIM a(3, 3)FOR i = 1 TO 3FOR j = 1 TO 3READ a(i, j)IF i j AND i + j 4 THEN s = s + a(i, j)NEXT jNEXT iPRINT s=; sDATA 11,22,33,44,55,66,77,88,99运行结果： S=220 2FOR m = 1 TO 3a = 1: b = aFOR j = 1 TO 2a = -a: c = aFOR k = 1 TO 2a = a + 3NEXT kNEXT jNEXT mPRINT a, b, c, mEND运行结果：1 1 -5 4 3DECLARE SUB jc (p!, i!)INPUT m,n=; m, nCALL jc(a, m)PRINT aCALL jc(b, n)PRINT bCALL jc(c, m + n)PRINT cENDSUB jc (p, i)p = 1FOR j = 1 TO ip = p * jNEXT jEND SUB若M=3，N=4，程序的运行结果：62450404CLSk = 24s = 3DO SELECT CASE k MOD s CASE 1, 2 s = s + 3 CASE 3 TO 6 s = s + 2 CASE IS 7 s = s + 1 CASE ELSE s =