編寫程序實例-資料下載頁
2025-08-01 15:29本頁面
【正文】 , 名次 I ) FOR i = 1 TO 10 APPEND BLANK @ i+2,10 SAY “語文 :” GET 語文 @ i+2,30 SAY “數(shù)學 :” GET 數(shù)學 @ i+2,50 SAY “英語 :” GET 英語 READ ENDFOR BROWSE REPLACE ALL 平均分 WITH ( 語文 + 數(shù)學 + 英語 ) / 3 BROWSE FOR i =1 TO 10 GO i pj =平均分 mc=1 GO TOP DO WHILE .() IF 平均分 = pj mc = mc + 1 ENDIF SKIP ENDDO GO i REPLACE 名次 WITH mc ENDFOR Browse USE ? 例 有 4個具獨立功能的過程，分別是 Sub SubSub Sub4，編寫一個程序，可以在不同選擇下調用這些過程 。 SET PROCEDURE TO DO WHILE .T. INOUT “請輸入您的選擇 (15) ： ” TO N DO CASE CASE N= 1 DO Sub1 CASE N = 2 DO Sub2 CASE N = 3 DO Sub3 CASE N = 4 DO Sub5 OTHERWISE RETURN ENDCASE ENDDO CLOSE PROCEDURE 提示： ?先編寫過程程序文件 ?再編寫主程序文件 例 1: 打印 100以內的能被 7整除的奇數(shù) FOR n =1 TO 100 STEP 2 IF n % 7 = 0 ? ? n , Space(1) ENDIF ENDFOR 說明： ？？輸出在當前行當前位置上，未到行尾不會換行； ？ 輸出表達式結果后換行，如用？輸出多項，各 項表達式間用 “ ， ” 分隔； 例 2: 請打開 D:\DJKS\VBCP\3000005文件夾下的 , 按要求完成以下程序 : 編程序實現(xiàn)從鍵盤上輸入 20個字符串，輸出這20個字符串中最長的那個字符串。 （ ）（試題 F42） ACCEPT “請輸入一個字符串 :” TO M S=Len(M) For k=1 to 19 ACCEPT “輸入一串字符 :” TO X if LEN(X)S S = LEN(X) M=X endif ENDDO ? “最長的字符串為 : ” , M
環(huán)評公示相關推薦
鄂ICP備17016276號-1