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