【正文】 是否再次執(zhí)行循環(huán)體。如果是女同學并且身高在 170以上輸出“參加模特大賽”，否則輸出“參加健美操比賽” 。判別一個大于 2的整數(shù) n是否為素數(shù)可以 :用 2,3, …,n 1作除數(shù)除 n，只要有一個能整除 n， n就不是素數(shù)。 求 s=1+3+5+7+51 求 s=1*2*3**100 (s=100!) 求 s=1!+2!+3!+…+n! 求 s=1!+2!+3!+…+n! !1!31!21!11ns ????? ?Do While 條件表達式 語句序列 1 [Loop] 語句序列 2 [Exit] 語句序列 3 EndDo 格式 2： 功能 : Loop語句：強行返回到循環(huán)開始語句。如果第一次判斷條件為假，一次也不循環(huán)。 輸入 a,b,c的值 開始 T F A,b交換 ab? T F ac A,c交換 T F B,c交換 bc? Input 請輸入第 1個數(shù) : to a Input 請輸入第 2個數(shù) : to b Input 請輸入第 3個數(shù) : to c ? 排序前 ,a, b, c If a b t = a a = b b = t Endif If a c t = a a = c c = t Endif If b c t = b b = c c = t Endif ? “排序后 , a, b, c a， b排序 a， c排序 B， c排序 循環(huán)結(jié)構(gòu)程序 循環(huán)結(jié)構(gòu)也稱為重復結(jié)構(gòu)，是指程序在執(zhí)行的過程中，程序中的某段代碼被重復執(zhí)行若干次。 0 P ≤ 3500 R= 3500 ＜ P≤ 4500 4500＜ P≤ 6500 P6500 Clear Input 請輸入收入： To P Do Case Case P=3500 R=0 Case P=4500 R= Case P=6500 R= Otherwise R= EndCase Tax=(p3500)*r ? 稅金為 : +Str(tax) 【 例 】 輸入一個字符“男”或者“女”到變量“性別”中，再輸入一個數(shù)值到變量“身高”中。 ④ Do Case和第一個 Case子句之間不能插入任何命令。如果所有的條件都不成立，則執(zhí)行 Otherwise與 EndCase之間的語句序列，然后轉(zhuǎn)向 EndCase后面的語句。 EndIf后面的語句 T F y=y+x x/3= int(x/3) 輸入 x,y If mod(X,3)=0 【 例 】 編寫程序：修改“專業(yè)特長”表中的數(shù)據(jù)，把編號為“ zj01002”的職稱從“副教授”改為“教授”。 Clear Input 請輸入圓的半徑： To r 輸入半徑 c=2**r 計算圓的周長 s=*r*r 計算圓的面積 ?圓的周長： ,c 輸出周長 ?“圓的面積： ”,s 輸出面積 Return 程序的基本控制結(jié)構(gòu) 分支結(jié)構(gòu)是在程序執(zhí)行時，根據(jù)不同的條件，選擇執(zhí)行不同的程序語句。 順序結(jié)構(gòu) 順序結(jié)構(gòu)是一種線性結(jié)構(gòu)。 Visual FoxPro系統(tǒng)中的大多數(shù)命令都可以作為順序結(jié)構(gòu)中的語句。 說明： 對話框類型是由 “ 按鈕個數(shù) +顯示圖標 +默認按鈕” 組成。 行 ,列 Say 提示信息 [Picture 格式描述符 ] 格式： 功能 : （ 1）在指定的行、列輸出表達式的值。 說明 : 多個 語句可以配置一個 Read語句。 WHERE 出生日期 mrq。 （ 3）輸入字符串是必須加定界符 “ ”，輸入邏輯型常量要用圓點定界符（如 .T.， .F.），輸入日期時間型常量是要用大括號（如 {^20230301}）。 where 職稱 =zc 【 例 】 輸入姓名，在人才檔案表中查詢某編號對應的姓名 【 例 】 編寫程序，瀏覽專業(yè)特長表中不同職稱的記錄集。然后繼續(xù)往下執(zhí)行程序。 程序中幾種常用命令 基本輸入命令 暫停程序的運行 ,直到用戶輸入一個字符 ,也可用于輸出一條提示信息 WAIT [信息文本 ] [TO 內(nèi)存變量 ] [WINDOW [AT 行 ,列 ]] [NOWAIT] [CLEAR] [NOCLEAR] [TIMEOUT 數(shù)值 表達式 ] 保存鍵入的字符 ,省略 TO子句不保存 省略則顯示“按任意鍵繼續(xù) …. 不等待用戶輸入 關閉提示窗口 不關閉提示窗口 ,直到下一個 WAIT命令自動關閉 WINDOW子句使屏幕出現(xiàn)一個 WAIT提示窗口 , 內(nèi)容由 信息文本 確定 , 位置有 AT子句指定 .省略 AT子句則出現(xiàn)在屏幕右上角 TIMEOUT子句設定等待時間（以秒為單位） 說明 : ③ 若指定 WINDOWS子句 ,則會出現(xiàn)一個 WAIT提示窗口 ,用以顯示提示信息 .提示窗口在主窗口的右上角 ,也可以用AT短語指定其在主窗口中的位置 . ④ 若同時選用 NOWAIT短語和 WINDOWS子句 ,系統(tǒng)將不等待用戶按鍵 ,直接往下執(zhí)行 . ⑤ 若選用 NOCLEAR短語 ,則不關閉提示窗口 ,直到用戶執(zhí)行下一條 WAIT WINDOWS命令或 WAIT CLEAR命令為止 . ⑥ TIMEOUT子名用來設定等待時間 (秒數(shù) )。 3. 命令分行 程序中每條命令都以回車鍵結(jié)尾，一行只能寫一條命令。 (2) 以菜單方式建立、修改程序文件 文件 新建 文件 打開 已有的程序文件 程序文件的建立和運行 1．程序文件的建立 (2) 命令方式 (1) 菜單方式 程序 運行 Do 文件名 格式： 功能 : 運行程序文件 程序文件建立后，可以用多種方式、多次執(zhí)行它。 課程號 =“101” INTO ARRAY m1 SELECT AVG(成績 ) FROM 成績 WHERE。 3. 了解過程和過程文件。 2. 掌握程序的三種基本結(jié)構(gòu)。 【 】 假定學號的前四位為入學年份，第 5,6位為專業(yè)代碼 .編寫命令文件 ,分別統(tǒng)計所有學生和 2023年入學 ,專業(yè)代碼為 03的學生選修課程號為101課程的平均成績 . SET TALK OFF SET DEFAULT TO d:\學生管理 OPEN DATA 學生管理 SELECT AVG(成績 ) FROM 成績 WHERE。 2.^w或關閉窗口存盤、 ^q或者 Esc放棄存盤 .prg，可以省略。用戶在變量里放什么數(shù)據(jù)，變量就是什么類型。整行注釋使用“ *”引導，行中部分注釋使用“ ”引導。當用戶以回車鍵結(jié)束輸入完數(shù)據(jù)后，系統(tǒng)將用戶輸入的內(nèi)容作為字符串賦值給指定內(nèi)存變量。 SET TALK OFF Ste default to d:\學生管理 CLEAR ACCEPT 請輸入數(shù)據(jù)庫名 : TO AAA OPEN DATABASE AAA ACCEPT 請輸入表名 : TO BBB USE BBB browse USE SET TALK ON RETURN Do prog1 請輸入數(shù)據(jù)庫名 ： 學生管理 請輸入表名 : 學生 Use 人才檔案 Exclusive Accept 請輸入編號 : To bh Locate For 編號 =bh ?編號 ,姓名 Use set default to d:\人才管理 open data 人才管理 Accept 請輸入職稱 : to zc select * from 專業(yè)特長 。但不能不輸入任何內(nèi)容直接按回車鍵。 【 例 】 編寫命令文件 ,查找指定日期 以后出生的學生 SET DEFAULT TO d:\學生管理 OPEN DATABASE 學生管理 INPUT 輸入日期 : TO mrq SELECT 學號 ,姓名 ,出生日期 FROM 學生 。 請輸入要刪除的人的出生日期： {^19690203} 4. 格式輸入語句 格式： 行 ,列 Say 提示信息 get 變量 行 ,列 Say 提示信息 get 變量 ……. Read 功能 : 在指定的行、列位置輸入一個常量，當執(zhí)行到 Read語句時，將常量賦值給指定的變量。 Clear Set default to d:\人才管理 Use 專業(yè)特長 Exclusive A