面向過(guò)程順序結(jié)構(gòu)與分支結(jié)構(gòu)編程

1、實(shí)驗(yàn)十面向過(guò)程順序結(jié)構(gòu)與分支結(jié)構(gòu)編程結(jié)構(gòu)化編程思想：程序是計(jì)算機(jī)能夠分析執(zhí)行的指令集合，包含兩個(gè)部分：一是數(shù)據(jù)結(jié) 構(gòu)，二是算法。數(shù)據(jù)結(jié)構(gòu)是對(duì)數(shù)據(jù)的描述，在程序中指定數(shù)據(jù)的類型和組織形 式，是編程操作的對(duì)象。算法是對(duì)數(shù)據(jù)結(jié)果操作步驟的描述，某一問(wèn)題而采取 的方法和步驟。一、實(shí)驗(yàn)?zāi)康模毫私饷钗募慕⑴c運(yùn)行方法掌握數(shù)據(jù)庫(kù)面向過(guò)程與分支程序的設(shè)計(jì)方法。二、實(shí)驗(yàn)內(nèi)容和操作步驟：在visual foxpro中，程序文件又稱為命令文件，它是由visual foxpro中 的命令和一些程序設(shè)計(jì)語(yǔ)句所組成的，擴(kuò)展名為prg。1、程序(命令)文件的建立方法(1) 、項(xiàng)目管理中新建程序文件打開(kāi)項(xiàng)目管理器，選擇“

2、代碼”一一“程序”一一單擊“新建”(2) 、菜單方式或工具按鈕“文件”“新建”“程序”“新建文件”或單擊常用工具欄 上的“新建”按一一“程序”一一“新建文件”(3) 、命令方式modify command程序文件名2、打開(kāi)程序文件有以下方法：(1) 、在項(xiàng)目管理器中選定程序文件名，單擊“修改”(2) 、單擊常用工具欄上的“打開(kāi)”一一打開(kāi)程序文件；(3) 、執(zhí)行“文件”一一“打開(kāi)”一一打開(kāi)程序文件 、輸入命令：modify command程序文件名3、程序文件或命令文件的調(diào)用調(diào)用程序也就是執(zhí)行程序，程序文件的調(diào)用方 法有：(1)、在項(xiàng)目管理器中，選定程序文件，單擊“運(yùn)行”;、執(zhí)行“程序”菜單下的

3、“運(yùn)行”一一選定“程序文件”確定；(3)、在命令窗口中輸入：do程序文件名回車4、程序的順序結(jié)構(gòu)順序結(jié)構(gòu)是程序設(shè)計(jì)中最基本的結(jié)構(gòu)。在該結(jié)構(gòu)中，程序的執(zhí)行是按命令 出現(xiàn)的先后順序依次執(zhí)行的，其流程示意圖如下：下面以給cjb. dbf添加表記錄為例，練習(xí)順序結(jié)構(gòu)的編程：在表cjb中添加記錄一一添加表記錄一般是追加一個(gè)空記錄，然后使用輸入的信 息替換空記錄相應(yīng)的字段內(nèi)容，其流程圖如下：打開(kāi)表文件輸入學(xué)號(hào)、姓名、各科成績(jī)追加空記錄替換學(xué)號(hào)、姓名、各科成績(jī)關(guān)閉表文件練習(xí)一新建程序文件，以tjjl. prg文件名保存。 在編程窗口中輸入下列語(yǔ)句:note功能：在成績(jī)表屮添加記錄。note 程序名：tjjl

4、. prgset talk offclear select ause cjb&&打開(kāi)表accept 學(xué)號(hào):"to hxh &&輸入學(xué)號(hào)accept 姓名：to hxm &&輸入姓名&&輸入語(yǔ)文分?jǐn)?shù)&&輸入高等數(shù)學(xué)分?jǐn)?shù)&&輸入計(jì)算機(jī)分?jǐn)?shù)&&輸入英語(yǔ)分?jǐn)?shù)input 大學(xué)語(yǔ)文：to hdxyw input 高等數(shù)學(xué):to hgdsx input 計(jì)算機(jī):to hjsjinput 英語(yǔ)：to hyuappend blank&&添加空記錄replace xh with

5、 hxh&&替換 xh 字段replace xm with hxm&&替換 xm 字段replace dxyw with hdxyw&&替換 dxyw 字段replace gdsx with hgdsx&&替換 gdsx 字段replace jsj with hjsj&&替換 jsj 字段replace yu with hyu&&替換 yu 字段replace zf with dxyw+gdsx+jsj+yu&&訃算總分usereturn &&返回保存該程序，并運(yùn)行之

6、。然后查看cjb. dbf中的新記錄。5、程序的分支結(jié)構(gòu)分支結(jié)構(gòu)是指在程序執(zhí)行過(guò)程屮，根據(jù)一定的條件判斷來(lái)確定程序走向的一種程 序結(jié)構(gòu)。visual foxpro分支語(yǔ)句有if語(yǔ)句、do case語(yǔ)句等。if語(yǔ)句：if語(yǔ)句是根據(jù)邏輯表達(dá)式值，有選擇地執(zhí)行一組命令。語(yǔ)法格式如下：tf邏輯表達(dá)式語(yǔ)句aelse語(yǔ)句bendif功能：程序根據(jù)邏輯表達(dá)式的值決定如何運(yùn)行。如果表達(dá)式的值為.t.,則執(zhí)行語(yǔ) 句a；否則，如果包含else語(yǔ)句，則執(zhí)行語(yǔ)句b,如果不包含else語(yǔ)句，則忽 略1f語(yǔ)句和end1f之間的所有語(yǔ)句。在練習(xí)一中沒(méi)有考慮輸入記錄輸入的重復(fù)問(wèn)題，如果需要考慮記錄重復(fù)，就需要 使用if語(yǔ)句。

7、新的流程圖如下：結(jié)束練習(xí)二 根據(jù)此流程圖創(chuàng)建tjjl2程序文件并輸入下列語(yǔ)句: note功能：在成績(jī)表中添加記錄。* 程序名:tjjl2. prgset talk off 關(guān)閉對(duì)話clearset exact off&&設(shè)置字符比較方式 select a use cjb &&打開(kāi)表accept 學(xué)號(hào):"to hxh &&輸入學(xué)號(hào)accept 姓名：to hxm &&輸入姓名&&輸入語(yǔ)文分?jǐn)?shù)&&輸入高等數(shù)學(xué)分?jǐn)?shù)&&輸入計(jì)算機(jī)分?jǐn)?shù)&&輸入英語(yǔ)分?jǐn)?shù)input 大學(xué)

8、語(yǔ)文：to hdxyw input 高等數(shù)學(xué)：to hgdsx input 計(jì)算機(jī):to hjsjinput 英語(yǔ)：to hyulocat for xim1xi1&&查找 xii 字段if not found()&&如果沒(méi)有找到append blank&&添加空記錄replace xh with hxh&&替換 xh 字段replace xm with hxm&&替換 xm 字段replace dxyw with hdxyw&&替換 dxyw 字段replace gdsx with hgdsx&am

9、p;&替換 gdsx 字段replace jsj with hjsj&&替換 jsj 字段replace yu with hyu&&替換 yu 字段replace zf with dxyw+gdsx+jsj+yu&&汁算總分end ifuse &&關(guān)閉表return &&返回保存并運(yùn)行該程序。查看cjb. dbf中的新記錄.練習(xí)三 新建程序文件：password, prg實(shí)現(xiàn)口令驗(yàn)證功能。 在編程窗口輸入以下語(yǔ)句：note實(shí)現(xiàn)口令驗(yàn)證功能note 文件名：password, prgset talk offs

10、et exact offclear &&清屏&&設(shè)置字符比較方式use cjb2accept 輸入姓名： to hxm &&輸入姓名accept 輸入口令： to hkl &&輸入口令locat for xm=hxm and kl=hkl &&驗(yàn)證姓名和口令if found()&&如果找到相關(guān)記錄 10,2 say 此用戶是合法用戶！ ”else 10,2 say 此用戶是非法用戶！ ”endtfclose all &&關(guān)閉表return && 返hi 輸入完畢，保存

11、并運(yùn)行。do case語(yǔ)句語(yǔ)法格式如下：do casecase條件表達(dá)式1語(yǔ)句1case條件表達(dá)式2語(yǔ)句2case條件表達(dá)式3語(yǔ)句3case條件表達(dá)式n語(yǔ)句notherwise 語(yǔ)句n+1 endcase功能說(shuō)明：自上而下判斷case語(yǔ)句后所給條件，執(zhí)行第一個(gè)滿足條件的case 后的命令系列。無(wú)條件成立，如果存在otherwise子句則執(zhí)行它下面的命令系列, 無(wú)otherwise就不執(zhí)行多分支語(yǔ)句而執(zhí)行endcase后的命令系列。練習(xí)四按cjb中數(shù)學(xué)單科成績(jī)?cè)u(píng)定等級(jí)的編程語(yǔ)句如下：note按高等數(shù)學(xué)單科成績(jī)?cè)u(píng)定等級(jí)set talk offclear && 清屏use cjbdo casecase gdsx>二85replace dj with 優(yōu)case gdsx>=75. and. gdsx<85replace dj with 良case gdsx>=65. and. gdsx<75replace dj with 中case gdsx>=60. and