(11) 有如下程序
a$=”A WORKER IS OVER THERE”
x=LEN(a$)
FOR i=1 TO x-1
b$=MID$(a$,i,2)
IF b$=”ER” THEN s=s+1
NEXT i
PRINT s
END
運(yùn)行后的輸出結(jié)果是 [11]
(12) 以下程序是在鍵盤上輸入月份的數(shù)值,即1~12之間的一個(gè)整數(shù),計(jì)算機(jī)即打印出該月份的季節(jié)(12,1,2為冬季,其余類推)。比如輸入7,則打印出Summer,但程序不完整,請(qǐng)?jiān)?[12] 處補(bǔ)充完整。
DO
INPUT”The number of month --“;n
LOOP UNTIL n>0 AND n<13
m= [12]
SELECT CASE m
CASE 1
PRINT”Spring”
CASE 2
PRINT “Summer”
CASE 3
PRINT”Autumn”
CASE ELSE
PRINT”Winter”
END SELECT
END
(13) 下面的程序是用選擇交換法將n個(gè)數(shù)排為升序,請(qǐng)?jiān)?[13] 、 [14] 、 [15] 處將程序補(bǔ)充完整。(6分)
INPUT”Enter a number:”;n
DIM a(n)
FOR i=1 TO n
INPUT a(i)
PRINT a(i);
NEXT i
PRINT
FOR i= [13]
k=i
FOR j= [14]
IF a(k)>a(j) THEN k=j
NEXT j
IF k<>i THEN [15]
NEXT i
FOR i=1 TO n
PRINT a(i);
NEXT i
PRINT
END
(14) 下面程序的功能是從一個(gè)順序文件”emp.txt”中讀入員工姓名、年齡及工資,然后將各員工的工資按400元以下、1000元以下及更高分為低、中、高分別統(tǒng)計(jì)三類工資的員工人數(shù)。請(qǐng)?jiān)诔绦虻腫16]、[17]、[18]三處補(bǔ)充所需內(nèi)容使之完整。
OPEN”emp.txt” FOR [16] AS#1
DO WHILE NOT EOF(1)
[17] name$,age,wage
SELECT CASE wage
CASE<400
low=low+1
CASE<1000
middle=middle+1
[18]
high=high+1
END SELECT
LOOP
CLOSE #1
PRINT”low=”;low;”Middle=”;middle;”High=”;high
END
(15) 下面程序的功能是產(chǎn)生100個(gè)小于1000(不含1000)的隨機(jī)正整數(shù),并統(tǒng)計(jì)其中5的倍數(shù)所占比例,但程序不完整,請(qǐng)?jiān)?[19] 及 [20] 處把程序補(bǔ)充完整。
DIM a(100)
FOR j=1 TO 100
a(j)=INT( [19] )
IF a(j) [20] 5=0 THEN k=k+1
PRINT a(j);
NEXT j
PRINT
PRINT k/100
END