3、從鍵盤輸入一個(gè)正整數(shù),判斷其所含5的個(gè)數(shù)。(如:輸入數(shù)值2345105,其中包含5的個(gè)數(shù)為2)
程序代碼:
SET TALK OFF
clear
INPUT "請輸入一個(gè)正整數(shù)X:" TO X
S=0
DO WHILE .T.
N=MOD(X,10) &&第一次求X的個(gè)位數(shù)N,第二次求X的十位數(shù)N,…
IF N=5
S=S+1
ENDIF
X=INT(X/10)
IF X=0
EXIT
ENDIF
ENDDO
?"X中5的個(gè)數(shù)為:",S
SET TALK ON
4、從鍵盤輸入20個(gè)數(shù),去掉20個(gè)數(shù)中的最大值和最小值,然后求平均值。
程序代碼:
SET TALK OFF
CLEAR
S=0
N=1
STORE 0 TO MAX,MIN
DO WHILE N<=20
INPUT "B=" TO B
S= S+B
IF MAX
MAX=B
ENDIF
IF MIN>B
MIN=B
ENDIF
N=N+1
ENDDO
?"AVERAGE="+ STR((S-MAX-MIN)/18,19,2)
SET TALK ON
相關(guān)推薦:
2010年9月計(jì)算機(jī)等級考試精華備考資料匯總 2010年計(jì)算機(jī)等級考試二級公共基礎(chǔ)知識教程
考試吧:2010年計(jì)算機(jī)等考二級VB預(yù)測題匯總 2010年全國計(jì)算機(jī)等級考試全攻略(一至四級)